'宣言 Dim xlApp As New Object() xlApp = CreateObject("Excel.Application") Dim xlBooks As Object = xlApp.Workbooks Dim xlBook As Object = xlBooks.Open(FilePath) Dim xlSheets As Object = xlBook.Worksheets Dim xlSheet As Object = xlSheets("sheet1") Dim xlCells As Object = xlSheet.Cells Dim xlRange As Object