CSV形式で保存する

 

Sub test()

    Dim myFileName As String
    ’   保存先フォルダパス&ファイル名
    myFileName = ThisWorkbook.Path & "\test1.CSV"
   
    ThisWorkbook.SaveAs _
        fileName:=myFileName, FileFormat:=xlCSV, local:=True
   

End Sub

 

※ 赤文字のtest1を保存したいファイル名に変えれば、実務の資料でも対応できます。ただ、単一ファイルをこのコードだとあまり効果がないです。この場合、For~Next文と組み合わせれば、大量なファイルを一括CSV出力ができ、作業効率の向上が期待できます。

 

関連記事 

 

 

VBA 繰り返し処理For Next

VBA セル罫線操作(罫線太さや色)

VBA セル罫線操作(罫線種類)

VBA セル罫線操作(罫線位置)

VBA セルの操作 文字書体設定

VBA セルの操作 もじ色の設定

VBA セルの操作 背景色の設定

VBA セルの操作 値の代入

VBA始める前の準備

VBAとは?

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る