VB txt 转换 excel 的小程序

首先要对excel进行引用 

Private Sub Command1_Click()Sub Command1_Click()
    TxtToExcel "E:/1.txt", " " 
End Sub

Sub TxtToExcel()Sub TxtToExcel(txtFile As String, DistanceChar As String)
On Error GoTo L
    '建立excel对象
    Dim XlApp     As New Excel.Application
    Dim XlWb     As New Excel.Workbook
    Dim XlSt     As New Excel.Worksheet
    Set XlApp = CreateObject("Excel.Application")
    Set XlWb = XlApp.Workbooks.Add
    XlWb.SaveAs FileName:=Left(txtFile, Len(txtFile) - 4) & ".xls"
    Set XlSt = XlWb.Worksheets(1)
    '开始转换
    Dim i As Integer, j As Integer, linenext As String, strb() As String
    j = 1
    Open txtFile For Input As #1
        Do Until EOF(1)
            Line Input #1, linenext
            strb = Split(linenext, DistanceChar)
            For i = 0 To UBound(strb)
                XlSt.cells(j, i + 1) = strb(i)
            Next
            j = j + 1
        Loop
    Close #1
   '结束，释放空间
    XlWb.Save
    XlWb.Close
    XlApp.quit
    MsgBox "finished"
    Exit Sub
L:
    MsgBox "Wrong"
End Sub