Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2081 / 76734

←次へ　｜　前へ→


	【80297】Re:フォルダを作成し、さらにファイル名をつけて保存＆格納

you - 19/1/12(土) 12:03 -


	引用なし

	パスワード

参照したURLを元にさっそく試してみました。

Sub Test

(1)
SaveDir="\\ここに保存したいです\"&
Format(WorksheetFunction.EDate(Date, -3), "yyyy年_m月分")

(2)
If Dir(SaveDir, vbDirectory)="" Then
　 Mkdir SaveDir
End If

(3)
SaveDir="\\ここに保存したいです\"&
Format(WorksheetFunction.EDate(Date, -3), "yyyy年_m月分")&
Format(WorksheetFunction.EDate(Date, -3), "yyyy年_m月分_売上")&".xls"_
,FileFormat:=xlExcel8,CreateBackup:=False

End Sub

質問。
(1)と(2)で3か月前のフォルダが作れるのは問題なかったのですが、本来は(3)で
「2018年_10月分_売上」というファイル名のデータをこのフォルダに格納したいのですが、上手くいきません。しかもファイル名が2018年10月分_2018年10月分_売上という変なファイル名になってしまいます・・。

お手数ですが、ご教授願います。

9 hits

▼

【80294】フォルダを作成し、さらにファイル名をつけて保存＆格納 you 19/1/10(木) 11:15