excel - 使用 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

这是将选定范围保存到 .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