Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Ошибка при открытии word

Автор: FallFan 11.4.2008, 07:28

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

Код


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")
Вроде бы и открываю правильно и закрываю, перед открытием файла приложение открываю, а все равно ошибка.
Как её устранить?

Автор: Akina 11.4.2008, 07:57

Цитата(FallFan @ 11.4.2008, 08:28

)

На строке "'1"

То есть на строке

Цитата(FallFan @ 11.4.2008, 08:28

)

Код


Dim WordApp As Word.Application

Автор: FallFan 11.4.2008, 13:57

2 Akina
))) Имелось в виду на строке с комментрием '1, т.е. строка №15.

Автор: Akina 11.4.2008, 14:13

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

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

Автор: FallFan 11.4.2008, 14:21

2 Akina

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

Цитата

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

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

Автор: FallFan 14.4.2008, 13:06

Отлично! Понял в чем дело!

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

Код


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

Спасибо за помощь.

Тема закрыта