1

如何使用该Worksheet.Add功能从外部工作簿添加工作表？

当我尝试从外部工作簿添加工作表时，出现错误：

对象'Sheets'的方法'Add'在第三行失败`

这是我的代码： 

Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Sheet1, Count:=2,Type:="\\SharedDrive\Worksheet\Student.xltm")
Application.ScreenUpdating = True
4

1 回答 1

3

如果您从另一个文件插入，“Type:=”必须是模板。

语法是

expression.Add(Before, After, Count, Type)

在哪里

类型是可选变体。指定图纸类型。可以是以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。如果要插入基于现有模板的工作表，请指定模板的路径。默认值为 xlWorksheet。

例如

Set ws = Worksheets.Add(After:=Sheet1, Count:=2, _
Type:="\\SharedDrive\Worksheet\Student.xlt")

或者

Set ws = Worksheets.Add(After:=Sheet1, Count:=2,_
Type:="\\SharedDrive\Worksheet\Student.xltm")

或者

Set ws = Worksheets.Add(After:=Sheet1, Count:=2,_
Type:="\\SharedDrive\Worksheet\Student.xltx")

xlt - Excel 2003 模板

xltx - Excel 2007/2010 模板

xltm - Excel 2007/2010 启用宏的模板

于 2012-01-17T20:09:02.930 回答