返回列表 上一主題 發帖

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

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-11-1 05:18 | 只看該作者

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

  1. Function 資訊()
  2.     DoCmd.SetWarnings False   
  3.     Dim Filename As Integer   

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

  17. End Function
複製代碼
收藏 分享

cody

帖子
16 
主題
2 
精華
0 
積分
55 
點名
0  
作業系統
macOS / Windows 
軟體版本
Office 2010/2019 
閱讀權限
20 
性別
男 
註冊時間
2020-7-9 
最後登錄
2021-8-7 
2#
發表於 2020-7-18 16:56 | 只看該作者
請問 office 版本?, 可以換 FileSystemObject 來用
  1. Dim FSO As Object
  2. Dim localfolder As String

  4. Set FSO = CreateObject("Scripting.FileSystemObject")
  5. localfolder = "D:\資訊-原始\"
  6. Set fld = FSO.GetFolder(localfolder)

  8. For Each myFileName In fld.Files
  9.    
  10.     If FSO.GetExtensionName(localfolder & myFileName.Name) = "xls" Then
  11.         Debug.Print myFileName.Name
  12.     End If
  13. Next
複製代碼

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題