[已解决]怎样用vba导入text数据到excel多列

rangevba

1、电脑某硬盘有text数据，从上到下将数据依次导入b5:b10的各单元格中，当b5:b10填充完后就填充c5:c10,依次d5:d10、e5:e10直到数据导入完。
2、硬盘的text数据不固定在哪个盘，实行自由选择。

谢谢！
导入数据.zip (8.13 KB, 下载次数: 5)

2016-4-11 11:13 上传

点击文件名下载附件

数据.zip (188 Bytes, 下载次数: 6)

2016-4-11 11:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-11 13:20

1. Sub 打开指定文件()          '用文件选择界面打开文件
   
2.     Dim Fil
   
3.     Fil = Application.GetOpenFilename(filefilter:="文本文件(*.txt),*.txt")
   
4.     If Fil = False Then MsgBox "请选择文件！": Exit Sub
   
5.     Dim arr(1 To 6, 1 To 1000)
   
6.     Open Fil For Input As #1
   
7.     Do While Not EOF(1)
   
8.         i = i + 1
   
9.         r = (i - 1) Mod 6 + 1
   
10.         c = (i - 1) \ 6 + 1
    
11.         Line Input #1, arr(r, c)  '读入每行
    
12.     Loop
    
13.     Close #1
    
14.     Sheet1.Cells.Clear
    
15.     Sheet1.[b5].Resize(6, c) = arr
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 打开指定文件()          '用文件选择界面打开文件
   
2.     Dim Fil
   
3.     Fil = Application.GetOpenFilename(filefilter:="文本文件(*.txt),*.txt")
   
4.     If Fil = False Then MsgBox "请选择文件！": Exit Sub
   
5.     Dim arr(1 To 6, 1 To 1000)
   
6.     Open Fil For Input As #1
   
7.     Do While Not EOF(1)
   
8.         i = i + 1
   
9.         r = (i - 1) Mod 6 + 1
   
10.         c = (i - 1) \ 6 + 1
    
11.         Line Input #1, arr(r, c)  '读入每行
    
12.     Loop
    
13.     Close #1
    
14.     Sheet1.Cells.Clear
    
15.     Sheet1.[b5].Resize(6, c) = arr
    
16. End Sub
    

复制代码

rangevba

grf1973 发表于 2016-4-11 13:20

老师你好，程序经测试满足要求，终于学到了怎样换列，谢谢！