通过检查EOF来读取Excel表格中的整个单元格

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

Answer 1

你可以使用Worksheet类的Cells属性并迭代，直到find你所select的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