Question

一个简单的VB操作EXCEL的问题

我编写了一个VB程序，该程序点击Command1按钮后打开EXCEL并执行相关语句，然后关闭EXCEL。在没有退出程序窗口的情况下，再次点击该按钮，不知道什么原因，当执行到激活工作表时，语句Sheets(sheet1).Activate无法运行，提示对象‘sheets’的方法‘global’失败。我已经编写了语句
xlbook.Close
xlapp.Quit
Application.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing关闭EXCEL。
不知道怎么解决这个问题？
在桌面上有一个命名为新建EXCEL表，该表第一列是身份证号码，使用VB校验是不是18位数标准身份证。因代码过长，声明EXCEL部分未贴上来

Answer 1

Sheets(sheet1).Activate
改为
xlbook.Sheets(sheet1).Activate
如果还不行，请粘出其他相关代码才能分析

追问

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("C:\Users\Administrator\Desktop\新建工作表.xlsx") CommandButton2.Visible = True
xlbook.Sheets("sheet1").Activate
y = 1 Cells(1, 2) = "校验结果" x = 2 Do While Cells(x, 1) "" If Len(Cells(x, 1)) = 18 Then Cells(x, 2) = "标准身份证" Else Cells(x, 2) = "非标榜身份证" End If x = x + 1 Loop xlbook.Save xlbook.Close

追答

分析不出原因，但出错那句可以不用呀，你改为如下试试：

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("C:\Users\Administrator\Desktop\工作簿1.xlsx")
CommandButton2.Visible = True
xlapp.Visible = True
With xlbook.Sheets("sheet1")
   y = 1
   .Cells(1, 2) = "校验结果"
   x = 2
   Do While .Cells(x, 1) <> ""
      If Len(.Cells(x, 1)) = 18 Then
         .Cells(x, 2) = "标准身份证"
      Else
         .Cells(x, 2) = "非标榜身份证"
      End If
      x = x + 1
   Loop
End With
xlbook.Save
xlapp.Quit

Answer 2

这个需要看一下你打开Excel的方式,然后是个人感觉.需要重新操作的时候.既然都SET ....=NOTHING了,那是应该重新打开的.如果不重新打开,那估计是操作不了.