Question

使用VBA将EXCEL中部分行列导出到txt文件

本人不懂VBA，在论坛撸了一串代码，导出到TXT文件，可以实现，但是数据更新后，导出的数据还是第一次执行的数据，求懂行的救急！万分感谢！





Answer 1

答：导出的数据不变的原因是程序读取的总是之前保存的文件中的值。

我重写了下代码，生成的文件名是：结果.txt，放在桌面上。

Sub ExlportText()
    Dim Rng As Range
    Set Rng = Range("H9") ''红框线内左上角单元格，我猜的
    Open "C:\Users\my\Desktop\结果.txt" For Output As #1
    Do Until IsEmpty(Rng)
        Print #1, Rng & Rng.Offset(0, 1)
        Set Rng = Rng.Offset(1, 0)
    Loop
    Close #1
End Sub