#新規ファイルを作成して名前を付けて保存する

##自動的にその時の日付・時刻をファイル名にするプログラム

VBA

    '新しいファイルを作成
    Dim wb1 As Workbook
    Set wb1 = Workbooks.Add
    Set wb1 = ActiveWorkbook
    
    wb1.SaveAs Filename:="book1.xlsx"
    Debug.Print (wb1.Name)
    'ファイル名作成
    Dim strFileName As String
    strFileName = "好きな名前_" & Format(Now, "yyyymmddhhmmss") & ".xlsx"
   
    'ファイルパス指定
    Dim strFilePath As String
    strFilePath = ActiveWorkbook.Path & "\" & strFileName
    
    Set wb1 = ActiveWorkbook
'    ファイル保存
    ActiveWorkbook.SaveAs Filename:=strFilePath, _
                       FileFormat:=xlOpenXMLWorkbook

###日付・時刻をファイル名に入れる際のポイント

Format(Now, "yyyymmddhhmmss") を書くこと。

##保存したファイル名をダイアログボックスに表示するプログラム

VBA


    '完了メッセージ
    MsgBox "ファイルの保存が完了しました" & vbCrLf & _
          "保存先は" & strFilePath & "です。"

##データを参照するためのcsvファイルを開くプログラム
以下のプログラムでは、あとから好きなcsvファイルを開くことができます。

VBA


'使用するCSVファイルを読む
    Dim wb2 As Workbook
    Dim OpenFileName As String
    MsgBox "参照するためのcsvデータを選択してください。" & vbCrLf & "※ただし拡張子はcsvのみ。", vbOKOnly + vbInformation
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.csv?")
    Set wb2 = Workbooks.Open(OpenFileName)
    Debug.Print Application.ActiveWorkbook.Name