【求教】怎么表示打开的多个txt用变量？？

xdwy81129

希望做到的是一次性打开多个文本，如果我可以根据已经的编号或者变量，想写入那个txt就写入那个txt，最后是循环关闭txt全部文件，下面的代码我用的编号，但是出错，所以请大侠看看，如果不用编号，用变量也是可以的，只是希望有一定的规律

代码不可以逐一打开，写入，关闭，求问的是一次性打开多个文本

多文本文件.rar (6.58 KB, 下载次数: 0)

2014-4-1 23:10 上传

点击文件名下载附件


Sub 按钮1_单击()
Dim ljwj$, js%, sjl%, zf$
sjl = 10
ljwj = ActiveWorkbook.Path & "\(("
zf = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"

For js = 1 To sjl
Open ljwj & Format(js, "00") & ".txt" For Output As js
Open ljwj & Format(js, "000") & ".txt" For Output As js + sjl
Print js, Mid(zf, 1, js) & "$" '出错，不知道怎么标记文本
Print js + sjl, Mid(zf, js, js) & "$" '出错，不知道怎么标记文本
Next js

For js = 1 To sjl
Close js
Close js + sjl
Next js
End Sub

hwc2ycy

存数组嘛。
或者你用字典或集合来存储。
文件编号其实用filefree生成更合理。

另外，但愿你不会同一个TXT同时打开多次，

xdwy81129

hwc2ycy 发表于 2014-4-2 07:57
存数组嘛。
或者你用字典或集合来存储。
文件编号其实用filefree生成更合理。

谢谢烟花版主指教

可是你说的这些我没有看见过实例或者范例，所以请烟花给个实例，谢谢，感激