[讨论]怎么用VB把TXT格式的数据文件导入EXCEL表中？

frogfish

<STRONG>怎么用VB把TXT格式的数据文件导入EXCEL表中？</STRONG>

雪缘

先读出来，用<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