我的程式如下:
Dim MyExcel As Object
Dim MySheet As Object
Dim xlbook As Workbook
Dim xlSheet As Sheets
'開新sheet
Private Sub Command1_Click()
Set xlbook = GetObject("C:\My Documents\Book2.xls")
xlbook.Sheets.Add.Activate
xlbook.ActiveSheet.Name = Text1.Text
Print xlbook.ActiveSheet.Name
xlbook.Save
xlbook.Close
End Sub
'列出所以 sheets.name
Private Sub Command2_Click()
Cls
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Workbooks.Open FileName:="C:\My Documents\Book2.xls"
For Each MySheet In MyExcel.ActiveWorkbook.Sheets
Print MySheet.Name
Next MySheet
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyExcel.Quit
Set MyExcel = Nothing
End Sub
但當我click Command2 時,第一次可以如我所願，lsit all sheets' name
不過如果我先click Command1(開新sheet) ,再click Command2， 那它就有error (error 91: Object variable or With block variable not set) ,有時click Command1 -＞ click Command2 -＞ 再click Command2 才有問題....好奇怪
請問error 91 是什麼?