Private Sub Command1_Click()
Set sheet1 = x1book.Worksheets(1) '提示错误的语句
sheet1.Activate
sheet1.Cells(a, 1) = a
a = a + 1
End Sub
Private Sub Form_Load()
Dim a As Integer
a = 1
Dim x1app As Excel.Application
Dim x1book As Excel.Workbook
Dim sheet1 As Excel.Worksheet
Set x1app = CreateObject("excel.application")
x1app.Visible = True
Set x1book = x1app.Workbooks.Open("d:\temp\ceshi.xls") '打开excel工作薄
x1app.WindowState = xlMinimized
End Sub
程序可以自动打开一个excel表格,但是点击command1时,出现错误提示。
实时错误“91”
对象变量或with快变量未设置。
望高手指教!!
要求每点击一次command1,都自动保存数据。