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

Question

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

Answer 1

如果要從另一個文件插入，則“ 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啟用宏的模板