源文件中的数据是两列的
但在对其进行执行转换后生成的xls文件中
数据没有分列并在了一列中
请前辈指导对程序进行修改
谢谢了

附上自己写程序文件
请高手指导

还想请教一个问题
我想把新生成的xls文件的数据显示在OLE的excel表格中
请问该对程序进行如何修改

传错文件了
再来一次

。。。没有大大来回答我的问题
急死了
顶上去

Private Sub Command2_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim lsFileName As String
Dim llRow As Long
Dim llCol As Long
Dim lsTemp As String
Dim n() As String, ColNum As Integer
lsFileName = CdlTest.FileName

llRow = 0
Set xlBook = xlApp.Workbooks.Add()
Set xlsheet = xlBook.Worksheets(1)
Open lsFileName For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, lsTemp ' 读入一行数据并将其赋予某变量。
n = Split(lsTemp, " ")
Debug.Print lsTemp
llRow = llRow + 1
ColNum = 0
For llCol = 0 To UBound(n)
If Len(Trim(n(llCol))) Then
ColNum = ColNum + 1
xlsheet.Cells(llRow, ColNum) = n(llCol)
End If
Next
Loop
Close #1
xlBook.SaveAs lsFileName & ".xls"
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
MsgBox "文件转换已生成新文件" & m, vbInformation, "Display"
End Sub