Office中国论坛/Access中国论坛

标题: 本人VBA入门，请教一个SheetAdd的问题！ [打印本页]

作者: shaoyuan 时间: 2006-12-10 08:49
标题: 本人VBA入门，请教一个SheetAdd的问题！
我想在一个已知名称的工作薄插入一个指定名称的工作表，不知如何实现？

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

''>>>>>>创建指定名称的工作表<<<<<
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

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

作者: 老鬼 时间: 2006-12-10 22:08
Workbook是工作簿对象，Worksheet是工作表对象，SET是将对象实例化，DOEVENTS用于返回操作给系统，使操作可取消，避免系统假死机。

作者: shaoyuan 时间: 2006-12-11 07:31
先谢谢，但我还是不大明白Set的作用，为什么帮助里及相关的书里面都找不到Set 的使用说明？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)