具体内容是：
我有一个txt1，里面内容要按行写入八个txt，即第1,9,17...行写入一个txt，第2,10,18...行写入一个txt，以此类推。求各位大神帮忙

没有测试，试试看
Open "c:\txt1.txt" for input as #1
For j = 2 to 9
    Open "c:\txt" & j & ".txt" for output as #j
Next j

i = 1
Do until EOF(1)
    Lineinput #1,A
    i = i + 1
    j = IIF(i mod 8 = 0,9,(i mod 8)+1)
    Print #j,A
Loop
For j = 1 to 9
    Close #j
Next j

[ 本帖最后由 owenlu1981 于 2014-3-7 08:29 编辑 ]

静态看2楼的代码。原理就是这样的。

一次性打开所有的这些文件，然后按你条件分别写入各个文件中去。

代码我也没去测试。

非常感谢

同样感谢你帮我