多个txt文件数据批量导入一个EXCEL文档，求高手帮编程。

ml6236

新建 Microsoft Office Excel 工作表.zip (9.5 KB, 下载次数: 22)

2011-12-11 01:59 上传

点击文件名下载附件
123.zip (1.77 KB, 下载次数: 18)

2011-12-11 01:59 上传

点击文件名下载附件
谢谢高手给我编下程，就是有多个文本要导入到excel中去。在附件中有举例说明的。

菜鸟锐

Sub 自動分頁導入()
    Application.ScreenUpdating = False
    Dim fso As Scripting.FileSystemObject
    Dim mytxt As Scripting.TextStream
    Dim myfile As String, myname$
    Dim i As Long, j%
    '****
    Dim a() As String
    Dim k As Long
    '****
   
    ActiveSheet.Cells.Clear
    myfile = Application.GetOpenFilename("text files(*.txt),*.txt", , "請選擇文本文件")
    Set fso = New Scripting.FileSystemObject
    Set mytxt = fso.OpenTextFile(FileName:=myfile, IOMode:=ForReading)
   
    With mytxt
        i = 1: j = 1: myname = "sheet" & j
        
        Do Until .AtEndOfStream
            '********
            a = Split(.ReadLine, ",")
            
            For k = 0 To UBound(a)
                Sheets(myname).Cells(i, k + 1) = a(k)
            Next k
            
            Erase a
            
            'Sheets(myname).Cells(i, 1) = .ReadLine
            '**********
            i = i + 1
            
            If i = 50000 Then
                j = j + 1
               
                If j > 3 Then
                    Sheets.Add after:=Sheets(myname)
                End If
               
                myname = "sheet" & j
                i = 1
            End If
        Loop
        
        .Close
    End With

End Sub


网上搜的

老糊涂

参考这个
http://www.excelpx.com/thread-145916-1-1.html

zjdh

导入文本.rar (12.58 KB, 下载次数: 55)

2011-12-11 09:24 上传

点击文件名下载附件

zjdh

分页导入：
导入文本2.rar (11.82 KB, 下载次数: 51)

2011-12-11 10:03 上传

点击文件名下载附件