エクセルマニア

VBAでワークブック(Workbook)の作成

TOP > VBA・マクロ >  ワークブックの作成
このエントリーをはてなブックマークに追加

ワークブックの作成

Workbooks.Add

ワークブックを新規作成する関数です。 作成したワークブックを保存する場合は、
Workbooks("ワークブック名").SaveAs で保存して下さい。

サンプルコード


ワークブックを新規作成
Workbooks.Add

新規作成したワークブックのブック名を取得
Dim bookname As String
Workbooks.Add
bookname = ActiveWorkbook.Name

プログラムの実行結果

VBAでワークブックを新しく生成

ワークブックを新規作成+ワークブック名の取得


Private Sub CommandButton1_Click()
 Dim bookname As String
 Workbooks.Add  '新規ブック作成
 bookname = ActiveWorkbook.Name '新規ブック名の取得
 '新規ブックのA1セルに書き込み
 ActiveWorkbook.ActiveSheet.Range("A1").Value = bookname & " を新規作成"
End Sub

プログラムの実行結果

VBAでワークブックを新しく生成


このエントリーをはてなブックマークに追加