ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с Екселем как с объектом OLE.
4 сообщений из 4, страница 1 из 1
Работа с Екселем как с объектом OLE.
    #32414270
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
В таблице находится шаблон листа Екселя(как объект OLE). Как из Аксесса создать на его основе документ? Интересуют именно первые строки с созданиями ссылок и т.п. У меня либо Ексель появляется на экране и заполнение листа происходит "на глазах", либо при попытке спрятать Ексель получаю всякие разные сообщения об ошибках(например: "метод Select объекта Range выполнен неверно"). Что-то я путаюсь в ссылках при работе с шаблоном.
...
Рейтинг: 0 / 0
18.02.2004, 18:45
| Ответить | Цитировать | Написать  
Работа с Екселем как с объектом OLE.
    #32414382
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Гюльчатай, открой личико
...
Рейтинг: 0 / 0
18.02.2004, 20:00
| Ответить | Цитировать | Написать  
Работа с Екселем как с объектом OLE.
    #32414771
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Benzin
Участник
Не понял насчет "личика", но если это о коде, то вот выдержки:
В табл. "Files" храняться шаблоны(шаблон Екселя имеет ID=3), на форме расположен элемент "присоединенная рамка объекта" с названием "Shablon"....
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Pole As Control
Dim xlsApp As Object
Dim xlsSheet As Object
..................................
Pole = DLookup( "Shablon" ,  "Files" ,  "ID = 3 ") ' & NomDoc)
Pole.Action = acOLEActivate
Set xlsApp = GetObject(,  "Excel.Application" )
Set xlsSheet = xlsApp.Worksheets( 1 )

На третьей снизу строке лист Екселя появляется на экране. Пробовал перед ней писать:
Код: plaintext
Pole.Verb = acOLEVerbHide
Ексель не возникает, но лезут ошибки и мало того - если эту строку закомментировать, то вернуться к появлению на экране Екселя не получается, приходится закрывать и снова открывать программу.
Если добавить строку:
Код: plaintext
xlsApp.Visible = False
, то Ексель пропадает, но хотелось бы, что бы он и не появлялся, т.е. на экране не было бы его мигания
Еще непонятно как все работает без ссылки на объект Workbook ?
...
Рейтинг: 0 / 0
19.02.2004, 10:33
| Ответить | Цитировать | Написать  
Работа с Екселем как с объектом OLE.
    #32415865
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
...
    Forms!lP.Visible = False
    Forms!lP!Shabl = DLookup( "Shablon" ,  "Files" ,  "ID="  & id)
    Forms!lP!Shabl.Action =  7        'OLE_ACTIVATE
Dim lType As Long
    lType = DLookup( "Type" ,  "Files" ,  "ID="  & id)
    Select Case lType
    Case  0 
        Set obExcel = GetObject(,  "Excel.Application" )
        obExcel.Visible = False
        On Error Resume Next
            Screen.ActiveForm.Repaint
            Me.Repaint
            Err =  0 
        On Error GoTo  0 
        Set obWindow = obExcel.ActiveWindow
...
...
Рейтинг: 0 / 0
19.02.2004, 17:04
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с Екселем как с объектом OLE.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1676558]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 34ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 232ms
total:  345ms
созд. / загр.: 345ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]