Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Март 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный хостинг на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик
Статус: Специалист
Рейтинг: 2963
∙ повысить рейтинг » 		Vasiliy83
Статус: Бакалавр
Рейтинг: 1420
∙ повысить рейтинг » 		Megaloman
Статус: Профессионал
Рейтинг: 1130
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:1001
Дата выхода:25.03.2010, 18:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:348 / 100
Вопросов / ответов:1 / 2

Вопрос № 177371: Уважаемые эксперты подскажите в следующем, если на ВБА написать, дословно так Sub FIO() ' Dim myWord As Word.Application, myDoc As Document Set myWord = Application 'объявляем объект с именем ... Set myDoc = Documents.Open(file...

Вопрос № 177371:

Уважаемые эксперты подскажите в следующем, если на ВБА написать, дословно так
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()

Если же написать

Dim myWord As Word.Application, myDoc As Document
Set myWord = Application 'объявляем объект с именем ...
Documents.Open fileName:="D:\Рабочая папка\УПК РФ.doc& quot;, Visible:=False
Set myDoc = myWord.Documents("D:\Рабочая папка\УПК РФ.doc") 'открыть документ с именем ..., по адресу ...

находясь на строке, то есть не выполнив её - Documents.Open fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False компьютер виснет, скажите почему, что не так ???
Спасибо Эндрю

Отправлен: 20.03.2010, 14:40
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 2
Страница вопроса »

Отвечает Vasiliy83, Бакалавр :
Здравствуйте, Ципихович Эндрю.
Момент первый: не совсем понятно, зачем Вам такая конструкция, если можно обойтись строкой
Код:
Set myDoc = Documents.Open(fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False)

т.е. и сразу определить переменную myDoc и тут же открыть файл

теперь по сути проблемы - вы в первую очередь нарушили синтаксис команды, т.к. для команды Application.Documents единственным аргументом является индекс файла, а не путь к нему
у меня заработало и с путем к файлу, но это не значит, что так правильно и должно работать везде.
индекс файла представляет из себя число со значением от 1 и до числа, которое равно количеству открытых файлов данного типа.
определить индекс довольно просто: последний открытый документ всегда имеет индекс 1, дальше индекс увеличивается в зависимости от порядка открытия файлов, т.е. если открыто 7 файлов, то открытый самым первым файл будет иметь индекс 7, а последний - 1

получается, что у Вас должна заработать такая конструкция:
Код:
Dim myWord
As Word.Application, myDoc As Document
Set myWord = Application 'объявляем объект с именем ...
Documents.Open fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False
Set myDoc = myWord.Documents(1) 'открыть документ с именем ..., по адресу ...

Ответ отправил: Vasiliy83, Бакалавр
Ответ отправлен: 21.03.2010, 09:25
Номер ответа: 260273

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 260273 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает Измалков Эдуард Леонидович, 1-й класс :
    Здравствуйте, Ципихович Эндрю.

    Если я правильно понял суть Вашей проблемы, то Вы выполняете этот код пошагово из редактора кода с помощью клавиши "F8", а открываемый Вами файл содержит макросы. Если это так, то попробуйте строку Set myDoc = Documents.Open(fileName:="D:\Рабочая папка\УПК РФ.doc", Visible:=False) пройти с помощью комбинации клавиш "Shift"+"F8" (Step Over). В этом случае ВБА "втёмную" выполнит функцию, не заходя в неё.

    Выполнение макроса все равно продолжается, для подтверждения после строки ИТОГ = 1 поставьте строку MsgBox ИТОГ и запустите весь код на выполнение.

    Ответ отправил: Измалков Эдуард Леонидович, 1-й класс
    Ответ отправлен: 21.03.2010, 18:27
    Номер ответа: 260287

    Оценка ответа: 5

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 260287 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.03.2010
    В избранное