在Office2007中Application.FileSearch不能使用？-->plxmm转移

zjk_999 · 发表于 2006-12-12 14:50

在Office2007中Application.FileSearch不能使用？应该用什么替代？

plxmm · 发表于 2006-12-12 15:50

在Office2007中Application.FileSearch成为隐藏对象了。估计是淘汰的技术？

建议用

FileSystemObject 对象

qee用 · 发表于 2006-12-12 16:37

一定要用可引用ACCESS,过渡一下.
参考这儿6楼DannyK2316的发言:

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=450752&SiteID=1

Sub processFiles()

Dim app02 As New Access.Application
Dim filename
Dim NumFiles
NumFiles = 0

line1:
With Access.Application.FileSearch
    .NewSearch
    .LookIn = "C:\Temp\Dataprep\"
    .SearchSubFolders = False
    .MatchTextExactly = True
    .filename = "*.*"
    .Execute

End With

If FileSearch.FoundFiles.Count > 0 Then
filename = FileSearch.FoundFiles.Item(1)

'Put your code that processes files here

Name filename As Left(filename, 17) & "processed\" & Mid(filename, 18, 60)
NumFiles = NumFiles + 1
GoTo line1
Else

End If
MsgBox NumFiles & " File(s) Processed!", vbOKOnly, "Finished!"
End Sub

zjk_999 · 发表于 2006-12-12 18:21

还要继续学习哩，2007的VBA觉得变了很多。

Aeolian-Vox · 发表于 2006-12-13 11:40

QUOTE:

以下是引用zjk_999在2006-12-12 18:21:54的发言：
还要继续学习哩，2007的VBA觉得变了很多。

楼主用上面的代码没出现错误吗？我这里运行后出现错误提示：

[em13]

redagony · 发表于 2007-3-8 20:15

我也有这个疑问

但excel帮助里是有filesearch这个对象的

请教各位有可能是office版本的问题吗？

好郁闷，有个统计程序不能用了

redagony · 发表于 2007-3-8 20:58

微软把这个属性去掉是嘛意思吗？

不会以后把vba也给喀嚓掉了吧？

真的是有这种传言哦～

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