本人VBA入门，请教一个SheetAdd的问题！

shaoyuan

我想在一个已知名称的工作薄插入一个指定名称的工作表，不知如何实现？

下面是我摘抄的一段程序，红字部分不懂，请哪位指点一下！多谢！

''>>>>>>创建指定名称的工作表<<<<<
Public sData As String

Sub SheetAdd()
'
' SheetAdd Macro
'
   Dim wkIMP As Workbook        ' Workbook  是什么数据类型？      
   Dim wkshtTongKun As Worksheet, sT As Worksheet  ' Worksheet  是什么数据类型？   
   Dim sNewSheet As String       '    
   sNewSheet = sData   

   Set wkIMP = Workbooks("Statistical Analysis")  ' Set ...什么意思，为什么运行到这一行时提示“下标越界（错误 9）”
   DoEvents            ' 帮助里说的是指返回给系统，在这里到底有什么作用？
   Set wkshtTongKun = wkIMP.Sheets.Add
   wkshtTongKun.Name = CStr(sNewSheet)

End Sub

有没有其他方法实现我想要的功能？

老鬼

Workbook是工作簿对象，Worksheet是工作表对象，SET是将对象实例化，DOEVENTS用于返回操作给系统，使操作可取消，避免系统假死机。

shaoyuan

先谢谢，但我还是不大明白Set的作用，为什么帮助里及相关的书里面都找不到Set 的使用说明？

请问能不能解释的详细一些？