Dim appExcel As Excel.Application Dim appwbExcel As Excel.Workbook
Set appExcel = CreateObject("Excel.Application") Set appwbExcel = appExcel.Workbooks.Open(App.Path & "\sample1.xls") Dim shtActive As Excel.Worksheet Set shtActive = appwbExcel.Sheets("sheet1") '你就可以对sample1.xls中的sheet1进行任何操作了!
Dim appwbExcel As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set appwbExcel = appExcel.Workbooks.Open(App.Path & "\sample1.xls") Dim shtActive As Excel.Worksheet
Set shtActive = appwbExcel.Sheets("sheet1")
'你就可以对sample1.xls中的sheet1进行任何操作了!