自定义导出Excel到文本文件

Question

Is there a way, or a script, that will allow me to take a single column of data from an Excel file, and export it to a text file so that each field is separated by a comma and word space—in a single action. Using the Save As csv in Excel still requires you to open the file in an editor and perform a search/replace to achieve this but that requires a second, and needless, step.

The result I'm looking for when exporting a COLUMN from Excel would look like this:

field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field, field

Answer 1

Something like this perhaps?

Supply your own filepath and filename. Assumes data starts at row 2 in col B in Sheet1, but you can change these variables to suit in the code.

Sub WriteCSVFile()

Dim ws As Worksheet
Dim fName As String, Txt1 As String
Dim fRow As Long, lRow As Long, Rw As Long
Dim Col As Long

Set ws = Sheets("Sheet1")
fName = "C:\yourpath\yourfilename.csv"
fRow = 2
Col = 2
Txt1 = ""

    With ws
        lRow = .Cells(Rows.Count, Col).End(xlUp).Row

        Open fName For Output As #1

            For Rw = fRow To lRow
                Txt1 = .Range(.Cells(Rw, Col), .Cells(Rw, Col))
                    If Rw = lRow Then
                        Print #1, Txt1
                    Else
                        Print #1, Txt1 & ", ";
                    End If
            Next Rw

        Close #1

        MsgBox ".csv file exported"

    End With
End Sub

There is a tutorial here if you want further explanation.

Answer 2

Sub WriteCSVFile()

' Declare variables Dim ws As Worksheet Dim fName As String, Txt1 As String Dim fRow As Long, lRow As Long, Rw As Long Dim Col As Long

' Get active sheet Set ws = ActiveWorkbook.ActiveSheet

' Ask user for output file fName = Application.GetOpenFilename()

' Stop processing if no file specified If fName = "False" Then Exit Sub

' Start row fRow = 1

' Start column Col = 1

' Output temp Txt1 = ""

With ws
    ' Get data from sheet
    lRow = .Cells(Rows.Count, Col).End(xlUp).Row

    ' Open output file
    Open fName For Output As #1

        ' Loop rows of data
        For Rw = fRow To lRow
            ' Store data in temp
            Txt1 = .Range(.Cells(Rw, Col), .Cells(Rw, Col))
                ' Check if end of dataset and write data to output accordingly 
                If Rw = lRow Then
                    Print #1, Txt1
                Else
                    Print #1, Txt1 & ", ";
                End If
        Next Rw

    ' Close output file
    Close #1

     ' Alert user of completion
    MsgBox ".csv file exported"

End With

End Sub