Dim ExcelBook As Excel.Workbook Dim Esheets As Sheets Dim Esheet As Excel.Worksheet
Dim strFilePath As String strFilePath = "E:\我的工作薄.xls" If Dir(strFilePath, vbNormal) = "" Then Exit Sub End If
Set ExcelBook = GetObject(strFilePath) Set Esheets = ExcelBook.Sheets If Esheets.Count = 0 Then Exit Sub ExcelBook.Activate Set Esheet = Esheets(1) Esheet.Activate