今回はVBAでWScript.Shellを使用してデスクトップにフォルダを作成します。
デスクトップにファイルを保存する際の準備として使うことができるので、必要な方はコピペして使ってください。(細かい部分を完璧に理解する必要はないと思っています。)
新規ブックをデスクトップに保存すると組み合わせることで作成したフォルダ内に保存することも可能です！
あわせて読みたい
【VBA】新規ブックをデスクトップに保存する
今回はExcel VBAで新しくブックを作成してデスクトップに保存します。コピペで使えるようにしていますので、気になった方は試してみてください！デスクトップにフォルダ...
目次
用途
デスクトップの指定したフォルダにブックを保存するために使えます。
- テストというフォルダがデスクトップに存在するか確認
- 存在しなければテストフォルダをデスクトップに作成する
- テストフォルダに〇〇.xlsxファイルを保存する←別記事作成中
サンプル
フォルダが存在するか判定して、存在しなければフォルダを作成します。
※フォルダ名を変更してから使用してください。
|
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 |
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 |