Программное отрытие книги

[tae1980]

Нужно получить из закрытой книги значение ряда ячеек и значении ряда переменных Excel (имен). Для этого открываю книгу через "Workbooks.Open". Но книга перенасыщены разного рода макросами и функциями, которые при подобном открытии начинают страшно ругаться. Пытаюсь использовать ".EnableEvents = False". Ряд функций все равно пытаются выполниться.

Вопрос: как программно открыть книгу так что бы ни чего не запускалось и не считалось? Может есть другие пути решения задачи?

[SAS888]

Нужно получить из закрытой книги значение ряда ячеек и значении ряда переменных Excel (имен)

как программно открыть книгу так что бы ни чего не запускалось и не считалось?

Перед открытием книги, помимо запрета обработки событий Application.EnableEvents = False, запретите автоматический пересчет формул: Application.Calculation = xlManual.

Может есть другие пути решения задачи?

О каких именах идет речь? Значения ячеек из листа Excel можно получить вообще не открывая книгу. С именами сложнее.

[tae1980]

Сообщение от SAS888

Перед открытием книги, помимо запрета обработки событий Application.EnableEvents = False, запретите автоматический пересчет формул: Application.Calculation = xlManual.

Спасибо!

Сообщение от SAS888

О каких именах идет речь? Значения ячеек из листа Excel можно получить вообще не открывая книгу. С именами сложнее.

Задача получения значений ячеек и имен для меня на данный момент равнозначны. В будущем задача сместиться к получению значений имен, так как все ключевые данные я уже перенес в имена. В ряде имен храняться непосредственно значения, а в ряде ссылки на ячейки, в последнем случае нужно получать значение ячеек.

[SAS888]

Если Вы сумеете свести задачу к получению значений ячеек, то книгу-источник данных открывать вообще не обязательно.

[tae1980]

Сообщение от SAS888

Если Вы сумеете свести задачу к получению значений ячеек, то книгу-источник данных открывать вообще не обязательно.

К сожалению задача смещается в противоположном направлении, с именами удобнее работать чем с ячейками. Остается открывать книги по фону и вытягивать информацию из них. Что не так смертельно. Это нужно больше для технических нужд, так что запускаться будет не часто и если что можно будет подождать.

[tae1980]

А как скрыть открытие книги? Так что бы книга не появлялась в панели задач.

[EducatedFool]

Так что бы книга не появлялась в панели задач.

ActiveWorkbook.Windows(1).Visible = False

Вместо ActiveWorkbook поставьте ссылку на открываемую книгу.

Можно обойтись и без этой строки кода. Я обычно открываю файлы таким кодом:

Sub test()
    Dim wb As Workbook, filename As String
    filename = "C:\Documents and Settings\Admin\Рабочий стол\PatchDrupalThemes.xls"
    Set wb = GetObject(filename) ' файл открывается, но окно этого файла скрыто
    ' ...
    wb.Close False ' закрываем файл без сохранения
End Sub

[tae1980]

Сообщение от EducatedFool

Можно обойтись и без этой строки кода. Я обычно открываю файлы таким кодом:

Sub test()
    Dim wb As Workbook, filename As String
    filename = "C:\Documents and Settings\Admin\Рабочий стол\PatchDrupalThemes.xls"
    Set wb = GetObject(filename) ' файл открывается, но окно этого файла скрыто
    ' ...
    wb.Close False ' закрываем файл без сохранения
End Sub

Открываю книгу таким способ: макросы не запускаются, функции не выполняются, но в книге есть связанные данные из другой книги и выдается вопрос "обновлять ссылки или нет". Как отказаться от обновления без вывода окна.

И еще, можно ли открыть книгу в режиме только чтение? Так на всякий случай перестраховаться.

[EducatedFool]

в книге есть связанные данные из другой книги и выдается вопрос "обновлять ссылки или нет"

Попробуйте Application.AskToUpdateLinks = FALSE

Сообщение от Справка VBA

AskToUpdateLinks Property

True if Microsoft Excel asks the user to update links when opening files with links.
False if links are automatically updated with no dialog box.

Read/write Boolean

И еще, можно ли открыть книгу в режиме только чтение?

Откроется она в режиме чтение/запись, но можно тут же переключиться на режим "только чтение":
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

Почитайте на досуге встроенную в Excel справку по VBA - узнаете много нового, нужного и интересного...

Так на всякий случай перестраховаться

А зачем? Вы не доверяете собственноручно написанному коду?
Или компьютеру, который против вашей воли может захотеть сохранить файл?

Если на то пошло, так сначала делайте макросом (команда filecopy) копию своего драгоценного файла, а потом с ней и работайте.

[tae1980]

Сообщение от EducatedFool

А зачем? Вы не доверяете собственноручно написанному коду?
Или компьютеру, который против вашей воли может захотеть сохранить файл?
Если на то пошло, так сначала делайте макросом (команда filecopy) копию своего драгоценного файла, а потом с ней и работайте.

Если честно, я не доверяю себе. Могу допустить ошибку которую, пройдет через все циклы проверок. И уже после "внедрения" кода в работу наделать много бед. За всем уследить не получается (по крайне мере у меня). Подобное уже случалось. И если есть возможность предпочитаю лишний раз перестраховаться, тем более если это не требует больших затрат. Это раз.
Во вторых. Изменения в файлах данных, должны производиться операторами (или процессами) имеющих на это права. Отслеживаться и логироваться. Это правило имеет статус аксиомы. И необходимо для нахождения "крайних" в случае возникновения ошибок в работе. И предпочитаю не давать "техническим" ошибкам даже шанса на появления, а тем более ошибкам которая будет нарушать аксиомы. Это сильно упрощает программирование и значительно сокращает цикл проверок.
Кроме этого, подобный подход пропагандируется в той литературе по которой я учился. И он уже в крови. :))