1

Worksheet.Addこの関数を使用して、外部ワークブックからワークシートを追加するにはどうすればよいですか？

外部ワークブックからワークシートを追加しようとすると、エラーが発生します。

オブジェクト「Sheets」のメソッド「Add」が3行目で失敗しました`

これが私のコードです： 

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-Excel2003テンプレート

xltx-Excel2007/2010テンプレート

xltm-Excel2007/2010マクロ対応テンプレート

于 2012-01-17T20:09:02.930 に答える