Question

Excel如何用VBA把A1列的内容写入到TXT文本里

Answer 1

sub 宏1()
    dim arr,i
    arr=range("a1").currentregion
    open "1.txt" for output as #1
    for i=1 to ubound(arr)
        print #1, arr(i,1)
    next i
    close #1
end sub

Answer 2

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+q
'
Dim i As Long
Dim abc, xtxt, n
Set abc = CreateObject("scripting.filesystemobject")
Set ntxt = abc.opentextfile("d:\n.txt", 8, True)
ntxt.writeline n '数据写入文本文档"d:\n.txt"
For i = 1 To 100
ntxt.writeline Range("A" & i).Value
Next i
ntxt.Close
Set abc = Nothing
End Sub