Как исправить ошибку «Файл не найден» на Workbooks.Open?

Question

Итак, вот код, с которым мне нужна помощь:

Set oExcel = CreateObject("Excel.Application")
If sPath = "" Then
    sPath = fWindowsTemp
End If

If sPath = "" Then
    sPath = "C:\"
End If

sArq = Dir(sPath & sNomeArquivo & "????." & sExtensao)
iNumero = 0

While sArq <> ""
    If Val(Mid(Replace(sArq, sNomeArquivo, "TEMP"), 5, 4)) >iNumero Then
        iNumero = Val(Mid(Replace(sArq, sNomeArquivo, "TEMP"), 5, 4))
    End If
    sArq = Dir
Wend

If (bSalvarPDF) Then
    sArq = Dir(Trim(sPath) & Trim(sNomeArquivo) & "????.PDF")
    While sArq <> ""
        If Val(Mid(Replace(sArq, sNomeArquivo, "TEMP"), 5, 4))  iNumero Then
            iNumero = Val(Mid(Replace(sArq, sNomeArquivo, > "TEMP"), 5, 4))
        End If
        sArq = Dir
    Wend
End If
sArq = Trim(sPath) & sNomeArquivo & Right("0000" & iNumero + 1, 4) & "." & sExtensao

Call MsgBox(sArq, vbOKOnly, "Arquivo")

oFile.CopyFile rst!EXC_Arq, sArq
oExcel.Workbooks.Open sArq
oExcel.Calculation = xlManual

Это дает мне следующую ошибку:

Ошибка 1004 'file.xlsx' не может бытьнайдено.

Мой журнал предупреждает, что ошибка находится в следующей строке:

oExcel.Workbooks.Open sArq

Кроме того, моя переменная sArq дает следующий результат: C:\DOCUME~1\GAtec\CONFIG~1\Temp\TST 020005.XLS и иногда .XLSX тоже

На моем текущем компьютере установлен Excel 2007, который поддерживает .xlsx

Есть ли какие-либо выводы?