vba - 从表中导出为 CSV、非连续列

Question

我正在尝试编写一个 VBA 宏来将表的内容导出到 csv 文件。我想只包括某些列而忽略所有其他列。我的代码适用于单个列(在下面的示例中为 col_a )，但在尝试导出多个列时失败(例如 col_a 和 col_c )。

Sub saveTableToCSV()

    Dim tbl As ListObject
    Dim csvFilePath As String
    Dim fNum As Integer
    Dim tblArr
    Dim rowArr
    Dim csvVal

    Set tbl = Worksheets("primary").ListObjects("main")
    csvFilePath = "C:\Users\USERNAME\Downloads\testsheet.csv"

    Application.DisplayAlerts = False
    tblArr = Range("main[[col_a]]").Value

    fNum = FreeFile()
    Open csvFilePath For Output As #fNum
    For i = 1 To UBound(tblArr)
        rowArr = Application.Index(tblArr, i, 0)
        csvVal = VBA.Join(rowArr, ",")
        Print #1, csvVal
    Next
    Application.DisplayAlerts = False

    Close #fNum
    Set tblArr = Nothing
    Set rowArr = Nothing
    Set csvVal = Nothing
End Sub

我的数据示例如下。表名是“main”，工作表名是“primary”:

-------------------------
| col_a | col_b | col_c |
-------------------------
|   1   |   2   |   3   |
|   4   |   5   |   6   |
-------------------------

我想要的输出将是一个 csv 文件，如下所示:

a,c
1,3
4,6

谁能指出我做错了什么？谢谢。

Answer 1

替换该行

tblArr = Range("main[[col_a]]").Value

用这两行

    tblArr = tbl.DataBodyRange.Value
    tblArr = Application.Index(tblArr, Evaluate("ROW(1:" & UBound(tblArr) & ")"), [{1,3}])