Excel Table to CSV specific columns only

[cerberus1845]

Hi,

I've found the following code:

Sub saveTableToCSV()
    
    Dim tbl As ListObject
    Dim csvFilePath As String
    Dim fNum As Integer
    Dim tblArr
    Dim rowArr
    Dim csvVal

    Set tbl = Worksheets("YourSheetName").ListObjects("YourTableName")
    csvFilePath = "C:\Users\vmishra\Desktop\CSVFile.csv"
    tblArr = tbl.DataBodyRange.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
    Close #fNum
    Set tblArr = Nothing
    Set rowArr = Nothing
    Set csvVal = Nothing
End Sub

Does anyone know how I would edit the above to not output the entire table - but instead all data in columns B to L?? - I've tried tweaking it - but can't seem to get it to work...

 

[Cubist]

Try this.

tblArr = tbl.Range.Columns("B:L").Value

...or this.

tblArr = tbl.ListColumns(2).DataBodyRange.Resize(, 10).Value

 

[cerberus1845]

Try this.

tblArr = tbl.Range.Columns("B:L").Value

...or this.

tblArr = tbl.ListColumns(2).DataBodyRange.Resize(, 10).Value

awesome!! - went with the first option and works perfectly!!! - thanks for taking the time to reply and helping me with this.. marked your comment as the accepted solution!