在office 2007中增加FileSearch对象[2009.05.23更新]

57ys · 发表于 2010-7-30 01:51

顶一个还是不太懂就是看

winsonwoods · 发表于 2010-8-17 20:12

好资料，正是我需要的。

100米跳远 · 发表于 2010-8-24 00:26

强！感叹，感慨

02093101 · 发表于 2010-12-8 22:07

谢谢了，太好了

imconsumer · 发表于 2010-12-9 23:28

正为这发愁

quean0323 · 发表于 2010-12-11 20:39

有谁解决了这个问题的可否教我一下，谢谢。我的QQ是：81112825

aaaoooenenen · 发表于 2011-1-21 15:30

东西嫩 v使用方法是不是和以前的一个样

sandwich · 发表于 2011-3-4 13:28

请教一下如何使用？
是否把 FilesSearch.dll 放在哪个目录下office2003的代码就可以完全不需要修改就可以用了？
FilesSearch.xlsm文件起什么作用？

office2003的代码：
With Application.FileSearch
      .LookIn = DstPath
      .FileType = msoFileTypeWordDocuments
      .SearchSubFolders = BoolSubDir
      If .Execute(SortBy:=msoSortByFileName, _
                  SortOrder:=msoSortOrderAscending) > 0 Then
         For m = 1 To .FoundFiles.count

sandwich · 发表于 2011-3-4 13:53

还有个问题：
FileType的取值，对于同一个文档类型的值，在Application.FileSearch和FilesSearch.dll的数值不一样。
如word文档的取值msoFileTypeWordDocuments和FileTypeMicrosoftWordDocuments不一样。
这个能否优化？
'With Application.FileSearch
Dim CaZao As New FilesSearch.glFilesSearch
With CaZao
      .LookIn = DstPath
      '.FileType = msoFileTypeWordDocuments
      .FileType = FileTypeMicrosoftWordDocuments

Yoanliu · 发表于 2011-3-16 20:58

学识作风严谨，诲人不倦，感谢三戒老师。Yaleliu.

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

[原创] 在office 2007中增加FileSearch对象[2009.05.23更新]

如题