エクセルのマクロを利用して

質問

マクロ初心者でです。
いろんなサイトから引用させて頂き次のようなマクロを作成しました。
実行すると、日付と担当者氏名(A1)がファイル名となるものです。
そこで教えて頂きたいのですが、実行すると保存先がマイドキュメントに
なるのですが、これを例えば「C:\日報」というフォルダが指定されるようにしたいのですが、
自分なりに、いろいろ試したのですが全くできません。 宜しくお願い致します。

Sub 名前をつけて保存()

Dim SaveFileName As String, re As Variant
With Sheets("sheet1").Range("A1")
If .Value = "" Then
MsgBox "名前が入力されていません", vbExclamation
Exit Sub
Else
SaveFileName = Format(Now, "yyyymmdd") & "_" & .Value

End If
End With
re = Application.GetSaveAsFilename(SaveFileName)
If re = False Then
MsgBox "保存を中止しました", vbExclamation
Else
MsgBox "日報をを保存しました", vbInformation
End If
End Sub

回答No.3

merlionXX · ベストアンサー

先頭に
ChDir "C:\日報\"
を入れてみてください。
でも、お書きのコードだけでは保存されませんよ。（ご存知とは思いますが）

もし、アクティブなBOOKを名前を付けて保存するのなら

Sub 名前をつけて保存02()
　　With Sheets("sheet1").Range("A1")
　　　　If .Value = "" Then
　　　　　　MsgBox "名前が入力されていません", vbExclamation
　　　　　　Exit Sub
　　　　Else
　　　　　　ActiveWorkbook.SaveAs Filename:= _
　　　　　　　　"C:日報\" & Format(Now, "yyyymmdd") & "_" & .Value & ".xls", FileFormat:=xlNormal
　　　　End If
　　End With
End Sub

お礼

早速の対応ありがとうございます。
まさにこの動きです。
保存のときにワンアクションあるのも気に入らなかったんです。
自分で調べることは大切なことですが、悩み煮詰めてどうしてものときは
またお世話になるかも知れませんが宜しくお願い致します。

回答No.2

knmrstkt

ChDir "C:\日報"
です。

ドライブの変更は
ChDriveを使用

お礼

敏速な対応ありがとうございます。
やっぱりChDirで指定してするのですよね・・・。
試してみたつもりだったのですが・・・。
文節を間違えたのかな？
参考になりました。 ありがとうございます。

回答No.1

m_and_dmp

FFileName=Format(Now, "yyyymmdd") & "_" & .Value
ActiveWorkbook.SaveAs Filename:="C:\日報\FFileName", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

、で良いのではないかと。FFileNameとしたのは、FileNameが、エクセルの予約語になっている恐れがあるため。

お礼

俊敏な対応ありがとうございます。
もしかするとベストなマクロなのかも知れませんが、
マクロ初心者のため、ドウ付け加えれば良いのか・・・。
デバッグになってしまいます。
参考にさせて頂きます。
本当にありがとうございます。