[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロで自動的に日付で名前を付けて保存』（しゅしゅ）
希望としては「2020.09.04(〜)個人別日単位」というファイル名にしたいです。
エラーが出まくってますので、今は以下のようにしています。
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\〇〇\〇〇\(〜)個人別日単位.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
色々調べてやってみましたが、何かしらエラーが出てしまって、日付をファイル名にできません。
個人別日単位の前に format(date, "yyyy.mm.dd")& とかも試しましたが、結果的にyyyyのところで「コンパイルエラー 修正候補：ステートメントの最後」というエラーが出たり、一番下のFileFormat:=の「:=」のところで「コンパイルエラー 修正候補：式」というエラーが出たりします。
マクロの知識全くなくて、記録を使っている程度の初心者ですが、よろしくお願い致します。
＜ 使用 Excel：Excel2002、使用 OS：Windows 10 Pro ＞
>format(date, "yyyy.mm.dd")& とかも試しましたが、結果的にyyyyのところで「コンパイルエラー
？？？？？ これだけで試してみましたか？
msgbox format(date, "yyyy.mm.dd")
（Why） 2020/09/04(金) 11:29
Dim folderPath As String, baseName As String folderPath = "C:\Users\〇〇\〇〇\" baseName = "(〜)個人別日単位.xlsx" ActiveWorkbook.SaveAs FileName:=folderPath & Format(Now(), "yyyy.mm.dd") & baseName （tkit） 2020/09/04(金) 11:33
色々調べてみましたが、見たもの全部format(date, "yyyymmdd")だったのでこれしか使っていません。
一応これを(〜)個人別日単位の前に入れたり、「A=(〜)個人別日単位」を使って、
Filename:= _
"C:\Users\〇〇\〇〇\Format(Date , "yyyy.mm.dd") & A.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
とか、場所を変えてみたらもしましたが全てエラーが出てました...。
msgbox formatは初めて見ます、一回それについて調べてみます。
ありがとうございます！
ありがとうございます！そのまま使ってみました。
ファイル名はちゃんと希望通りになって問題なく保存できました！
しかしシート3つあるうち、1つ目のシートの名前もファイル名と同じようになってしまいました。
これはどこをどう修正したらいいんでしょうか。
ちなみにシートの名前は前の方で直してあって、そこは特に変わっていません。↓
Sheets("□□").Name = "〇〇"
よろしくお願い致します。
（しゅしゅ） 2020/09/04(金) 12:16
最後のFileFormat:=xlOpenXMLWorkbook, CreateBackup:=Falseを戻しましたらエラーなど全く問題ありませんでした！
ありがとうございました！
（しゅしゅ） 2020/09/04(金) 14:06
追加された以下のコードは、それぞれファイル形式とバックアップファイルですので、 シート名は関係ないんですけどね・・・ ActiveBookがマクロ有効ブック(xlsm)だった場合、Excelブック(xlsx)で保存しようと するとポップアップは出ますけど。
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False （tkit） 2020/09/04(金) 14:30
名前つけて保存するコードの直前に、シートを選択というコードが入っていました。それでシート名も変わってしまったのかな...
それと保存できたものの開けない、ファイル形式または拡張子が違うというエラーが出ていました。
それでとりあえず最後のコードを戻してみました。
そしたらなぜかシート名が変わることもなくなりました。
（しゅしゅ） 2020/09/04(金) 14:55
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.