Dim xlsApp As New excel.Application Dim xlsWorkBook As New excel.Workbook Dim xlsWorkSheet As New Excel.Worksheet Set xlsApp = CreateObject("Excel.Application") Set xlsWorkBook = xlsApp.Workbooks.Open(App.path & "\1.xls") Set xlsWorkSheet = xlsWorkBook.Sheets(1)
我试过
Dim xlsWorkBook As New excel.Workbook
Dim xlsWorkSheet As New Excel.Worksheet Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkBook = xlsApp.Workbooks.Open(App.path & "\1.xls")
Set xlsWorkSheet = xlsWorkBook.Sheets(1)