返回列表 上一主題 發帖

[發問] Function語法想修改用在Excel2007版

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-10 15:59 | 顯示全部帖子

[發問] Function語法想修改用在Excel2007版

H超版, 各位大大

小弟有個舊Excel2003檔案vba使用With Application.FileSearch無法用在Excel2007, 語法如下

煩請先進指導該如何修改才能使用於Excel2007版

Public Function FilesPathFind(FindPath, FindFileName, Data)
Dim ss As SearchScope
Dim sf As ScopeFolder
Dim lngCount As Long

With Application.FileSearch
    .NewSearch
    .Filename = FindFileName
    .LookIn = FindPath
    .SearchSubFolders = True
    .FileType = msoFileTypeBinders
   
    If .Execute <> 0 Then
        Data = 1

    Else
        Data = 0
    End If
End With

End Function
收藏 分享

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
2#
發表於 2012-4-12 20:18 | 顯示全部帖子
回復 2# Hsieh


    H超版

    先謝謝你的答覆

    這個功能函數是VB的用語, 也是小弟所提去搭配兩個資料夾匯入相同檔案名稱, 需匯入多達400個以上檔案,
    每次匯入兩個同檔名再做分類處理, DATA利用ComboBox呼叫, 內部使用大量暫時記憶體整理, 最後得到約1萬資料列

     測試後仍無法克服問題

     以上

TOP

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
3#
發表於 2012-4-13 22:00 | 顯示全部帖子
回復 4# Hsieh


    謝謝H大

    你的判斷是對的, 現程式已作如下修改後OK

    fs = Dir(FindPath & "\" & FindFileName)
    If fs = "" Then
    FData = 0
    Else
    Data = 1

    感謝協助

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題