Private Sub test() Dim xlApp As New Microsoft.Office.Interop.Excel.Application Dim xlBooks As Excel.Workbooks Dim xlBook As Excel.Workbook Dim xlStData As Excel.Worksheet Dim xlRange As Range
Dim excelData(,) As Object Dim filePath As String = "読み込むエクセルのファイルパス"