Я не могу получить файл workbook.open, чтобы открыть файл, который он использует, чтобы открыть без изменений в коде.Почему это дает ошибку? - PullRequest
Новая
       8

Я не могу получить файл workbook.open, чтобы открыть файл, который он использует, чтобы открыть без изменений в коде.Почему это дает ошибку?

0 голосов
/ 11 июня 2019

Я пишу макрос, который опирается на информацию в другой книге.Вчера я запустил его и запустил там, где код позволил бы пользователю вводить номер дела, а затем он создавал название книги (например, «CaseDownload_72503») и открывал книгу с этим названием.Сегодня я возвращаюсь к своему компьютеру и получаю сообщение об ошибке «Ошибка во время выполнения» 1004 «Извините, мы не смогли найти CaseDownload_72503.xlsx. Возможно, он был перемещен, переименован или удален?»Со вчерашнего дня я не менял местоположение или название книги, и мой код не был изменен.Я не уверен, почему он не может найти рабочую книгу

Я пытался переместить документ на рабочий стол, чтобы найти его.Я попытался изменить заголовок, чтобы увидеть, могу ли я использовать другой, чтобы открыть его.И, конечно же, я закрыл все окна, связанные с Excel, и перезагрузил компьютер, и ничего не изменилось.

'''''''''''''''''''''''''''''''
'               SECTION 1
' This section accepts the case
' number from the user and then
' finds the dcouments that
' correspond to that case number
''''''''''''''''''''''''''''''''

Dim casenum, filename As String

'accepts user input for the case number they wish to open the workbook 'for
casenum = InputBox("Enter the case number for which you would like to generate the email template.")
'concatenates the case number with the beginning of the file naming 'standard
filename = "CaseDownload_" & casenum
'opens the file that matches'
Workbooks.Open filename:=filename

Он должен очень просто открыть рабочую книгу с указанным именем, а затем следующий (не включенный) код только начинает собирать информацию из открытой рабочей книги и помещать ее в другую.Он не найдет книгу и говорит, что ее не существует.

1 Ответ

0 голосов
/ 11 июня 2019

Попробуйте открыть с полными спецификациями файлов ;что-то вроде: 

Sub Marine()
    Dim casenum As String, filename As String

    casenum = Application.InputBox(Prompt:="enter case number", Type:=1)
    filename = "CaseDownload_" & casenum
    Workbooks.Open filename:="c:\users\garys\desktop\" & filename & ".xlsx"

End Sub
...