シートをＣＳＶファイルとして保存する

Sub save_data()
    Dim fname As String
    fname = <filename>
    Dim row_count As Integer

    ' コピー、ブック追加、貼り付け、保存
    Workbooks.Add
    Workbooks(1).Sheets("SheetName").Range(COL_DEKI & SHEET_OFFSET & ":" & COL_DEKI & row_count).Copy
    ActiveSheet.Range(COL_DEKI & SHEET_OFFSET).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        CURRENT_PATH & ETC_PATH & "\" & fname, FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True
End Sub