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

VBA

2020.10.252023.01.06

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

記事内に広告が含まれています。

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

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

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

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

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

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

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

コピペで使えるコード

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

MEMO

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

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

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