循環打開Excel工作表時出現VBA錯誤

Question

我試圖在幾個Excel工作表上執行一些步驟，並使用以下代碼。 我收到Application.Workbooks.Open（StrFile）的運行時錯誤1004。 似乎無法找到該文件。 我之所以這么認為，是因為它沒有顯示文件路徑，而只是顯示了屏幕截圖中所示的目錄中的文件：

Sub ExcelerFinal()

Dim FileCount As Integer
Dim FileName As String, FileNameGIS As String
Dim FilePath As String, StrFile As String

FileCount = 0
FileName = "MyFile_" + CStr(FileCount)
FileNameGIS = "MyFileGIS_" + CStr(FileCount)

FilePath = "E:\Database Project\ACS Estimate 2011\LoopTest\Test_RawData\"

StrFile = Dir(FilePath & "*.xlsx")

While StrFile <> ""
    Application.Workbooks.Open (StrFile) 'Error occurs on this line 
    FileCount = FileCount + 1
    FileName = "MyFile_" + CStr(FileCount)
    FileNameGIS = "MyFileGIS_" + CStr(FileCount)

    ' Lots of code to manipulate file
    ' unrelated to issue
    Windows(FileNameGIS).Close
    StrFile = Dir
Wend
End Sub

Answer 1

改用：

Application.Workbooks.Open(FilePath & strFile)