• ベストアンサー

ExcelVBA 名前をつけて保存について

ダイアログボックスを出さずに、指定した場所に、~年~月~日.xlsという名前で保存したいのですが、どのようにかけばよろしいですか?

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

  • ベストアンサー
  • masa_019
  • ベストアンサー率61% (121/197)
回答No.1

こんにちは。 以下のような感じでどうでしょう? Sub test() Dim strPath As String Dim strName As String '保存場所 strPath = "F:MyDocuments" 'ファイル名 strName = Format(Date, "ggge年m月d日") & ".xls" ActiveWorkbook.SaveAs Filename:=strPath & "\" & strName End Sub

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.2

fname = "C:\" & Format(Date, "yyyy年mm月dd日") & ".xls" ActiveWorkbook.SaveAs fname, xlWorkbookNormal

すると、全ての回答が全文表示されます。

関連するQ&A