比如
A表
123
456
789

能批量生成三个文件吗?
123.txt
456.txt
789.txt


还比如
A表      B表
123           一二三
456           四五六
789           七八九
能生成每行一个文件,文件名为A表,内容为B表吗


我一点都不懂VB的，请教步骤是怎么做的？请教。。。

请教步骤是怎么做的

我没你的"表"~只能用字面上的资料去解题~
小弟才疏学浅~不知道怎么把 一 二 三 转成 ASCII Code ~只好用英文字替代~
至于用 Format() 只是让档案名称看起来比较舒适~

Private Sub Form_Load()
Dim i As Integer, j As Integer, FileNum As Integer
Dim File As String, TempString As String, TrgetPath As String

    TrgetPath = "C:\TMB\"
    i = 0: j = 0: File = "": TempString = ""
    
    For i = 1 To 100
        File = TrgetPath & Format(i, "000") & "_" & Format(i + 1, "000") & "_" & Format(i + 2, "000") & ".txt"
        If i Mod 3 = 1 Then
            FileNum = FreeFile
            Open File For Output As #FileNum
                j = IIf(j > 25, j = 0, j)
                TempString = Chr(65 + j) & " " & Chr(65 + j + 1) & " " & Chr(65 + j + 2)
                j = j + 3
                Print #FileNum, TempString
                TempString = ""
            Close #FileNum
        End If
        DoEvents
    Next i
    
    MsgBox "OK !"
    
End Sub

下面是结果图~



[ 本帖最后由 wube 于 2011-5-1 00:04 编辑 ]

P.S 如果您的重点是摆在要"一行一文件"~那就得用FileSystemObject 才行了~