如何实现将表格部分列另存为CSV文件

xxinganling

请教如何实现将较多行列的大表部分列（如D列到H列）另存为CSV文件？谢谢！

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Dim sht As Worksheet
    Dim i As Integer, j As Integer
    Dim arr()
    Dim line As String
    Set sht = Sheet1
    arr = Intersect(sht.Range("a1").CurrentRegion, sht.Columns("d:h"))
    Open ThisWorkbook.Path & "\" & sht.Name & ".csv" For Output As #1
    For i = 1 To UBound(arr)
        line = ""
        For j = 1 To UBound(arr, 2)
            line = line & arr(i, j) & ","
        Next
        line = Left(line, Len(line) - 1)
        Print #1, line
    Next
    Close
    Beep
End Sub

gwjkkkkk

请参考。。。

gwjkkkkk

请参考。。。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

xxinganling

谢谢quqiyuan！谢谢gwjkkkkk！谢谢ykcbf1100！因为你们，这个冬夜不再寒冷，祝福你们！！！

blackttea1

如果不是要求将连续的区域，比如将A、D列的内容输出为.csv文件，程序应作那些改动呢？

quqiyuan

blackttea1 发表于 2024-10-16 08:20
如果不是要求将连续的区域，比如将A、D列的内容输出为.csv文件，程序应作那些改动呢？

如果看我的代码，修改一下这两个地方，仅供参考。。。