- ベストアンサー
エクセルマクロで日報をCドライブに保存する方法
- エクセルのマクロ初心者のための日報保存方法
- マクロを実行すると、日付と担当者氏名がファイル名になる
- 保存場所を指定するためのコードの追加方法
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
先頭に 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
その他の回答 (2)
- knmrstkt
- ベストアンサー率31% (10/32)
ChDir "C:\日報" です。 ドライブの変更は ChDriveを使用
お礼
敏速な対応ありがとうございます。 やっぱりChDirで指定してするのですよね・・・。 試してみたつもりだったのですが・・・。 文節を間違えたのかな? 参考になりました。 ありがとうございます。
- m_and_dmp
- ベストアンサー率54% (990/1821)
FFileName=Format(Now, "yyyymmdd") & "_" & .Value ActiveWorkbook.SaveAs Filename:="C:\日報\FFileName", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 、で良いのではないかと。FFileNameとしたのは、FileNameが、エクセルの予約語になっている恐れがあるため。
お礼
俊敏な対応ありがとうございます。 もしかするとベストなマクロなのかも知れませんが、 マクロ初心者のため、ドウ付け加えれば良いのか・・・。 デバッグになってしまいます。 参考にさせて頂きます。 本当にありがとうございます。
お礼
早速の対応ありがとうございます。 まさにこの動きです。 保存のときにワンアクションあるのも気に入らなかったんです。 自分で調べることは大切なことですが、悩み煮詰めてどうしてものときは またお世話になるかも知れませんが宜しくお願い致します。