今回はExcel VBAで新しくブックを作成してデスクトップに保存します。
コピペで使えるようにしていますので、気になった方は試してみてください！
デスクトップにフォルダを作成して保存すると組み合わせることで、作成したフォルダ内に新規ブックを保存することも可能です。
あわせて読みたい
【初心者向け】公開されているVBAをコピペして動かす方法
梅屋 Web上で公開されているVBAを使ってみたいけど、どう使ったら良いのかわからない…。 今回はそんな人向けにコピペでVBAを動かす方法を紹介します。 ポイント VBAの動...
あわせて読みたい
【VBA】デスクトップにフォルダを作成する
今回はVBAでWScript.Shellを使用してデスクトップにフォルダを作成します。デスクトップにファイルを保存する際の準備として使うことができるので、必要な方はコピペし...
目次
コピペで使えるコード
コピペで使えるコードです。
標準モジュールに貼り付けて使用してください。
追加したブックに処理を追加する場合は、【追加エリア】に追記をしてください。
保存するブック名を変更する場合は、”保存テスト”を変更してください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
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 |