| |
|
|
| | Forms![Кнопочная форма]!ExcelOLE = DLookup("Shablon", "Files", "ID = 2")
Forms![Кнопочная форма]!ExcelOLE.Action = acOLEActivate
Set xlApp = GetObject(, "Excel.Application")
Set xlWB = xlApp.Workbooks(1).Windows(1)
xlApp.WindowState = -4137
xlWB.Visible = True
...
Пример работает только при первом запуске Access. Потом окно Книги куда-то теряется, т.е. окно Excel видно, а окно листа - нет.
Хелп, плиз!  | |
| |
| |
| |
|
|
| | попробуйте принудительно разрушать переменную
Set xlApp = Nothing
а еще лучше предваритель закрывать Excel
xlApp.quit | |
| |
| |
| |
|
|
| | Дело в том, что в Excel-е потом нужно кое-что подправлять, поэтому закрывать его нельзя. Самое обидное, что при вызове таким образом Word - все в порядке. Там единственная разница в описании переменной:
Dim objWord as Object, objWindow as Object
Set objWindow = GetObject(, Word.Application)
Set objWindow = objWord.Documents.ActiveWindow ' !!!!!!
А вот в Excel ActiveWindow не пашет, почему-то. Можт описываю неверно ... | |
| |
| |
| |
|
|
| | В Excel нет коллекции Documents
свойство ActiveWindow принадлежит объекту Application
А зачем Вам окно?
Мне это объект как-то ни разу не понадобился....
Обходился Workbook и Worksheet | |
| |
| |
| |
|
|
| | А почему бы не просто:
xlApp.Visible = True | |
| |
| |
