vb 将Txt 文本中的内容导入excel

现在有个项目要用到VB。
先在“工程->引用”里面添加
Microsoft Excel xxx Object Library
这个和系统有关，引用这个搞了半天，不能读取系统注册表，
最后重装系统才搞定。这就看出VB的缺点了。
说起来，对文件的读取操作，VB和java不是一个层面的，那个简单啊，不说了。
原理很简单，逐行读取txt的内容，放到一个字符串数据中，
每个字符串再按特定的字符分割成一个个的元数据串，然后把这些字符串一个个的写于指定的excel文件中。
记录一下：
http://zhidao.baidu.com/question/66888213

Private Sub Command1_Click() 
Dim H() As String, L() As String, i As Integer, j As Integer 
Dim SaveFile As String 
Dim xlApp As Excel.Application 
Dim xlBook As Excel.WorkBook 
Dim xlSheet As Excel.Worksheet 
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 
Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件 
xlApp.Visible = True '设置EXCEL对象可见（或不可见） 
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表 

'下面进行文本导入 
H = Split(Text1.Text, vbNewLine) 
For i = 0 To UBound(H) 
L = Split(H(i), ",") 
For j = 0 To UBound(L) 
xlSheet.Cells(i + 1, j + 1) = L(j) '给单元格（row,col）赋值 
Next 
Next 
SaveFile = "c:\1.xls" '你可以在此修改保存的文件名称 
If Dir(SaveFile) <> "" Then Kill SaveFile 
xlBook.SaveAs FileName:=SaveFile '保存工作表,结束时一定别忘了保存 
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改 
xlApp.Quit '结束EXCEL对象 
Set xlApp = Nothing '释放xlApp对象 
MsgBox "文件已成功导出到" & SaveFile 
End Sub 

http://www.chinavib.com/thread-1866-1-1.html
这个文字有点乱，看得大概就好了。

先读出来，用<BR>Open "C:\data.txt" For Input As #1<BR>Input #1,Var1,Var2,...<BR>Close #1<BR><BR>再写，用<BR>Dim ExcelAppX As Excel.Application<BR>Dim ExcelBookX As Excel.Workbook<BR>Dim ExcelSheetX As Excel.Worksheet<BR>Dim ExcelQueryX As Excel.QueryTable<BR><BR>Set ExcelAppX = CreateObject("Excel.Application")<BR>Set ExcelBookX = ExcelAppX.Workbooks().Add(App.Path &amp; "\Template.xlt")'加载模板文件<BR>Set ExcelSheetX = ExcelBookX.Worksheets(SheetName)'打开要写入的工作表<BR>ExcelAppX.Visible = False'后台操作<BR><BR>ExcelAppX.Range(ConvertXY2Cell(RowNum, ColNum)).Select<BR>ExcelAppX.ActiveCell.Value = Var1<BR>...<BR><BR>最后保存<BR>ExcelAppX.DisplayAlerts = False'不提示修改<BR>ExcelAppX.ActiveWorkbook.SaveAs fn'fn为要保存的文件全名（含路径）<BR>ExcelAppX.Quit'退出<BR><BR>'清空对象<BR>Set ExcelAppX = Nothing<BR>Set ExcelBookX = Nothing<BR>Set ExcelSheetX = Nothing

http://www.hackchina.com/r/78925/%40PSC_ReadMe_45737_1.txt__html
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=45737&lngWId=1
这个网站提供源码下载，这个有自动转txt变成excel的。
不过有点高深。可以研究一下。

还有一个可以参考：
http://hi.baidu.com/hplonline/blog/item/b605c41b489a55f2ae51331b.html
主要是怎么分割。

请问For i = 1 To Range("B65536").End(xlUp).Row中的End(xlUp).Row是什么意思阿？
从B列的最后一个单元格Range("B65536").往上找(xlUp)，B列最后（End）一个非空单元格所在的行（Row）