Range

[Чудик]

Вопрос касается Excel, но, по моему он не относится напрямую к VBA, почему, ниже:
xl.Sheets(1).Range(Cells(Ysel1, Xsel1), Cells(Ysel2, Xsel2)).Select
такая запись проходит в VBA, но когда я пишу это в VB для внешнего управления Excel, выдает ошибку (ошибка определения объекта).
Как это можно обойти? Именно в VB.

[GSerg]

with xl.Sheets(1)
.Range(.Cells(Ysel1, Xsel1), .Cells(Ysel2, Xsel2)).Select
end with

[alibek]

Попробуй не Cells, а xl.Sheets(1).Cells

[alibek]

Ай-ай-ай Опять опередил

[Чудик]

Наверное, надо иметь определенный склад ума,
я бы так и не додумался, хотя указанная вами запись логична.
Спасибо!

[Чудик]

Я думаю, что будет не в обиду, если тут проскочит, еще вопрос с той же тематики.
Озадачен, как высветить предварительный просмотр печати листа Excel и чтоб при закрытии этого просмотра сам лист не становился видимым, потому что, как я понимаю, при переключении на предварительный просмотр мы и переключаемся на саму кнмгу.
Но на данный момент даже предварительного просмотра не могу организовать - .PrintPreview - зависает все приложение.

[alibek]

Не совсем понял, что нужно.
Есть скрытый инстанс Excel. Нужно сделать PrintPreview и отобразить это окно, не отображая окно самого Excel. Так? Думаю, не сделать этого.
Просто делай xl.Visible = True, а затем Preview.

[Чудик]

В принципе, alibek, ты понял правильно. Если предварительно делать Visible=True, то в самом деле все работает, это решает только первую часть моей сложности, вторая - это как опять скрыть книгу после закрытия предварительного просмотра, так как я не хотел бы представлять пользователю доступ к Excel. Может есть какое-то событие на этот случай? Если это не реально, пожалуйста, дай знать, чтоб я далее просто не мучился и не терял времени. Угу?

[GSerg]

Попробуй посмотреть, как там происходят у xl события windowactivate/windowdeactivate...

[Чудик]

А можно ли из VB перехватывать события Excel? Иначе никак.

[GSerg]

Дык ну да...
private withevents xl as excel.application

[Чудик]

Не понял ...
Написал private withevents xl as excel.application в Declarations формы, ниже
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
MsgBox "1"
End Sub
а собитие не ловиться, в других вариантах вообще ошибки лезут. Не допру ...

[alibek]

Написал private withevents xl as excel.application ?
Теперь открой список объектов (левый комбобокс) и найди xl. Ну а дальше открывай правый комбобокс и смотри, какие события ты можешь ловить.

[Чудик]

Ребята, мне стыдно ... Туповат немного ... Видно, не вырос пока ...