excel - VBA Print #1 选择范围(用于从 Excel 导出到文件)？

Question

我有一个简单的宏，可以将所需的单元格导出到 txt 文件。我可以选择一系列单元格，而不是单独告诉宏我要导出哪些单元格吗？

这是我的非常简单的代码:

Sub TEST()
    Open "C:\text.txt" For Output As #1
        Print #1, Cells(1, 1) & Cells(1, 2)
        Close
End Sub

这样我就可以导出 Excel 工作表单元格 A1、A2。但如果我想导出大范围的单元格，这个方法就不太方便了。那么有没有办法可以轻松导出单元格 A1:A100？

谢谢!

Answer 1

我看到 joseph4tw 已经回复了，但我的回答有点不同，可能会给你另一个想法，所以我还是把它放在这里。

Sub TEST()
    Dim c As Range, r As Range
    Dim output As String
    For Each r In Range("A1:C3").Rows
        For Each c In r.Cells
            output = output & c.Value & ","
        Next c
        output = output & vbNewLine
    Next r
    Open "H:\My Documents\text.txt" For Output As #1
    Print #1, output
    Close
End Sub