Dim FolderName As String '作成したいフォルダパスを格納'
FolderName = "C:\VBA_Sample\AAA"
If Dir(FolderName, vbDirectory) = "" Then '同名のフォルダがない場合フォルダを作成'
MkDir FolderName
Else
MsgBox "すでに同名のフォルダが存在しています。"
End If
Activeworkbook saveas filename:=""←ここに新しく作成した同じフォルダ名で保存
fileformat:= xlworkbooknormal
という感じで一括処理できますでしょぅか
No.2
- 回答日時:
「フォルダーの有無確認」「フォルダー作成」「パス文字の連結」「パス文字の最下層の要素を取り出す」
質問内容にある要素のすべての機能を持っているので FileSystemObject を使ってみました。
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim FolderName as String
FolderName = "E:\VBA_Sample\AAA"
If Not (fso.FolderExists(FolderName)) Then
fso.CreateFolder FolderName
End If
ActiveWorkbook.SaveAs Filename:= fso.BuildPath(FolderName, fso.GetBaseName(FolderName))
保存対象の Excel ファイルがマクロを含んでいなければ、拡張子はデフォルトの .xlsx が勝手に付きます。
FileSystemObject (というかその親の Microsoft Scripting Runtime) は Windows 標準の機能ですし、VBA を使うのであれば FileSystemObject は覚えていて損はないです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA フォルダ名に特定の文字を...
-
VBA 最新のフォルダ取得
-
Access VBA で フォルダ権限...
-
ファイル名と同名のフォルダを...
-
C ファイル出力で、フォルダが...
-
【マクロ】ファイル名の日付に...
-
エクセルのマクロについて教え...
-
excel VBA Dirにて検索したフォ...
-
VBA フォルダ名と画像ファイル...
-
バッチファイルで指定フォルダ...
-
条件に合うフォルダが存在する...
-
VBScriptでフォルダ参照ダイア...
-
VBSでファイル名と同じフォルダ...
-
Debug フォルダは消していいの?
-
デスクトップの画像をhtmlに表...
-
vbsで選択ダイアログを表示した...
-
フォルダ内のPDFファイル名を変...
-
ExcelVBAでフォルダへのハイパ...
-
Excel VBA マクロ リストボックス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報