先复制，再到d:\bg.xls excel中sheet2中粘贴。
给你一个提示吧！自己动手做一做，没有问题的！
Dim aa As String
Open "d:\cc.txt" For Input As #1
Open "d:\bg.xls" For Output As #2
Do Until EOF(1)
Line Input #1, aa
Print #2, aa
Loop
Close
这么简单的都不动脑，楼上那方法纯属扯淡，在这胡编
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024