Question

如何使用Worksheet.Add函数从外部工作簿添加工作表？

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

方法'添加'对象'表'在第三行上失败了

这是我的代码：

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

Answer 1

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

语法是

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

其中

Type是Optional Variant。指定图纸类型。可以是以下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启用宏的模板

使用VBA从外部工作簿添加工作表

1 个答案: