[已解决]求老师帮忙 把txt数据提取到表格内

阿贝

格式是表格的的固定格式
txt文本都是固定的 但是每一张都数值不一样 其中一张txt
怎么用VBA 提取txt中 所对应表格的数据
一个表格内提取所有txt内所对应数据 谢谢了
txt 不止一个 会有很多 每天都会有新生成的 谢谢了

最佳答案

月排行榜 / 总排行榜

轩辕轼轲

2014-8-13 14:43

1. Option Explicit
   
2. Sub ImportTxt()
   
3.     Dim sh As Worksheet
   
4.     Dim txtDir As String
   
5.     Set sh = Sheets(1)
   
6.     With Application.FileDialog(msoFileDialogFilePicker)
   
7.         .AllowMultiSelect = False        '单选择
   
8.         .Filters.Clear        '清除文件过滤器
   
9.         .Filters.Add "文本文件", "*.txt"
   
10.         If .Show = -1 Then
    
11.             'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
    
12.             txtDir = .SelectedItems(1)
    
13.         Else
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17.     sh.UsedRange.ClearContents
    
18.     With sh.QueryTables.Add(Connection:="TEXT;" & txtDir, Destination:=sh.Range("A1"))
    
19.         .TextFilePlatform = 936
    
20.         .TextFileConsecutiveDelimiter = True
    
21.         .TextFileOtherDelimiter = " "
    
22.         .Refresh
    
23.         .Delete
    
24.     End With
    
25. End Sub
    

复制代码

提供一段代码参考，把TXT导入到Excel里面，然后再处理。

跳转到最佳答案楼层

轩辕轼轲

1. Option Explicit
   
2. Sub ImportTxt()
   
3.     Dim sh As Worksheet
   
4.     Dim txtDir As String
   
5.     Set sh = Sheets(1)
   
6.     With Application.FileDialog(msoFileDialogFilePicker)
   
7.         .AllowMultiSelect = False        '单选择
   
8.         .Filters.Clear        '清除文件过滤器
   
9.         .Filters.Add "文本文件", "*.txt"
   
10.         If .Show = -1 Then
    
11.             'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
    
12.             txtDir = .SelectedItems(1)
    
13.         Else
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17.     sh.UsedRange.ClearContents
    
18.     With sh.QueryTables.Add(Connection:="TEXT;" & txtDir, Destination:=sh.Range("A1"))
    
19.         .TextFilePlatform = 936
    
20.         .TextFileConsecutiveDelimiter = True
    
21.         .TextFileOtherDelimiter = " "
    
22.         .Refresh
    
23.         .Delete
    
24.     End With
    
25. End Sub
    

复制代码

提供一段代码参考，把TXT导入到Excel里面，然后再处理。

阿贝

轩辕轼轲 发表于 2014-8-13 14:43
提供一段代码参考，把TXT导入到Excel里面，然后再处理。

txt 我想要的是批量处理的 txt文本非常多 我还要一个一个往里面导入嘛？

轩辕轼轲

阿贝 发表于 2014-8-13 14:58
txt 我想要的是批量处理的 txt文本非常多 我还要一个一个往里面导入嘛？

我给你一段代码参考，你自己写循环进行处理就行了。
自己不学会动手，怎么进步呢？
遇到问题只是伸手，那可不是好习惯。

阿贝

轩辕轼轲 发表于 2014-8-13 15:01
我给你一段代码参考，你自己写循环进行处理就行了。
自己不学会动手，怎么进步呢？
遇到问题只是伸手， ...

主要是代码我都看不懂 我只知道Excel 应该有个bva可以实现我说的情况  其余的一概不懂啊 现在我处在只会伸手的情况

阿贝

轩辕轼轲 发表于 2014-8-13 15:01
我给你一段代码参考，你自己写循环进行处理就行了。
自己不学会动手，怎么进步呢？
遇到问题只是伸手， ...

我真是一点都不会 希望你能帮忙下 金币怎么给你啊我没看见 应该点哪里