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

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

デスクトップにファイルを保存する際の準備として使うことができるので、必要な方はコピペして使ってください。(細かい部分を完璧に理解する必要はないと思っています。)

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

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

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

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

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

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

うめ

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

用途
サンプル

用途

デスクトップの指定したフォルダにブックを保存するために使えます。

テストというフォルダがデスクトップに存在するか確認
存在しなければテストフォルダをデスクトップに作成する
テストフォルダに〇〇.xlsxファイルを保存する←別記事作成中

サンプル

フォルダが存在するか判定して、存在しなければフォルダを作成します。
※フォルダ名を変更してから使用してください。

Sub フォルダ作成()

	Dim path As String
	Dim WSH As Object
	Dim OpenFileName As String
	Dim FolderName As String

	'作成するフォルダ名
	FolderName = "テスト"

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

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

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

	'デスクトップに指定したフォルダがない場合作成する
	If Dir(path & FolderName, vbDirectory) = "" Then

	    MkDir path & "\" & FolderName

	End If


End Sub