[發問] 在Excel 2003錄製的巨集，在Excel2007/2010卻發生執行錯誤'9' or '445'

waterful.tw

以下是我在Excel 2003

1. Sub Get_TEXT()
   
2. 
   
3. Dim MyBook, LinkBook As Workbook, _
   
4.     MySht, LinkSht, BaSht, WorkSht As Worksheet, _
   
5.     MyPath, FindFile, FileCunt, x, Xm As Long, _
   
6.     RngEnd As Range, uDate As Date
   
7. 
   
8. Set FindFile = Application.FileSearch
   
9. 
   
10. With FindFile
    
11.     .LookIn = MyPath: .Filename = "*.csv"
    
12.     .SearchSubFolders = False: .MatchTextExactly = True
    
13.     .FileType = msoFileTypeAllFiles
    
14.     FileCunt = .Execute()
    
15. End With
    
16. 
    
17. If FileCunt = 0 Then _
    
18.    MsgBox "※找不到要匯入的文字檔!!! ", 0 + 48, ">>提示訊息": Exit Sub
    
19. Application.ScreenUpdating = False
    
20. 
    
21. '...
    
22. End Sub

複製代碼

但在Excel 2007/2010卻發生執行錯誤，bug是出現在同一行

1. Set FindFile = Application.FileSearch

複製代碼

不知道在Excel 2007/2010時，此行要如何修改？

Hsieh

回復 1# waterful.tw


    FileSearch
於2007版本以後已經不支援此物件
可使用Dir函數或是GetOpenFilename來取代

waterful.tw

請問Hsieh大大，若我將原先程式碼

1. Set FindFile = Application.FileSearch
   
2. With FindFile
   
3.     .LookIn = MyPath: .Filename = "*.csv"
   
4.     .SearchSubFolders = False: .MatchTextExactly = True
   
5.     .FileType = msoFileTypeAllFiles
   
6.     FileCunt = .Execute()
   
7. End With

複製代碼

改為下列程式碼

1. Set FindFile = Dir(MyPath & "*.csv")
   
2. Do While FindFile <> ""
   
3.     FileCunt = FileCunt + 1
   
4.     FindFile = Dir
   
5. Loop

複製代碼

在Dir函數設定的那行，卻發生"此處需要物件 (錯誤 424)"錯誤，請問我該如何修改？
PS.不太會用Dir函數的新手留

Hsieh

回復 3# waterful.tw
FindFile是字串不是物件不能使用SET陳述式

1. FindFile = Dir(MyPath & "*.csv")
   
2. Do While FindFile <> ""
   
3.     FileCunt = FileCunt + 1
   
4.     FindFile = Dir
   
5. Loop

複製代碼

waterful.tw

感謝Hsieh大大，看來我後面有一大段程式要修改了，等有問題在上來發問囉~ ^^