在vb中将TXT档导入到EXCEL的问题，求代码

Question

把D:\11.txt中的数据导入到D:\121.xlsx中的A列中，把D:\12.txt中的数据导入到D:\121.xlsx中的B列中。txt中都有一列数据。求详细代码，之前自己在网上找了，自己试一下有很多问题出现

Answer 1

没有分析你的txt文件，现在假定你的11.txt与12.txt文件的行数相同时才不会出错。
Private Sub Command1_Click()
Dim L1, L2 As String
Dim I As Integer
Open "d:\11.txt" For Input As #1
Open "d:\12.txt" For Input As #2
'从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。
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.Open("D:\121.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
Do While Not EOF(1)
Line Input #1, L1
Line Input #2, L2
I = I + 1
xlSheet.Cells(I, 1) = L1 '给单元格（row,col）赋值
xlSheet.Cells(I, 2) = L2 '给单元格（row,col）赋值
Loop
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

追问

非常感谢您！！
行数是一样的……但是它会执行两遍xlSheet.Cells(I, 1) = L1 '给单元格（row,col）赋值
。我都有300行，最后执行的结果是A1有600行，B300行……相当于A1导入了两遍……

追答

怪了，我测试了三行没有问题呀，你是不是没有复制全，现在没空，晚上再和你聊。

追问

有点怪，我测试720行没问题，360行有问题……好的，有空您在找我