• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:EXCEL マクロ 自動でファイル名をつける方法を教えてください )

Excelマクロでファイル名を自動でつける方法とは?

このQ&Aのポイント
  • Excelマクロで新規ファイルの保存名を自動的に付ける方法を教えてください。元のファイルの一部のシートを新規ファイルで保存し、そのファイル名を自動で作成したいです。具体的には、新規ファイルのシートのセルの値に既定の単語を追加してファイル名を作成したいです。
  • Excelのマクロを使用して、新規ファイルのファイル名を自動的に付ける方法を教えてください。元のファイルから一部のシートを新規ファイルに保存し、新規ファイルのシートのセルの値に既定の単語を追加してファイル名を作成したいです。
  • Excelのマクロを使って、新規ファイルに自動的にファイル名を付ける方法を教えてください。元のファイルから特定のシートを新規ファイルに保存し、新規ファイルのシートのセルの値に既定の単語を追加してファイル名を作成したいです。

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

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.2

一例です Sub test() Dim 保存場所 As String Dim ファイル名 As String 保存場所 = "c:\test\test\" ファイル名 = Worksheets("シート1").Range("B3").Value & "見積書" & ".xls" ActiveWorkbook.SaveAs 保存場所 & ファイル名 End Sub

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

その他の回答 (1)

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

仮にSheet1を分離して別ファイルにSheet1のB3の数字+"見積書"という名で保存する場合の一例です。 ファイルを保存する場所も出てくるダイアログで指定できます。 Sub Sample01() Dim myStr As String With Sheets("Sheet1") myStr = .Range("B3").Value & "見積書" .Move End With Application.Dialogs(xlDialogSaveAs).Show Arg1:=myStr & ".xls", ARG2:=1 End Sub

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

関連するQ&A

専門家に質問してみよう