用VB6.0封装VBA时遇到的一个怪现象，有大神能解吗？

oyrm1980

现在我成功地封装了一段创建新表的代码，将其放在VB的类模块中，代码如下：
public sub 创建新表()
dim xlapp as object
dim ws as new worksheet
Set xlapp = GetObject(, "excel.application")
Dim msg As VbMsgBoxResult
msg = MsgBox("创建新的表将删除原有表，请做好备份工作！您要继续此操作吗？", _
              vbExclamation + vbOKCancel, "确认操作")
               '创建新表前的确认提示
If msg = vbCancel Then     '如果用户点击“取消”，则返回科目设置页面
  Form2.Hide
  Form2.Show
Else                       '如果点击“确定”，则进行下面操作
  xlapp.DisplayAlerts = False     '删除原有的表时避免系统弹出确认信息
  On Error Resume Next                  '如果原有的表已经不存在，则删除时会出错，所以忽略错误
  xlapp.ThisWorkbook.Sheets("sheet3").Delete      
  xlapp.ThisWorkbook.Sheets("sheet2").Delete
   Set ws = xlapp.ThisWorkbook.Worksheets.Add               '添加工作表同时重命名
  ws.Name = "新表"
  ws.Move after:=xlapp.ThisWorkbook.Worksheets.Item(2)     '把创建的“新表”移动到第二个位置
  xlapp.DisplayAlerts = True
  Set ws = Nothing
  Set xlapp = Nothing
  Form2.Hide
end if
end sub
以上代码我封装在名为cj的DLL中，在VBA中测试成功，代码如下（已经人工引用该DLL)：
public sub test1()
dim a as new cj
a.创建新表
end sub
运行test1后能成功创建名为“新表”的工作表。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
但我原意是在VBA中先调用另一个封装好的VB窗体（名为form2)，在该窗体上我放了一个按钮“command1"，我想通过单击该按钮，调用上面的过程，代码如下：
private sub command1_click()
dim a as new cj
a.创建新表
end sub
类模块中调用窗体的代码如下（同样封装在cj中）：
public sub f2show()
form2.show
end sub

然后再VBA中也做了测试代码：
public sub test2()
dim a as new cj
cj.f2show
end sub
运行test2后能顺利调出form2，该窗体上的各功能也正常，点击按钮“command1”后能运行到下面的语句：
msg = MsgBox("创建新的表将删除原有表，请做好备份工作！您要继续此操作吗？", _
              vbExclamation + vbOKCancel, "确认操作")
               '创建新表前的确认提示
If msg = vbCancel Then     '如果用户点击“取消”，则返回科目设置页面
  Form2.Hide
  Form2.Show
但是后面删除两个表和新建一个表的操作总无法完成。

总的来说，test1是直接在VBA中调用VB类模块中的“创建新表”过程，test2则是在VB的窗体事件中调用该过程，为什么结果有这种差别，我的感觉很疑惑，请大神们赐教啊，谢谢！

coby001

On Error Resume Next                  '如果原有的表已经不存在，则删除时会出错，所以忽略错误
  xlapp.ThisWorkbook.Sheets("sheet3").Delete      
  xlapp.ThisWorkbook.Sheets("sheet2").Delete
On Error Goto 0 '恢复

oyrm1980

coby001 发表于 2014-10-20 11:00
On Error Resume Next                  '如果原有的表已经不存在，则删除时会出错，所以忽略错误
  xlap ...

谢谢，但是刚试过，弹出了错误提示，还是不行

wxhnr

ThisWorkbook在vb6里应该是不存在的。
应该用xlapp.ActiveWorkbook
或者xlapp.Workbooks(1)等代码

oyrm1980

wxhnr 发表于 2014-10-20 19:38
ThisWorkbook在vb6里应该是不存在的。
应该用xlapp.ActiveWorkbook
或者xlapp.Workbooks(1)等代码

谢谢，我再试试

oyrm1980

wxhnr 发表于 2014-10-20 19:38
ThisWorkbook在vb6里应该是不存在的。
应该用xlapp.ActiveWorkbook
或者xlapp.Workbooks(1)等代码

非常感谢，这样改过真的行了！