EOFをチェックしてExcelシート内の全セルを読み取る

Question

EOFをチェックし、VBAを使用してすべての結果をMS Accessに動的に入れるだけで、列の範囲を指定せずにExcelワークシート（全セル）を読み取る方法。

Answer 1

プロパティを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