セル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
No.1ベストアンサー
- 回答日時:
セルに日付を入力した場合、見た目は「2007/01/01」となっていても、実際は「39083」という数値がはいっているのと同じですので、そこから「年」「月」「日」を抜き出す必要があります。
(※作成上、不要と思われる行は削除してあります。必要であれば追加してくださいね。)
Sub 日付フォルダ作成()
Dim DirPathad As String
Dim DirPathadin As String
Range("D8").Select
DirPathad = Year(Range("D8")) & "-" & Month(Range("D8")) & "-" & Day(Range("D8"))
DirPathadin = "C:\" & DirPathad & "集計"
MkDir DirPathadin
MsgBox "【" & DirPathad & "】の日付でフォルダを作成しました"
End Sub
できました!!
全然見当違いのことをしていたのですね。
恥ずかしい(*。。*)
ありがとうございました。
すばやい解答でとても助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
Excelのハイパーリンクについて...
-
Access VBA で フォルダ権限...
-
デスクトップの画像をhtmlに表...
-
ExcelVBAでフォルダへのハイパ...
-
VBA フォルダ名と画像ファイル...
-
マクロでネットワークドライブ...
-
パス名に2バイト文字(マルチバ...
-
vbsで選択ダイアログを表示した...
-
Hitachi Embedded Workshop (HE...
-
ExcelのVBAでフォルダ指定がで...
-
C#でフォルダをロックする方法
-
Debug フォルダは消していいの?
-
【VBS】古い日付のフォルダを削...
-
クラウドにあるフォルダを共有...
-
pythonでDepixを起動
-
API関数(DLL)の呼び出しにお...
-
多量のファイルをフォルダに自...
-
期間を指定したフォルダの削除...
-
エクセル VBA Filename:=Left(T...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
VBA 最新のフォルダ取得
-
パス名に2バイト文字(マルチバ...
-
会社のネットワーク上のファイ...
-
ファイル名と同名のフォルダを...
-
フォルダ内のPDFファイル名を変...
-
Access VBA で フォルダ権限...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
excelマクロ 冒頭3文字が一致す...
-
C ファイル出力で、フォルダが...
-
Debug フォルダは消していいの?
-
VBA フォルダの複数選択ができない
-
VBプロジェクトでのフォルダ構...
-
ThisWorkbookがあるフォルダ更...
-
EXCELのセルにフォルダのパスの...
-
VBA フォルダ名と画像ファイル...
-
カレントフォルダって?
おすすめ情報