【VBA】新規ブックをデスクトップに保存する

VBA

2021.02.19 2020.10.25

この記事は約1分で読めます。

今回はExcel VBAで新しくブックを作成してデスクトップに保存します。
コピペで使えるようにしていますので、気になった方は試してみてください！

デスクトップにフォルダを作成して保存すると組み合わせることで、作成したフォルダ内に新規ブックを保存することも可能です。

【初心者向け】公開されているVBAをコピペして動かす方法

「Web上で公開されているVBAを使ってみたいけど、どう使ったら良いのかわからない…。」今回はそんな人向けにコピペでVBAを動かす方法をご紹介していきます。

【VBA】デスクトップにフォルダを作成する

今回はVBAでWScript.Shellを使用してデスクトップにフォルダを作成します。

メリット

このソースを使うとデスクトップ以外で実行してもデスクトップに保存できます。

［ad01］

コピペで使えるコード

コピペで使えるコードです。
標準モジュールに貼り付けて使用してください。

保存するブック名がデスクトップに存在するか確認し、存在しない場合は名前を指定してデスクトップに保存します。

追加したブックに処理を追加する場合は、【追加エリア】に追記をしてください。
保存するブック名を変更する場合は、”保存テスト”を変更してください。

Sub 新しいブックをデスクトップに保存()

Dim Path As String
Dim Ws As Object
Dim BookName As String
Dim NewBook As Workbook

'保存するブック名を指定
BookName = "保存テスト"

'特殊フォルダの取得
Set Ws = CreateObject("Wscript.Shell")

'デスクトップの位置を取得
Path = Ws.SpecialFolders("Desktop") & "\"

'カレントフォルダ変更
ChDir Path

'指定したブック名が存在するか判定
If Dir(Path & BookName & ".xlsx") = "" Then

    '新規ブックの作成
    Set NewBook = Workbooks.Add
    
    '【追加エリア】
        
    
    '指定したブック名で保存する
    ActiveWorkbook.SaveAs Path & BookName & ".xlsx"
    
    '保存して閉じる
    NewBook.Close SaveChanges:=True

Else
    'ブックがデスクトップに存在している場合は処理を止める
    MsgBox BookName & ".xlsは既に存在しています。"
    Exit Sub

End If

Set NewBook = Nothing
Set Ws = Nothing

End Sub