返回列表 上一主題 發帖

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

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

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

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

  15. End Function
複製代碼

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題