excel - 通过检查EOF读取excel表中的整个单元格

Question

如何通过仅检查 EOF 来读取 excel 工作表（整个单元格）而不指定任何列范围，而不是使用 VBA 将所有结果动态放入 MS Access。

Answer 1

您可以使用类Cells的属性Worksheet并进行迭代，直到找到您选择的 EOT 条件，例如。空单元格。

像这样的东西：

Dim w As Worksheet: Set w = ActiveSheet
Dim r As Long: r = 1
Dim vSQL As String

Do While w.Cells(r, 1).Text <> ""
    vSQL = "INSERT INTO MyTable1(Col1) VALUES(" & w.Cells(r,1).Text & ")" 
    yourFavoriteMethodToInvokeSQL vSQL

    r = r + 1
Loop