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

如何使用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) 

哪里

types是可选变体。 指定表单types。 可以是以下XlSheetType常量之一：xlWorksheet，xlChart，xlExcel4MacroSheet或xlExcel4IntlMacroSheet。 如果要根据现有模板插入工作表，请指定模板的path。 默认值是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已启用macros的模板