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