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

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

偶顺便把我的例子贴上，一、要求简化代码，偶自己有些地方写得很清楚但也很罗嗦，IF和FOR NEXT 太多了。
二、就是要求将程序得出的数据区域全部输出到文本。

ltQJ2p48.rar (29.38 KB, 下载次数: 33)

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

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

发不了附件

northwolves · 发表于 2006-11-12 12:45

Sub out()
Dim r As Range, arr, s() As String, i As Long, j As Long
Open "c:\temp.txt" For Output As #1
Set r = Union(Range("a1:f100"), Range("g1:m100"), Range("k1:p20"))
For j = 1 To r.Areas.Count
arr = r.Areas(j)
ReDim s(1 To UBound(arr) + 2)
For i = 1 To UBound(arr)
s(i) = Join(Application.Index(arr, i, 0), " ")
Next

Print #1, , Join(s, vbCrLf)

Next
Close #1
MsgBox "ok"
End Sub

ovxyz · 发表于 2006-11-12 14:02

何以一定要数组方式？

直接保存为文本不就行了？

ActiveWorkbook.SaveAs Filename:="C:\outtxt.txt" , FileFormat:=xlText, CreateBackup:=False

taikong · 发表于 2006-11-12 21:23

因为需要的数据有一定的格式要求,产生的数据位置也不固定

taikong · 发表于 2006-11-12 21:35

请NORTHWOLVES帮我完善一下12楼的程序,主要是循环嵌套和IF冗长的问题,还有,本来我想写成几个模块调用的,不过里面参数传递我不了解,所以就挤到一堆了.谢谢

taikong · 发表于 2006-11-12 21:40

If (k1 - k2 <> 0 And k1 - k3 <> 0 And k1 - k4 <> 0 And k1 - k5 <> 0 And k1 - k6 <> 0 And k2 - k3 <> 0 And k2 - k4 <> 0 And k2 - k5 <> 0 _
And k2 - k6 <> 0 And k3 - k4 <> 0 And k3 - k5 <> 0 And k3 - k6 <> 0 And k4 - k5 <> 0 And k4 - k6 <> 0 And k5 - k6 <> 0) _

顺便问一下,如果想只允许其中一项相减可以等于0,就是说,条件是要么全不为0,或者仅有一项为0,该怎么写呢?感觉自己好笨啊,想不出来.

taikong · 发表于 2006-11-13 12:51

继续求教，期盼解答

taikong · 发表于 2006-11-13 18:55

WAITING!

taikong · 发表于 2006-11-13 23:55

stay

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

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

附件