• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルのマクロを利用して)

エクセルマクロで日報をCドライブに保存する方法

このQ&Aのポイント
  • エクセルのマクロ初心者のための日報保存方法
  • マクロを実行すると、日付と担当者氏名がファイル名になる
  • 保存場所を指定するためのコードの追加方法

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.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

tomo5000
質問者

お礼

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

その他の回答 (2)

  • knmrstkt
  • ベストアンサー率31% (10/32)
回答No.2

ChDir "C:\日報" です。 ドライブの変更は ChDriveを使用

tomo5000
質問者

お礼

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

  • m_and_dmp
  • ベストアンサー率54% (990/1821)
回答No.1

FFileName=Format(Now, "yyyymmdd") & "_" & .Value ActiveWorkbook.SaveAs Filename:="C:\日報\FFileName", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 、で良いのではないかと。FFileNameとしたのは、FileNameが、エクセルの予約語になっている恐れがあるため。

tomo5000
質問者

お礼

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

関連するQ&A

専門家に質問してみよう