ExportAsFixedFormat _ Run-time error ’-2147467259 (80004005)'

_Лена_

Гость

25.04.2012 23:39:45

Всем добрый вечер!!

в строке кода:
CreateObject("Word.Application").Documents.Open("C:\111.docx", , True).ExportAsFixedFormat "C:\111.pdf", 17

появляется ошибка:
Run-time error ’-2147467259 (80004005)':
Данный файл используется другим приложением или пользователем.

помогите пожалуйста - как ее избежать?
какой файл используется: docx или pdf?
как его "перестать использовать" ? :))

причем - если pdf уже существует (то есть, если сохранение идет поверх существующего), то вроде ошибка не выскакивает. подскажите пожалуйста команду создания пустого pdf файла-заглушки. (не сохранять или печатать в pdf, а именно просто создать. что-нибудь типа FSO.Makefile ("C:\111.pdf")

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 25.04.2012 23:42:40 Для начала попробуйте в диспетчере задач посмотреть - есть ли там среди открытых документов Ваши. И закройте там же само приложение.

_Лена_

Гость

25.04.2012 23:51:55

процесса WINWORD.EXE нету
процессов *Adobe*, *Acro* найти не могу

даже если есть куча процессов WINWORD.EXE - перезапись(!) файла делается отлично, при условии, если файл pdf уже существует.

таким образом, ошибка появляется только при создании нового файла.
если файл есть, и идет перезапись - то ошибка вроде не появляется

вот и хочу перед выполнением функции создавать макросом пустой файл-заглушку, чтобы он в любом случае перезаписывался и не было ошибок

_Лена_ Гость	#4 26.04.2012 00:13:27 вставила перед выполнением функции: FileCopy "C:\_Пустой.pdf", "C:\111.pdf" ошибка пропала :)

Hugo Пользователь Сообщений: 26304 Регистрация: 22.12.2012	#5 26.04.2012 00:41:14 Бывает, что в корень C запрещает писать система или антивирус.

_Лена_

Гость

26.04.2012 00:48:51

а вот еще нашла решение: http://tiny.cc/u28bdw
по первичным тестам ошибка тоже не выскакивает

вместо:
Set Word = CreateObject("Word.Application")
Set Wordfile = Word.Documents.Open("C:\111.docx")

заменить на:
Set Word = CreateObject("Word.Application")
Word.Documents.Open("C:\111.docx")
Set Wordfile = Word.ActiveDocument

_Лена_ Гость	#7 26.04.2012 00:52:07 точнее так: Set Word = CreateObject("Word.Application") Word.Documents.Open "C:\111.docx" Set Wordfile = Word.ActiveDocument

_Лена_ Гость	#8 26.04.2012 00:57:19 а нет :( это из-за файла-заглушки работало с новым кодом. файл-заглушку убрала - ошибка и в новом коде появилась. ну буду значит через пустой файл-заглушку делать (msg 26.04.2012, 00:13)

Читают тему