Excel で配列に値を設定する方法

次のコードを使用して、Excel の表のデータを配列に割り当てることができます。

Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim arrData As Variant
Dim i As Long
Dim numRows As Long
' 创建Excel对象
Set xlApp = CreateObject("Excel.Application")
' 打开Excel文件
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\excel_file.xlsx")
' 选择工作表
Set xlWorksheet = xlWorkbook.Sheets("Sheet1")
' 获取数据范围的行数和列数
numRows = xlWorksheet.UsedRange.Rows.Count
' 将数据范围的值赋值给数组
arrData = xlWorksheet.Range("A1:B" & numRows).Value
' 关闭Excel文件
xlWorkbook.Close
' 退出Excel应用程序
xlApp.Quit
' 在数组中循环输出数据
For i = 1 To numRows
Debug.Print arrData(i, 1) ' 第一列的数据
Debug.Print arrData(i, 2) ' 第二列的数据
Next i

上のコードの “C:\Path\to\excel_file.xlsx” の部分を、実際のエクセルファイルのパスに変更し、”Sheet1″ を実際の使用しているシート名に変更します。このコードは、エクセルファイルの A1 セルから B 列のデータが最後にあるセルまでの数値を、arrData という二次元配列に格納します。必要に応じて、これらのコードを自分の状況に合わせて変更できます。