[已解决]请问一下excel如何实现批量导入

sunshinegg

我有很多TXT文本文件 想把它们导入导EXCEL的同一张工作表中 请问该怎么做

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-18 16:25

sunshinegg 发表于 2013-2-18 13:26
不知道我有没有表达清楚

1. Sub Macro2()
   
2. Dim myFileName As String, r As Currency, FileCount As Currency
   
3. myFileName = Dir(ThisWorkbook.Path & "\*.txt")
   
4. If Len(myFileName) > 0 Then
   
5. ActiveSheet.Cells.Clear
   
6. Do
   
7. r = Sheets(1).Range("A" & Rows.Count).End(3).Row + 2
   
8. With Sheets(1).QueryTables.Add(Connection:="TEXT;" + myFileName, Destination:=Range("A" & r))
   
9. .TextFilePlatform = 936
   
10. .TextFileCommaDelimiter = True
    
11. .Refresh
    
12. End With
    
13. FileCount = FileCount + 1
    
14. myFileName = Dir
    
15. Loop Until Len(myFileName) = 0
    
16. MsgBox "一共统计了" & FileCount & "个文件"
    
17. Else
    
18. MsgBox "请将需要统计的文本文件保存到工作表所在目录"
    
19. End If
    
20. End Sub

复制代码

示例.rar (14.26 KB, 下载次数: 46)

2013-2-18 16:25 上传

点击文件名下载附件

跳转到最佳答案楼层

cbg2008

你最好传两三个有代表性的文件上来，这个一般用VBA解决

sunshinegg

示例.rar (164 Bytes, 下载次数: 13)

2013-4-1 11:14 上传

点击文件名下载附件 cbg2008 发表于 2013-2-18 11:07
你最好传两三个有代表性的文件上来，这个一般用VBA解决

我放了其中的3个TXT 还有一个EXCEL EXCEL里是我想达到的效果 其实也就是 把这3个TXT全部考到EXCEL中

sunshinegg

cbg2008 发表于 2013-2-18 11:07
你最好传两三个有代表性的文件上来，这个一般用VBA解决

不知道我有没有表达清楚

cbg2008

sunshinegg 发表于 2013-2-18 13:26
不知道我有没有表达清楚

已经表达清楚了，过几分钟我上传代码

cbg2008

sunshinegg 发表于 2013-2-18 13:26
不知道我有没有表达清楚

1. Sub Macro2()
   
2. Dim myFileName As String, r As Currency, FileCount As Currency
   
3. myFileName = Dir(ThisWorkbook.Path & "\*.txt")
   
4. If Len(myFileName) > 0 Then
   
5. ActiveSheet.Cells.Clear
   
6. Do
   
7. r = Sheets(1).Range("A" & Rows.Count).End(3).Row + 2
   
8. With Sheets(1).QueryTables.Add(Connection:="TEXT;" + myFileName, Destination:=Range("A" & r))
   
9. .TextFilePlatform = 936
   
10. .TextFileCommaDelimiter = True
    
11. .Refresh
    
12. End With
    
13. FileCount = FileCount + 1
    
14. myFileName = Dir
    
15. Loop Until Len(myFileName) = 0
    
16. MsgBox "一共统计了" & FileCount & "个文件"
    
17. Else
    
18. MsgBox "请将需要统计的文本文件保存到工作表所在目录"
    
19. End If
    
20. End Sub

复制代码

示例.rar (14.26 KB, 下载次数: 46)

2013-2-18 16:25 上传

点击文件名下载附件

sunshinegg

cbg2008 发表于 2013-2-18 16:25

好厉害啊dcccccc

sunshinegg

cbg2008 发表于 2013-2-18 16:25

能不能再帮我看一下 出问题了 不知道为什么

cbg2008

sunshinegg 发表于 2013-2-20 09:37
能不能再帮我看一下 出问题了 不知道为什么

最好把出错的文件加密后发给我，告诉我密码

sunshinegg

cbg2008 发表于 2013-2-20 09:42
最好把出错的文件加密后发给我，告诉我密码

不知道和EXCEL版本有关吗