在循环中打开Excel工作表时发生VBA错误

Question

我正在尝试在少数Excel表格上使用以下代码执行少量操作。我得到一个运行时错误1004 Application.Workbooks.Open（StrFile）。它似乎无法找到该文件。之所以我认为，这是因为它没有显示在下面的截图显示在目录中的文件路径，但只是文件：

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)