Excel VBAでファイルを指定させて保存する処理
 2007.10.02

VBAで加工したファイルを、  ・元ファイルは元の状態(加工前の状態)にしたい  ・加工後ファイルは別ファイルとして保存したい  ・保存名、場所は指定したい という場合の処理です。
    Dim strFN As String
    strFN = Application.GetSaveAsFilename(ActiveSheet.Name & "_" & Replace(Date, "/", "") ,_
     FileFilter:="CSV ファイル (*.csv), *.csv")
    If strFN <> "False" Then
        ActiveWorkbook.SaveAs strFN, FileFormat:=xlCSV
    End If
    ActiveWorkbook.Close SaveChanges:=False
今回はCSVを加工して、CSVのまま保存したかったので上記のような記述です。
カテゴリー:技術情報メモ