求助：vb读取txt数据文件中具体数据请求高手赐教！在桌面文件１．txt文件中的数据，如何读取并提取我需要的数据，并把提取的数据存入Excel表中，如
*1 : ABC

A B C
1 34 456
2 45 567
3 56 678
4 67 789
5 78 123
6 89 234
加粗是我所需要的数据，请高手帮忙！！！！！
谢谢！！！！！

我想，你在txt文件中要设置分隔符，以便读取时进行检索，或者你用记录的形式
要写到Excel上，你可以用excel编程对象

能具体点吗？
写点代码看看！

我现在的电脑没有vb，如果需要，我晚上在给你发代码

论坛后面有一个 Access数据写入Excel源码 的原创源码，你可以去下载看看

请高手帮帮忙呀！
写点代码看看！

Private Sub Command2_Click()
Dim MyBooks As Excel.Workbooks, sBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Dim iRow%, iCol%
Dim sFilename$, sXlsFile$
Dim iFileNum%
Dim sBuff$, sChr$
Dim iSt%, iEn%, iLen%
Dim i%
iFileNum = FreeFile
Open "C:\1.txt" For Binary As iFileNum
sBuff = String(FileLen("C:\1.txt"), " ")
Get iFileNum, , sBuff
Close iFileNum

Set sBook = Excel.Workbooks.Open("C:\1.xls")

Set MySheet = Excel.ActiveWorkbook.ActiveSheet
sBook.Application.Visible = True

sBook.Worksheets(1).Visible = True

iSt = 1
iEn = 1
sChr = ","

iRow = 1
Do While iEn > 0
For i = 1 To 3
iCol = i
iEn = InStr(iSt, sBuff, sChr)
If iEn = 0 Then Exit For
MySheet.Cells(iRow, iCol) = Mid(sBuff, iSt, iEn - iSt)
iSt = iEn + 1
Next
iRow = iRow + 1
Loop
MySheet.Cells(iRow, iCol) = Mid(sBuff, iSt, Len(sBuff) - iSt)

End Sub