如何用数组方式将EXCEL内容输出到TXT文本

taikong · 发表于 2006-11-9 10:20

为什么现在没法看到上传的附件了？

[此贴子已经被作者于2006-11-12 12:05:11编辑过]

taikong · 发表于 2006-11-9 21:50

有这么难吗？

有没有现成的帖子，我找了一遍，没发现。

taikong · 发表于 2006-11-10 10:49

taikong · 发表于 2006-11-10 12:43

难道真的做不到吗？

taikong · 发表于 2006-11-10 22:39

等待高手解答,谢谢

taikong · 发表于 2006-11-11 00:47

还是没有解答

w_tt · 发表于 2006-11-11 06:58

也想知道，尤其是二维数组。

taikong · 发表于 2006-11-11 10:00

等待中

northwolves · 发表于 2006-11-11 10:55

Sub out()
Dim arr, s() As String, i As Long
arr = Sheet1.UsedRange
ReDim s(1 To UBound(arr))
For i = 1 To UBound(arr)
s(i) = Join(Application.Index(arr, i, 0), " ")
Next
Open "c:\temp.txt" For Output As #1
Print #1, , Join(s, vbCrLf)
Close #1
MsgBox "ok"
End Sub

taikong · 发表于 2006-11-12 11:08

谢谢NORTHWOLVES，非常感谢！
Sheet1.UsedRange的特殊性太强了，我可不可以用UNION(SHEET1.RANGE（"A1:F65535"）,RANGE(G1:L65535))这种格式？
还有一个问题，我是希望先处理好一个区域，然后再处理另一区域，在输出到TXT文本文件时，先将A区域输完，再接着下面连接B区域的数据，而现在是A、B作为一个整体同时输出的。但这样的话，循环变量，还有怎么样自动给ARR数组反复赋值呢？
s(i) = Join(Application.Index(arr, i, 0), " ")这一句的参数不太明白

		自动登录	找回密码
密码			免费注册

[已解决] 如何用数组方式将EXCEL内容输出到TXT文本