[算表] Application.FileSearch如何修正in2010
軟體:excel
版本:2010
原本有一個巨集是透過Application.FileSearch搜尋檔案
但更新成2010後此功能不再被支援
本身不是相關科系,雖然從網路上的文章有自己修改過
但還是一直無法成功
所以想請教以下要如何修正成2010可用,希望可以獲得幫助謝謝
Set fs = Application.FileSearch
With fs
.LookIn = mapNetDriver(strEquipment, strIP)
.Filename = strFileName
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print strReadFile(.FoundFiles(i))
FileCopy .FoundFiles(i), Cells(2, 7).Value & strEquipment &
"_" & strReadFile(.FoundFiles(i)) & Mid(.FoundFiles(i), 4, Len(.FoundFiles
(i)) - 3)
Next i
strMSG = "File Find!"
Else
strMSG = "No File!"
End If
End With
Cells(intIndex + 1, 4).Value = strMSG
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.195.34.28
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1402579782.A.E43.html
→
06/12 23:28, , 1F
06/12 23:28, 1F