Excel VBA質問箱 IV

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

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


103 / 13309 ツリー ←次へ | 前へ→

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

【80296】Re:フォルダを作成し、さらにファイル名を... you 19/1/10(木) 22:22 お礼[未読]
【80297】Re:フォルダを作成し、さらにファイル名を... you 19/1/12(土) 12:03 質問[未読]
【80298】Re:フォルダを作成し、さらにファイル名を... マナ 19/1/12(土) 13:39 発言[未読]
【80299】Re:フォルダを作成し、さらにファイル名を... you 19/1/12(土) 19:32 発言[未読]
【80300】Re:フォルダを作成し、さらにファイル名を... you 19/1/15(火) 20:17 質問[未読]
【80301】Re:フォルダを作成し、さらにファイル名を... マナ 19/1/16(水) 18:32 発言[未読]
【80302】Re:フォルダを作成し、さらにファイル名を... you 19/1/17(木) 23:07 発言[未読]
【80304】Re:フォルダを作成し、さらにファイル名を... マナ 19/1/18(金) 18:20 発言[未読]
【80307】Re:フォルダを作成し、さらにファイル名を... you 19/1/19(土) 21:33 発言[未読]
【80310】Re:フォルダを作成し、さらにファイル名を... マナ 19/1/21(月) 21:01 発言[未読]
【80311】Re:フォルダを作成し、さらにファイル名を... you 19/1/21(月) 21:54 お礼[未読]

【80296】Re:フォルダを作成し、さらにファイル名...
お礼  you  - 19/1/10(木) 22:22 -

引用なし
パスワード
   マナさん

おぉ、さっそくありがとうございます。
今、officeが使える環境ではないので、
明日さっそく試してみます。
また何かありましたら質問させていただきます。

【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月分_売上という変なファイル名になってしまいます・・。

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

【80298】Re:フォルダを作成し、さらにファイル名...
発言  マナ  - 19/1/12(土) 13:39 -

引用なし
パスワード
   ▼you さん:

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

>しかもファイル名が2018年10月分_2018年10月分_売上という変なファイル名になってしまいます・・。
>

フォルダ名とファイル名の間に、区切りの \ が抜けていませんか?

【80299】Re:フォルダを作成し、さらにファイル名...
発言  you  - 19/1/12(土) 19:32 -

引用なし
パスワード
   マナさん

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

ご指摘ありがとうございます。
こういうことでしょうか?
すいません、現在officeが使える環境でないので、
試せるのが火曜日になってしまいます。

初心者で申し訳ありませんがよろしくお願いします。

【80300】Re:フォルダを作成し、さらにファイル名...
質問  you  - 19/1/15(火) 20:17 -

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

これで試してみたのですが、やはりフォルダは出来ているのですが、
フォルダと同じ階層に2018年10月分2018年_10月分_売上のファイル名で出来てしまいました・・。
フォルダに格納したいのですが・・。

う〜ん・・よく分からないです。

【80301】Re:フォルダを作成し、さらにファイル名...
発言  マナ  - 19/1/16(水) 18:32 -

引用なし
パスワード
   ▼you さん:

>う〜ん・・よく分からないです。

最終的にどんな文字列にする必要があるか理解できていますか。
理解できていれば、あとは試行錯誤でなんとかなります。

Sub test()
  Dim SaveDir As String
  
  SaveDir = Format(WorksheetFunction.EDate(Date, -3), "yyyy年_m月分")
  MsgBox SaveDir
  
  '保存場所
  MsgBox "\\ここに保存したいです\" & SaveDir
  '保存ファイル名
  MsgBox SaveDir & "_売上.xls"
  
  MsgBox "\\ここに保存したいです\" & SaveDir _
      & "\" & SaveDir & "_売上.xls"
  
End Sub

【80302】Re:フォルダを作成し、さらにファイル名...
発言  you  - 19/1/17(木) 23:07 -

引用なし
パスワード
   マナさん

ありがとうございます。
初心者なのでかなり苦労しています。
お手数かけてすいません。

Sub test()
Dim SaveDir As String
 
SaveDir = Format(WorksheetFunction.EDate(Date, -3), "yyyy年_m月分")

MkDir "\\ここに保存したいです\" & SaveDir

ActiveWorkbook.SaveAs"\\ここに保存したいです\" & SaveDir _
& "\" & SaveDir & "_売上.xls"_
,FileFormat:=xlExcel8,CreateBackup:=False

End Sub

これで試すと、
「実行時エラー:1004 SaveAsメソッドは失敗しました。Workbookオブジェクト」
となってしまいました・・。

【80304】Re:フォルダを作成し、さらにファイル名...
発言  マナ  - 19/1/18(金) 18:20 -

引用なし
パスワード
   ▼you さん:

問題ないようにみえます。
手動では、保存できるのでしょうか。

【80307】Re:フォルダを作成し、さらにファイル名...
発言  you  - 19/1/19(土) 21:33 -

引用なし
パスワード
   マナさん

いえ、手動で行ったところ、あのメッセージが出ました・・
環境の問題なのでしょうか・・

【80310】Re:フォルダを作成し、さらにファイル名...
発言  マナ  - 19/1/21(月) 21:01 -

引用なし
パスワード
   ▼you さん:

>いえ、手動で行ったところ、あのメッセージが出ました・・

あのメッセージとは?

【80311】Re:フォルダを作成し、さらにファイル名...
お礼  you  - 19/1/21(月) 21:54 -

引用なし
パスワード
   マナさん

あのメッセージとは
>「実行時エラー:1004 SaveAsメソッドは失敗しました。Workbookオブジェクト」
です。

ですが、今日試したところ、上手くいきました!
何か一部の文字を弄ったら上手くいきました。
色々手伝ってくださりありがとうございました!

103 / 13309 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free