Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с Екселем как с объектом OLE. / 4 сообщений из 4, страница 1 из 1
18.02.2004, 18:45
    #32414270
Benzin
Benzin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Екселем как с объектом OLE.
В таблице находится шаблон листа Екселя(как объект OLE). Как из Аксесса создать на его основе документ? Интересуют именно первые строки с созданиями ссылок и т.п. У меня либо Ексель появляется на экране и заполнение листа происходит "на глазах", либо при попытке спрятать Ексель получаю всякие разные сообщения об ошибках(например: "метод Select объекта Range выполнен неверно"). Что-то я путаюсь в ссылках при работе с шаблоном.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2004, 20:00
    #32414382
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Екселем как с объектом OLE.
Гюльчатай, открой личико
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2004, 10:33
    #32414771
Benzin
Benzin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Екселем как с объектом OLE.
Не понял насчет "личика", но если это о коде, то вот выдержки:
В табл. "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, 17:04
    #32415865
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Екселем как с объектом OLE.
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с Екселем как с объектом OLE. / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 519ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1676558]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 144ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 286ms
total:  519ms
x
x
Закрыть


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