Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка при открытии word 
V
    Опции темы
FallFan
Дата 11.4.2008, 07:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 30.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Доброго времени суток.
Проблема заключается в том, что в данном коде:
Код

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Private Sub Form_Load()
Set WordApp = New Word.Application
Set WordDoc = Word.Application.Documents.Open("C:\1.doc")

WordDoc.Close
WordApp.Quit

Set WordApp = Nothing
Set WordDoc = Nothing

Set WordApp = New Word.Application
Set WordDoc = Word.Application.Documents.Open("C:\1.doc") '1

WordDoc.Close
WordApp.Quit

Set WordApp = Nothing
Set WordDoc = Nothing
End Sub


На строке "'1" возникает ошибка № 462 ("The remote server machine does not exist or is unavailable")
Вроде бы и открываю правильно и закрываю, перед открытием файла приложение открываю, а все равно ошибка.
Как её устранить?
PM   Вверх
Akina
Дата 11.4.2008, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(FallFan @  11.4.2008,  08:28 Найти цитируемый пост)
На строке "'1"

То есть на строке 
Цитата(FallFan @  11.4.2008,  08:28 Найти цитируемый пост)
Код

Dim WordApp As Word.Application

?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
FallFan
Дата 11.4.2008, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 30.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: нет
2 Akina
))) Имелось в виду на строке с комментрием '1, т.е. строка №15.
PM   Вверх
Akina
Дата 11.4.2008, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А зачем Вы создаете объект Word.Application, который не используете? 

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



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
FallFan
Дата 11.4.2008, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 30.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: нет
2 Akina

Word.Application - да тут я сфальшивил имелось в виду WordApp.Documents...

Цитата

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


Скорее всего нет, ведь приведенный мною код упращенный, и между 12 и 14 строками не пустая строка а целые процедуры 

Это сообщение отредактировал(а) FallFan - 14.4.2008, 13:07
PM   Вверх
FallFan
Дата 14.4.2008, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 83
Регистрация: 30.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Отлично! Понял в чем дело!

Вот так все работает:

Код

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Private Sub Form_Load()
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("C:\1.doc") ' Word.Application ->WordApp

WordDoc.Close
WordApp.Quit

Set WordApp = Nothing
Set WordDoc = Nothing

Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("C:\1.doc") ' Word.Application ->WordApp

WordDoc.Close
WordApp.Quit

Set WordApp = Nothing
Set WordDoc = Nothing
End Sub



2 Akina

Спасибо за помощь.
 
Тема закрыта
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0911 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.