[VBA ] Application.FileSearch要怎么改写?

楼主: dudu5566 (仁甫哥超MAN!!!)   2014-09-30 15:43:27
今天把公司的电脑升级成office2010
发现原本的宏不能使用
侦错发现是Application.FileSearch在2007以后的版本就不能使用了
原程式码如下:
Sub AutoCopyTableTofile()
defaultfile = Application.ActiveDocument.Name
With Application.FileSearch
.FileName = "奖惩统计表.doc"
.LookIn = "c:\奖惩月报"
.Execute
If .FoundFiles.Count > 0 Then
Documents.Open FileName:="c:\奖惩月报\奖惩统计表.doc"
Documents(defaultfile).Activate
Selection.Tables(1).Range.Copy
Documents("奖惩统计表.doc").Activate
Selection.Paste
Documents(defaultfile).Close
Else
MsgBox ("未找到===>奖惩统计表.doc<==档案")
Exit Sub
End If
End With
End Sub
作者: johnpage (johnpage)   2014-09-30 15:57:00
不要存在c碟看看
楼主: dudu5566 (仁甫哥超MAN!!!)   2014-09-30 16:04:00
跟C槽无关啦 是程式码本身不相容2007以后的版本
作者: johnpage (johnpage)   2014-09-30 16:21:00
改用findfiles
楼主: dudu5566 (仁甫哥超MAN!!!)   2014-09-30 16:26:00
用findfiles不行耶
作者: johnpage (johnpage)   2014-09-30 16:52:00
Sub 文件()Set file = CreateObject("scripting.filesystemobject")For Each fils In file.getfolder("c:\").FilesFilename = Filename & fils.Name & Chr(13)NextMsgBox FilenameEnd Sub
作者: MOONRAKER (㊣牛鹤鳗毛人)   2014-09-30 22:23:00
用DIR()应该就可以混过去了 这个VBA的老函数一直没删掉DIR function on MSDN: http://goo.gl/UxqfH1

Links booklink

Contact Us: admin [ a t ] ucptt.com