43本目 csv出力

VBA100本ノック 43本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック 43本目
表範囲をCSV出力してください。
・A列:yyyy-mm-dd
・B列:カンマなし整数
・C列:カンマなし小数2桁
・D列:文字列 (適宜ダブルクォートで囲む)
※画像はあくまで1例です。
CSVファイルはブックと同一フォルダに出力(SJIS)。
※出力ファイルおよびブック・シートの指定は任意

解答

Sub csvで保存()
    
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Dim sName As String
    sName = Replace(ThisWorkbook.FullName, ".xlsm", ".csv")
    
    wb.SaveAs Filename:=sName, FileFormat:=xlCSV
        
End Sub