日付をつけたフォルダを作成したいのですが
セルD8に入力された日付でフォルダを作成したいと考えています。
たとえば「2007/01/01」と入力すると
「2007-01-01」と「2007-01-01集計」という2つのフォルダを
同時に作成するのが目的です。
ファイル名には"/"をつけられないので
「2007/01/01」と入力しても
「2007-01-01」となるように置換しようとしました。
セルD8の書式は文字列にしているのですが
以下のマクロを実行すると書式が日付に戻ってしまうので
「パスが見つかりません」というエラーになってしまいます。
(下の矢印の部分で)
何が原因なのでしょうか…
よろしくお願いします。
Sub 日付フォルダ作成()
Dim DirPathad As String
Dim DirPathadin As String
DirPathad = Range("D8")
Range("D8").Select
Selection.Replace What:="/", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
DirPathad = Range("D8")
DirPathadin = "C:\" & DirPathad
→ MkDir DirPathadin
DirPathadin = "C:\" & DirPathad & "集計"
MkDir DirPathadin
MsgBox "【" & DirPathad & "】の日付でフォルダを作成しました"
End Sub
お礼
お礼が遅くなりました。 ありがとうございます。 DOSは、あまり知らないので残念です。