作者dudu5566 (仁甫哥超MAN!!!)
看板Visual_Basic
标题[VBA ] Application.FileSearch要怎麽改写?
时间Tue Sep 30 15:43:27 2014
今天把公司的电脑升级成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
----
请问这段程式码要怎麽改写成能在office2007以後版本run的巨集呢?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 210.69.153.120
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1412063010.A.BDD.html
1F：推 johnpage: 不要存在c碟看看 09/30 15:57
2F：→ dudu5566: 跟C槽无关啦 是程式码本身不相容2007以後的版本 09/30 16:04
3F：推 johnpage: 改用findfiles 09/30 16:21
4F：→ dudu5566: 用findfiles不行耶 09/30 16:26
5F：推 johnpage: Sub 文件() 09/30 16:52
6F：→ johnpage: Set file = CreateObject("scripting.filesystemobject" 09/30 16:52
7F：→ johnpage: ) 09/30 16:52
8F：→ johnpage: For Each fils In file.getfolder("c:\").Files 09/30 16:52
9F：→ johnpage: Filename = Filename & fils.Name & Chr(13) 09/30 16:52
10F：→ johnpage: Next 09/30 16:52
11F：→ johnpage: MsgBox Filename 09/30 16:52
12F：→ johnpage: End Sub 09/30 16:52
13F：→ MOONRAKER: 用DIR()应该就可以混过去了 这个VBA的老函数一直没删掉 09/30 22:23