Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 177168
09.03.2010, 17:18
35.77 руб.
0 7 0
Компьютеры Программирование
Здравствуйте уважаемые эксперты, подскажите, пожалуйста, в следующем, имею строки кода:
Documents.Open fileName:= "D:\Рабочая папка\А.doc" 'открыть документ находящийся по адресу ..., с именем ...
Прохожу его вручную, после данной строки код магическим свойством убыстряется, что строку любую следующую за ним не усмотреть, например
М=0
Почему так происходит??
Файл мне нужно открыть «втёмную», то есть на заднем плане, только чтобы с него считать данные одной строки
Как лучше это сделать??
Спасибо Эндрю

Обсуждение

Неизвестный
10.03.2010, 01:14
общий
Ципихович Эндрю:
Попробуйте на следующей строке поставить Break Point
Неизвестный
10.03.2010, 20:02
общий
Andrew Kovalchuk:
получаю ошибку процедура или функция не определены
Неизвестный
11.03.2010, 21:26
общий
Ципихович Эндрю:
Если это не секретно, то можно весь Ваш код. Потому как объективных причин для такого поведения нет.
А чтобы открыть файл "втёмную" необходимо при открытии свойство Visible установить в false:
Documents.Open FileName:="D:\Рабочая папка\А.doc", Visible:=False
Неизвестный
12.03.2010, 17:09
общий
Измалков Эдуард Леонидович:
Спасибо за беспокойство проблема спала, сама собой, как сам не понял
Неизвестный
20.03.2010, 07:44
общий
Измалков Эдуард Леонидович:
Увы никуда она не спала
Вот пишу код
Dim myWord As Word.Application, myDoc As Document
Set myWord = Application 'объявляем объект с именем ...
Documents.Open fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False
Set myDoc = myWord.Documents("D:\Рабочая папка\УПК РФ.doc") 'открыть документ с именем ..., по адресу ...

находясь на строке, то есть не выполнив её Documents.Open fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False компьютер виснет, скажите почему, что не так
Неизвестный
20.03.2010, 09:39
общий
Ципихович Эндрю:
попробуйте заменить две последние строчки одной:

Set myDoc = Documents.Open(FileName:="D:\Рабочая папка\УПК РФ.doc", visible:=false)
Неизвестный
20.03.2010, 12:04
общий
Измалков Эдуард Леонидович:
Если написать, дословно так

Sub FIO()
'
Dim myWord As Word.Application, myDoc As Document
Set myWord = Application 'объявляем объект с именем ...
Set myDoc = Documents.Open(fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False) 'открыть документ с именем ..., по адресу ..., в "тёмную"
ИТОГ = 0
ИТОГ1 = 9

End Sub


тогда после строки
Set myDoc = Documents.Open(fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False) 'открыть документ с именем ..., по адресу ..., в "тёмную"
происходит всё тоже магическое убыстрение, что переменные ИТОГ и ИТОГ1 не раасмотреть, что им присвоено сразу после неё переходит в начало на строку
Sub FIO()
Форма ответа