首先要对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
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