vba 新規BOOK作成

Question

Bookの存在チェックをしたのちになければ新規BookをYYYYMMDD形式で作成したいのですが、ファイル作成の記述をどう書けばよいかわかりません。教えていただけると助かります。

Dim SaveExcelFile As String
SaveExcelFile = Me.path & format(Date, "yyyymmdd")
If Dir(SaveExcelFile) = "" Then
    **新規ファイル作成 ファイル名はSaveExcelFileの’format(Date, "yyyymmdd")’**
End If

Answer 1

参考情報としてExcel/Wordでは「マクロの記録」という機能があります。
実際に操作した手順をVBAとして記録してくれるものです。
この機能を使うと、「この操作はどういうVBAのコードになるのか知りたい」を簡単に解決できますので活用してみてください。

Answer 2

ワークブックコレクションに追加したのち、保存のタイミングでファイル名を指定します。

Dim SaveExcelFile As String
Dim wb As Workbook
SaveExcelFile = Me.path & format(Date, "yyyymmdd")
If Dir(SaveExcelFile) = "" Then
    ' ワークブックを追加
    Set wb = Workbooks.Add
    ' ワークブックに対する処理を行う

    ' 保存
    wb.SaveAs SaveExcelFile
    ' 閉じる
    wb.Close
End If

Comments

[coko1]

Set wb = Workbooks.Add の行でオブジェクトが必要ですとエラーを吐いてしまいました...

[ttyp03]

wbの型がWorkbookになってないのでは？
コピペしてStringになっているとかないですか？

[coko1]

Workbookになっていますね...

[ttyp03]

原因がわからないのですが・・・
こうしてみても一緒でしょうか。
Workbooks.Add
Set wb = ActiveWorkbook

[coko1]

ファイルが求めていた名前で作成されました。どういった原因なのでしょうか？

[ttyp03]

Excelのバージョンの問題でしょうかね。
下記マニュアルを参照するとAddの戻り値は「新しいブックを表す Workbook オブジェクト」となっていますが、それが戻ってきていないのではと推測します。
https://msdn.microsoft.com/ja-jp/library/office/ff840478.aspx
なのでAddしたのち、アクティブな新しいブックを取得するようにしてみました。

[ttyp03]

ちなみに当方の環境はExcel2010です。

[coko1]

私の方は2013でした。バージョンだったんですね。
ご丁寧にありがとうございます。

[ttyp03]

2013ならマニュアル通りなのでできないとおかしそうですけどね。
なんか腑に落ちませんが、とりあえず出来たので良しとしますか。

Answer 3

Dim newbk As String
Workbooks.Add
newbk = ActiveWorkbook.Name
Workbooks(newbk).SaveAs Filename:="C:\BookName_" & Format(Date, "yyyyMMdd")

とかいかがでしょうか。

Comments

[aki178]

補足：例文ではCドライブ直下に作成していますが、制限がかかっている場合があるので、その場合はパスを変更してください。