Excel 到 CSV 仅使用 VBA 打印特定列

Question

我有一个 Excel 电子表格，其中包含多列 (A-G)，第 1-26 行包含信息。我正在尝试使用 VBA 脚本仅将 A 列和 D 列转换为 CSV 文件到 A 列和 B 列。我已经能够转换 A 列和 D 列并且 A 处于正确的位置（A 列，第 1-26 行），但 D 列最终出现在 D 列和第 27-52 行中。

将 excel 中的 D 列移动到 CSV 中的 B 列，我缺少什么？任何帮助将不胜感激！请参阅下面我当前的代码：

Dim file As Integer 
Dim filepath As Variant 
Dim filename As Variant 
Dim Row As Integer 
Dim Col As Integer 
Dim Data1 As String 
Dim Data2 As String 
Dim Line As String 
Dim LineValues() As Variant 
Dim OutputFileNum As Integer 
Dim PathName As String 
Dim SheetValues() As Variant 

file = FreeFile 
filepath = "C:\Users\berniea\" 
filename = filepath & "Options" & ".csv" 
Open filename For Output As #file 

SheetValues = Sheets("Features").Range("A1:H26").Value 
Redim LineValues(1 To 8) 

For Row = 2 To 26 
    For Col = 1 To 1 
        LineValues(Col) = SheetValues(Row, Col) 
    Next 
    Data1 = Join(LineValues, ",") 
    Print #file, Data1 
Next 

SheetValues = Sheets("Features").Range("A1:H26").Value 
Redim LineValues(1 To 8) 

For Row = 2 To 26 
    For Col = 4 To 4 
        LineValues(Col) = SheetValues(Row, Col) 
    Next 
    Data2 = Join(LineValues, ",") 
    Print #file, Data2 
Next 

Close #file 

End Sub

Answer 1

我尽量简化了代码。

Sub ColsAD()
    Dim file As Integer: file = FreeFile
    Open "C:\Users\berniea\Options.csv" For Output As #file

    Dim row As Long, line As String
    For row = 2 To 26
        With Sheets("Features")
             line = .Cells(row, 1) & "," & .Cells(row, 4)
        End With
        Print #file, line
    Next
    Close #file
End Sub

Answer 2

我觉得比较简单：

Dim text As String
file = FreeFile
filepath = "C:\Users\berniea\"
filename = filepath & "Options" & ".csv"
Open filename For Output As #file
For Row = 2 To 26
text = text + Cells(Row, 1) & "," & Cells(Row, 4) & vbNewLine
Next Row
Print #file, text
Close #file

Excel 到 CSV 仅使用 VBA 打印特定列

Excel to CSV print specific columns only using VBA

csv

printing

excel

vba

multiple-columns