Блог

Главная - Вопросы по программированию - Как исправить ошибку «Файл не найден» в Workbooks.Open?

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

#excel #vb6

#excel #vb6

Вопрос:

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

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

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

sArq = Dir(sPath amp; sNomeArquivo amp; "????." amp; 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) amp; Trim(sNomeArquivo) amp; "????.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) amp; sNomeArquivo amp; Right("0000" amp; iNumero   1, 4) amp; "." amp; 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~1GAtecCONFIG~1TempTST 020005.XLS и иногда .XLSX слишком

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

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

Комментарии:

1. Да. Поместить файл в папку )))

2. В чем ваш вопрос? Похоже, вы уже отладили ее. Файл там или нет?

3. Файл есть, но он не открывается.. и поскольку он не может открыться с помощью oExcel. Workbooks. Открыть, тогда я не могу продолжать добавлять значения в Excel..

4. Это действительно код VB6 или VBA?

5. Вероятно, сообщение об ошибке правильное. Что-то не так с путем к файлу или именем файла, или это опечатка или что-то в этом роде.