Question

execl高手用VBA改写成用文本TXT输出结果保存

只有http://pan.baidu.com/s/1hq7ZUXe

Answer 1

Option Explicit

Dim fso, tso
Dim M, N, A()

'主程序
M = inputbox("输入M（2~36）","M",15) + 0
N = inputbox("输入N（2~7）","N",6) + 0
If M < 2 Or M > 36 Or N < 2 Or N > 7 Then
	MsgBox "M、N不在规定范围内，请修改"
Else
	ReDim A(N)
	set fso=createobject("scripting.filesystemobject")
	set tso=fso.createtextfile("1.txt")
	Call C(1)
	tso.close
End If


Sub C(ByVal t)
	Dim i
	For i = A(t - 1) + 1 To M
		 A(t) = i
		 If t = N Then
				tso.writeline join(A,chr(9))
		 Else
				Call C(t + 1)
		 End If
	Next
End Sub

反正都是生成文本文件，还不如直接用VBS来写，代码在上面的，可以粘贴到记事本保存为VBS文件，附件内容同上面的代码，下载到本地后鼠标双击可以执行，执行完毕生成的文件是1.TXT。

我用36,7生成了结果，文本文件177388200字节，有点大，但是结果正常。

追问

答案还可以但速度不算太快再加

追答

不比你EXCEL版的慢吧

Answer 2

你发的什么啊？