VBA求助!如何遍历文件夹中的XLS文件并进行相应操作?

zhouzhongchi

zhulx_wx 发表于 2015-9-23 17:33
运行了一下,没有问题
您和赵老师写的代码差别好像赵老师是用UNION后,一起存出来的,
您是在每一次循环中 ...

觉得加链接似乎没必要。如果想实现同步更新。可通过：数据-现有连接，选择合适的刷新方式。

zhaogang1960

zhulx_wx 发表于 2015-9-23 17:33
运行了一下,没有问题
您和赵老师写的代码差别好像赵老师是用UNION后,一起存出来的,
您是在每一次循环中 ...

加上超链接功能，为了按照每个工作簿添加一个超链接，就不再使用联合查询了：

1. Sub ado查询()
   
2.     Dim cnn As Object, rs As Object, SQL$, f$, p$, r&, sh As Worksheet, objWMI As Object
   
3.     Const HKEY_LOCAL_MACHINE = &H80000002
   
4.     Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")
   
5.     objWMI.SetDWORDValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Jet\4.0\Engines\Excel", "TypeGuessRows", 200
   
6.     Application.ScreenUpdating = False
   
7.     [a1].CurrentRegion.Offset(1).ClearContents
   
8.     r = 2
   
9.     Set sh = ActiveSheet
   
10.     p = ThisWorkbook.Path & ""
    
11.     f = Dir(p & "*.xls")
    
12.     While f <> ""
    
13.         If f <> ThisWorkbook.Name Then
    
14.             Set cnn = CreateObject("adodb.connection")
    
15.             Set rs = CreateObject("adodb.recordset")
    
16.             cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='excel 8.0;imex=1';Data Source=" & p & f
    
17.             SQL = "select * from [工作表目录$]"
    
18.             rs.Open SQL, cnn, 1, 3
    
19.             Cells(r, 1).CopyFromRecordset rs
    
20.             sh.Hyperlinks.Add Anchor:=Cells(r, 1).Resize(rs.RecordCount), Address:=p & f 'A列添加超链接
    
21.             r = r + rs.RecordCount
    
22.         End If
    
23.         f = Dir()
    
24.     Wend
    
25.     With ActiveSheet.UsedRange
    
26.         .Value = .Value
    
27.     End With
    
28.     cnn.Close
    
29.     Set cnn = Nothing
    
30.     Set objWMI = Nothing
    
31.     Application.ScreenUpdating = True
    
32. End Sub
    

复制代码

zhaogang1960

请测试附件
遍历xls文件的操作.rar (32.08 KB, 下载次数: 100)

2015-9-23 19:12 上传

点击文件名下载附件

onlycxb

zhaogang1960 发表于 2015-9-23 15:13
请注意：
1、每个文件的工作表名都是“工作表目录”
2、待合并的工作簿不超过49个

请教老师，待合并的工作簿不超过49个，这是有什么约定？

zhaogang1960

onlycxb 发表于 2015-9-23 20:45
请教老师，待合并的工作簿不超过49个，这是有什么约定？

只是个规定：
[分享]ADO+SQL联合查询的限制
http://club.excelhome.net/thread-344998-1-1.html
(出处: ExcelHome技术论坛)

zhulx_wx

zhaogang1960 发表于 2015-9-23 19:11
加上超链接功能，为了按照每个工作簿添加一个超链接，就不再使用联合查询了：

试了一下,真是太神奇了!
谢谢赵老师!一定会好好学习!
不过看着真是好深奥啊!
特别想问一下,这个ADO,FSO,SQL有什么关联吗?
这些方法在使用上有什么差别呢?
什么时候用ADO,什么时候用FSO,什么时候用SQL?
烦赵老师能帮我稍稍指点一下啊!

zhaogang1960

zhulx_wx 发表于 2015-9-24 08:51
试了一下,真是太神奇了!
谢谢赵老师!一定会好好学习!
不过看着真是好深奥啊!

ADO (ActiveX Data Objects）是一种基于OLE DB技术的高性能应用程序接口，用以实现访问关系或非关系数据库中的数据。
SQL（Structured Query Language)结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
VBA在使用ADO时需要使用SQL语句

FSO（File System Object）文件系统对象 ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。
我们经常使用FSO进行搜索文件，修改文件属性，或删除文件等

zhulx_wx

zhaogang1960 发表于 2015-9-24 12:12
ADO (ActiveX Data Objects）是一种基于OLE DB技术的高性能应用程序接口，用以实现访问关系或非关系数据 ...

非常感谢!

另外我在测试代码时,发现只要有相关文件开着,就会报错,我看了您以前的贴子,加了两句
On Error Goto HErrorHandler
ErrorHandler:
    MsgBox "存在未关闭文档"

但是怎么才能让它提示是哪个文件打开的呢?
这个能实现吗?

zhulx_wx

zhouzhongchi 发表于 2015-9-23 17:42
这个链接不太懂，最好直接求助zhaogang老师，大神且乐于助人。顺便我也学下。

发现一个奇怪的现象,D文件中有部分卡号是提不出来的
试了很多方法,把格式调成和A文件一致,仍然无法提出来
后来想到赵老师说过ADO会判断字符与数字的比例这个情况,
于是我就把字符的移到上面去之后,再运行就好了.

问题原因已经明确,只是好奇怎么才能规避这个现象呢?

zhaogang1960

zhulx_wx 发表于 2015-9-24 13:12
非常感谢!

另外我在测试代码时,发现只要有相关文件开着,就会报错,我看了您以前的贴子,加了两句

我从来没有遇见过ADO不能连接开着的工作簿