4个回答
2015-01-21 · 知道合伙人数码行家
关注
展开全部
试试这个
------------------
Sub micro123()
directory = "C:\txtTemp" '你存放txt文件的目录
With Application.FileSearch
.LookIn = directory
.SearchSubFolders = True
.Filename = "*.txt"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .FoundFiles(i), Destination:=ActiveSheet.Range("A1"))
.Refresh BackgroundQuery:=False
End With
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
-----------
你把--------------中间的代码复制,打开excel,按下alt+f11,菜单栏-插入-模块,在编辑区域粘贴代码,然后运行。(运行时如出现安全提示,可放心通过,让宏运行)
注意的是,这些代码是在2003下运行的,2007去除了FileSearch de 的支持。可以使用Dir 或 FileSystemObject来搜索...详见:http://support.microsoft.com/kb/920229/zh-cn
------------------
Sub micro123()
directory = "C:\txtTemp" '你存放txt文件的目录
With Application.FileSearch
.LookIn = directory
.SearchSubFolders = True
.Filename = "*.txt"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .FoundFiles(i), Destination:=ActiveSheet.Range("A1"))
.Refresh BackgroundQuery:=False
End With
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
-----------
你把--------------中间的代码复制,打开excel,按下alt+f11,菜单栏-插入-模块,在编辑区域粘贴代码,然后运行。(运行时如出现安全提示,可放心通过,让宏运行)
注意的是,这些代码是在2003下运行的,2007去除了FileSearch de 的支持。可以使用Dir 或 FileSystemObject来搜索...详见:http://support.microsoft.com/kb/920229/zh-cn
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
VBA编码读取数据,写入Excel.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2015-01-21
展开全部
貌似这个不可以吧~~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询