返回列表 上一主題 發帖

[發問] 有大大能幫忙嗎Application.FileSearch

ettoday22

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2007 
閱讀權限
10 
性別
男 
註冊時間
2014-9-3 
最後登錄
2014-9-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-10 17:34 | 只看該作者

[發問] 有大大能幫忙嗎Application.FileSearch

各位大大們好，因為excel更新後程式無法用了，
下列程式有問題，但小弟又不會改，希望有高手
能幫忙！

    Set FS = Application.FileSearch
   
    With FS
   
         .LookIn = FilePath
         .FileName = FileSpec
         .FileType = msoFileTypeExcelWorkbooks
         .Execute
         
         If .FoundFiles.Count = 0 Then
             MsgBox "No files were found !"
             Exit Sub
         End If
   
     End With
收藏 分享

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2014-9-11 20:09 | 只看該作者
http://forum.twbts.com/thread-671-1-1.html

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題