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

zhulx_wx · 发表于 2015-9-23 15:52

zhouzhongchi 发表于 2015-9-23 15:21

谢谢周老师!

zhulx_wx · 发表于 2015-9-23 15:53

zhenghui13 发表于 2015-9-23 15:27
具体你要看一下FSO，里面有一遍就是介绍遍历文件夹的。具体地址有点忘了。

谢谢郑老师!

zhouzhongchi · 发表于 2015-9-23 15:59

zhulx_wx 发表于 2015-9-23 15:52
谢谢周老师!

谢谢ZhaoGang老师才是哦，从他那儿学的。我现在也只会套用。

zhulx_wx · 发表于 2015-9-23 16:11

zhouzhongchi 发表于 2015-9-23 15:59
谢谢ZhaoGang老师才是哦，从他那儿学的。我现在也只会套用。

我还得学很多啊!

zhulx_wx · 发表于 2015-9-23 17:15

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

赵老师,为什么卡号是字符串的时候就无法提取出来呢?
另外[工作表目录$]中为什么要加个$呢?

zhulx_wx · 发表于 2015-9-23 17:33

zhouzhongchi 发表于 2015-9-23 15:59
谢谢ZhaoGang老师才是哦，从他那儿学的。我现在也只会套用。

运行了一下,没有问题
您和赵老师写的代码差别好像赵老师是用UNION后,一起存出来的,
您是在每一次循环中进行的.

另外,如果想给每一行的批次加个超链接,能链接到各张随件单,这个可行吗?
就是A随件单里的都是链接到A随件单,B随件单里的都是链接到B随件单,
不知道该通过哪种方法怎么实现呢?

zhaogang1960 · 发表于 2015-9-23 17:33

zhulx_wx 发表于 2015-9-23 17:15
赵老师,为什么卡号是字符串的时候就无法提取出来呢?
另外[工作表目录$]中为什么要加个$呢?

第一个问题：如果一个字段中数字和文本混排，ADO会自动判断前8个记录，如果有一半是数字则只提取数字，否则只提取文本
第二个问题：ADO中的Excel工作表名都以$结束，当我们用ADO提取工作表名时，这个规定也可以用于判断工作表名是否为真的工作表名，如果最右边不是$，它就不是工作表名，而是像打印区域这样的名称

zhaogang1960 · 发表于 2015-9-23 17:34

解决方法，全部按照文本对待，最后再把应该是数字的文本变回数字：

Sub ado联合查询()
Dim cnn As Object, SQL$, f$, p$, m%, objWMI As Object
Const HKEY_LOCAL_MACHINE = &H80000002
Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")
objWMI.SetDWORDValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Jet\4.0\Engines\Excel", "TypeGuessRows", 200
Set cnn = CreateObject("adodb.connection")
p = ThisWorkbook.Path & ""
f = Dir(p & "*.xls")
While f <> ""
If f <> ThisWorkbook.Name Then
m = m + 1
If m = 1 Then
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='excel 8.0;imex=1';Data Source=" & p & f
SQL = "select * from [工作表目录$]"
Else
SQL = SQL & " union all select * from [Excel 8.0;imex=1;Database=" & p & f & "].[工作表目录$] "
End If
End If
f = Dir()
Wend
[a1].CurrentRegion.Offset(1).ClearContents
[a2].CopyFromRecordset cnn.Execute(SQL)
With ActiveSheet.UsedRange
.Value = .Value
End With
cnn.Close
Set cnn = Nothing
Set objWMI = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2015-9-23 17:37

请测试附件

遍历xls文件的操作.rar (31.89 KB, 下载次数: 78)

zhouzhongchi · 发表于 2015-9-23 17:42

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

这个链接不太懂，最好直接求助zhaogang老师，大神且乐于助人。顺便我也学下。

		自动登录	找回密码
密码			免费注册

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