[[20200318194012]]　『ＶＢＡ日付で名前をつけて保存』（ピノ）　ページの最後に飛ぶ

『ＶＢＡ日付で名前をつけて保存』（ピノ）

エクセルＶＢＡで教えてください！
初心者ですみません。

ファイルを以下の条件にて名前を付けて保存したいのですが、
日付の取得方法がわかりません。

＜条件＞
　ファイル名：◆＋yymm（前月）＋企業名　例：◆2002企業名

途中まではネットで調べてできたのですが、
前月日付の構文がわからずとまってしまっております。
どなたか、よろしくお願いいたします。

Sub Sample()

    Dim Filename As String

    Filename = "C:\Sample\SampleFile" & Format(Now, "yyyymmdd_hhmmss") & ".xlsm"

    ThisWorkbook.SaveAs Filename

End Sub

＜使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

 参考出品。

 MsgBox Format(DateSerial(Year(Date), Month(Date), 0), "yymm")
（OK） 2020/03/18(水) 19:52

 参考HPです。

https://www.sejuku.net/blog/36936
（OK） 2020/03/18(水) 19:54

 DateSerial(Year(Date), Month(Date), 0),

 DateSerial(今年, 今月, 1)
 ↓
 今月の一日の日付

 DateSerial(今年, 今月, 0)
 ↓
 今月の一日の日付の一日前
 つまり、先月の末日
（OK） 2020/03/18(水) 19:58

 >MsgBox Format(DateSerial(Year(Date), Month(Date), 0), "yymm")

 ↓でも結果は同じになります。

 MsgBox Format(DateSerial(Year(Date), Month(Date) - 1, 1), "yymm")
（OK） 2020/03/18(水) 20:03

 お遊びで。

 MsgBox DateSerial(Year(Date), 13, 32)
（OK） 2020/03/18(水) 20:06

OK様
ありがとうございます！
いただいた構文、
Format(DateSerial(Year(Date), Month(Date) - 1, 1), "yymm")
にてなんだかできそうなのですが、

最後の構文で実行時エラー ‘1004’が発生してしまいました。。
「 ThisWorkbook.SaveAs Filename」

ｴﾗｰコメント：
SaveAsメソッドは失敗しました＿’Workbook’オブジェクト

原因わかりましたら教えていただきたいです。。。
他の質問になりすみません。
（ピノ） 2020/03/18(水) 20:46

 >＜ 使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

 これ本当ですか？
（OK） 2020/03/18(水) 21:01

 ↓のフォルダが存在しないと当然エラーになります。
 "C:\Sample\"
（OK） 2020/03/18(水) 21:11

OK様
有難うございます。
拡張子をxlsxに変更してしまっていたために、エラーが発生しておりました。
xlsmに戻したら出来ました！
ただ変更で申し訳ありませんが、できればxlsxで保存をしたいです。。
やり方TRY中なので、不明であれば
改めて質問投稿させていただきたいと思います。
前月は取れたので、助かりました！
有難うございます！
（ピノ） 2020/03/20(金) 14:44

 >>＜ 使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

 >これ本当ですか？

 これにお答えいただけないので、エクセルはWindows用との前提で
 回答します。

 マクロ付ブックはxlsx形式では保存できません。
 制御用のマクロブックからマクロ無しブックの保存作業を行うか、保存
 形式を指定してマクロ無しブックとして保存することになります。
 後者の方はマクロの自動記録が参考になると思います。
（OK） 2020/03/20(金) 15:01

OK様
質問に回答しておらず
申し訳ありません。
おっしゃる通り、MacではなくWindows使用です。
アドバイスいただいた形で自動記録を参照したところ、
xlsxでの保存ができました。
何度もすみませんでした、有難うございます。

（ピノ） 2020/03/20(金) 15:53

コメント返信：

[ 一覧(最新更新順) ]

[[20200318194012]] 『ＶＢＡ日付で名前をつけて保存』（ピノ） ページの最後に飛ぶ

[[20200318194012]]　『ＶＢＡ日付で名前をつけて保存』（ピノ）　ページの最後に飛ぶ