[已解决]求助,将文本剪切到EXCEL中,新要求

lyhwzl

假设D盘有AA.TXT文档
我能否把文档的第一行剪切到EXCEL中来,每次剪切第一行

等于就是说,第一次把文本中的第一行复制到EXCEL中后,文本第一行删除,第二行变成第一行

第二次运行时,A2的内容将被文本新复制的内容覆盖掉

谢谢各位

最佳答案

月排行榜 / 总排行榜

raulerini

2010-12-7 13:45

试试这个：

Sub raulerini()
Open "D:\AA.txt" For Input As #1
Line Input #1, mystr
Do While Not EOF(1)
Line Input #1, mystr2
If mystr2 = mystr Then mystr2 = ""
mytxt = mytxt & mystr2 & vbCrLf
Loop
Range("A2") = mystr
Close #1
Kill "D:\AA.txt"
Open "D:\AA.txt" For Append As #2
Print #2, mytxt
Close #2
End Sub

跳转到最佳答案楼层

那么的帅

第一次明白了

第二次，A2的内容被新文本覆盖，不理解

原来A2有内容吗？

raulerini

试试这个：

Sub raulerini()
Open "D:\AA.txt" For Input As #1
Line Input #1, mystr
Do While Not EOF(1)
Line Input #1, mystr2
If mystr2 = mystr Then mystr2 = ""
mytxt = mytxt & mystr2 & vbCrLf
Loop
Range("A2") = mystr
Close #1
Kill "D:\AA.txt"
Open "D:\AA.txt" For Append As #2
Print #2, mytxt
Close #2
End Sub