エクセルのマクロでこんな風に設定したい。

質問

保存するときに、指定したフォルダで「ファイル名をつけて保存」の画面のままで、ファイル名の欄は常に「calus.xls」のままで表示させておくことはできるでしょうか？

ファイル名の最初の「calus_」は常に同じなので
後の「***」部分を替えて保存できればいいだけなのですが。
　calus_***.xls
　calus_***.xls

よろしくお願いします。

回答No.3

sakenomo · ベストアンサー

papayukaさんのを参考に、ちょっと考えて見ました。
こんなのでいかがでしょうか。
アクティブシートのＡ1の内容が、***に入ります。

Sub Test2()
　　Dim FName
　　ChDrive "C"
　　ChDir "C:\Test"
　　FName = Application.GetSaveAsFilename _
　　　　　　　("calus.xls", "xls (*.xls), *.xls")
　　If FName <> False Then
　　　　ThisWorkbook.SaveAs Filename:=Left _
　　　　　(FName, Len(FName) - 4) & "_" & Range("A1").Value
　　End If
End Sub

お礼

ありがとうございました。丁度、***の部分には番号をいれていこうと思っていたので助かりました。

回答No.2

papayuka

こんにちは。

ちょっと違うかも知れませんが。。。
DドライブにTestフォルダがあるとして、

Sub Test()
Dim FName
　ChDrive "D"
　ChDir "D:\Test"
　FName = Application.GetSaveAsFilename("calus.xls", "xls (*.xls), *.xls")
　If FName <> False Then
　　 ThisWorkbook.SaveAs FName, xlWorkbookNormal
　End If
End Sub

お礼

できました。ありがとうございます★
CSV形式で保存する際にも同様にしたいのですが、
ファイル形式を単にcsvに変えただけでは
だめなんですね。テキストで確認したら文字化けしてしまいました。。

回答No.1

taknt

マクロでは ちょっと難しいかもしれません。

calus_.xlsというファイルを一つ 作っておいて、
「ファイル名をつけて保存」の画面を出したときに
最初に calus_.xls のファイルを選択してから
ファイル名を変更すればいいと思います。

お礼

ありがとうございました。