請問 Application.FileSearch '執行階段錯誤2455 ,請問這應該怎麼修改?

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-11-1 05:18 | 顯示全部帖子

Function 資訊()
DoCmd.SetWarnings False
Dim Filename As Integer
Set BK = Application.FileSearch '執行階段錯誤2455 ,請問這該怎麼改?
With BK
.LookIn = "D:\資訊-原始\"
.Filename = "all*.xls"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For B = 1 To .FoundFiles.Count
DoCmd.TransferSpreadsheet acImport, 8, "00 原始資料", .FoundFiles(B), True
Next
End If
End With
Set BK = Nothing
End Function

複製代碼

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。