VBA关于多工作簿查询包含指定的字符的应用（很难的）

j5088794

非常感谢,解决了燃眉之急

jinjin0956

kevinchengcw 发表于 2012-8-15 14:12
是这个意思吗？

这位老师您好，好容易找到这需要的功能，但不是完全适合我用，您能不能帮我改一下适合我用的。


1、我有六百多个表，我现在已经合成一个大工作薄了。可我查好多关键字，所以能不能把关键字复制到SHEET1 A列里，还有查出的数据不要查一个关键字一清可以么？放在一个或二表里就好。
2、我想在这个基础上提取 这条关健字记录的 材料字段数据，但因为工作表是由不同人做的，标题字段名可能是  “材料”或英文“MET'S TYPE"/ “英文（ENGLISHNAME）“或“DESCRIPTION”。
3、主要这个程序为什么不能查找全数字？

jjmysjg

kevinchengcw 发表于 2012-8-25 10:09
试下附件

太好了，谢谢

jjmysjg

kevinchengcw 发表于 2012-8-25 10:09
试下附件

kevinchengcw 你好，你这个帖子太好了。
能查询子文件夹的工作簿的指定字符吗

ww0000

好东西，留个记号，有空好好学学

ww0000

kevinchengcw 发表于 2010-10-29 12:59
Sub test()
Dim Dic, Wb As Workbook, Ws As Worksheet, Arr, N&, FN$, Str$, Rng As Range, Str2$
Set D ...

谢谢老师的代码
另外，能不能再加上一个条件判断，比如：F列不为空的就复制过来？

ww0000

各位老师，能不能再加上一个条件判断，比如：F列不为空的就复制过来？

yayahzmeng

kevinchengcw 发表于 2010-10-28 20:32
Sub test()
Dim Dic, Wb As Workbook, Ws As Worksheet, Arr, N&, FN$, Str$, Rng As Range
Set Dic = Cr ...

顺带建个超链就更方便用户了

ww0000

kevinchengcw 发表于 2010-10-29 12:59
Sub test()
Dim Dic, Wb As Workbook, Ws As Worksheet, Arr, N&, FN$, Str$, Rng As Range, Str2$
Set D ...

老师，能不能再加上一个条件判断，比如：F列不为空的就复制过来？

ww0000

If WorksheetFunction.CountIf(.Cells, “*" & Str & "*") <> 0 and WorksheetFunction.CountIf(.Cells("F:F"), “提取" ) Then
这样为什么不行叫呢？