excel宏 怎么写代码 把当前选中的区域内容 保存到指定的D:\a.txt文本

Question

如题所述

Answer 1

用一个循环就搞定了。
Sub save2Txt()
Dim f As String
Dim BigString As String

Range("C1:F9").Select

BigString = ""

For Each r In Selection
BigString = BigString & " " & r.Value
Next r

f = ThisWorkbook.Path & "\a.txt"

Open f For Output As #1

Write #1, BigString

Close #1

End Sub