[已解决]求助导入文本vba代码

清华

求助导入文本vba代码
取导入路径：C:\Users\Administrator\Desktop
取文件名称：TTTT
放到Sheet1 B2

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2012-4-26 21:26

1. Sub tqwb()
   
2. Dim a() As String, b() As String, i&, rq, r1
   
3.     Sheet1.Activate
   
4.     Open "C:\Users\Administrator\Desktop\TTTT.txt" For Input As #1
   
5.     a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
6.     [b2].Resize(UBound(a) + 1, 1) = a
   
7.     Close #1
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

清华

没有代码吗？怎么没有回复？

蓝桥玄霜

1. Sub tqwb()
   
2. Dim a() As String, b() As String, i&, rq, r1
   
3.     Sheet1.Activate
   
4.     Open "C:\Users\Administrator\Desktop\TTTT.txt" For Input As #1
   
5.     a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
6.     [b2].Resize(UBound(a) + 1, 1) = a
   
7.     Close #1
   
8. End Sub
   

复制代码

清华

蓝桥玄霜 发表于 2012-4-26 21:26

请再调整2处
第一修改成保存成数字格式（现在代码是文本数字）
第二修改的地方请看动画