通过检查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