最近久しぶりに業務でVBAマクロを作る機会が
増えてきたので、コードをメモしていきます。
VBAでフォルダ作成（既にあれば作らない）処理とフォルダを開くコード
'フォルダ自動作成(すでにあれば作らない)
If Dir(●フォルダパス●, vbDirectory) = "" Then
MkDir ●フォルダパス●
End If
'フォルダを開く
Shell "C:\Windows\Explorer.exe " & ●フォルダパス●, vbNormalFocus
If Dir(●フォルダパス●, vbDirectory) = "" Then
MkDir ●フォルダパス●
End If
'フォルダを開く
Shell "C:\Windows\Explorer.exe " & ●フォルダパス●, vbNormalFocus
赤字 は変数や文字列に変えてください。
フォルダパス（フルパス）にフォルダがなければMkDirでフォルダを作る（なければ作らない）
→GUIで可視化のためにフォルダを開く の流れです。
→GUIで可視化のためにフォルダを開く の流れです。
コメント