使用excel-vba将工作表范围导出到csv

Question

我正在使用宏通过宏从Excel导出到CSV文件，以便根据工作表中单元格单元格中的数据来命名文件，而该单元格将不构成CSV数据的一部分，而仅构成文件名：

Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Path = "T:\Richards Reports\MG Orders\"
FileName1 = Range("A1")
FileName2 = Range("O1")
FileName3 = Range("M1")
ActiveWorkbook.SaveAs FileName:=Path & FileName1 & "_" & FileName2 & "_" &       FileName3 & ".txt", FileFormat:=xlCSV
End Sub

但是，我需要能够将输出限制在特定范围内，例如I6至I60单元，我正在努力寻找一种实现此目的的方法，任何建议都值得赞赏。 TIA邓肯

Answer 1

一种方法是连接单元格中的值（之间用逗号分隔）并手动保存：

Dim content As String
Dim rng As Range
Set rng = Range("A1:E2")

For Each cell In rng
    content = content & "," & cell.Value
    'if we go to another row insert semicolon
    If cell.Column = rng.Columns.Count Then
        content = content & ";"
    End If
Next cell

content = Right(content, Len(content) - 1) 'remove unnecessary comma at the beginning

Set FSO = CreateObject("Scripting.FileSystemObject")
'don't forget to insert your file path here
Set wfile = FSO.CreateTextFile("YourPathHere", 2) 'connection for writing

wfile.WriteLine content
wfile.Close

在这里，我使用逗号（，）作为字段分隔符，使用分号（;）作为行分隔符，您可以根据需要进行更改。 另外，将范围设置为要保存的范围。

Answer 2

这是将所选范围保存到.csv的代码

Sub saveSelection2csv()
Dim range2save As Range
Dim filename As Range
Dim dataRow As Range
Dim dataRowArr() As Variant

    Set filename = Worksheets("Arkusz1").Range("A1")

    Open ThisWorkbook.Path & "\" & filename.Value & ".csv" For Output As #1

    For Each dataRow In Selection.Rows
        dataRowArr = dataRow.Value
        dataRowArr = Application.Transpose(Application.Transpose(dataRowArr))
        Print #1, Join(dataRowArr, ",")
    Next

    Close #1
End Sub