ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
9 сообщений из 9, страница 1 из 1
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39364766
VitAks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VitAks
Участник
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA).
Подключена библиотека "Maicrosoft Excel 14.0 Object Librari"

Код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Sub xlsxF()

    Dim app As Excel.Application
    Dim wbk As Excel.Workbook
    Dim sht As Excel.Worksheet
    Dim rng As Range
    
    Set app = CreateObject("Excel.Application")
    Set wbk = CreateObject(lPathAndName)
    
    
    Debug.Print wbk.Worksheets(1).Range("$B$2").Value
    wbk.Worksheets(1).Range("$B$2").Value = "test"
    
    wbk.Save
    wbk.Close
    app.Quit

    
End Sub



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

Вопрос:
Ole жив еще?

Просьба:
Помогите чем можете:

1)Подскажите, что именно написать, чтобы файл открылся
или 2)Дайте ссылку на русском, где есть описание работы этой библиотеки
или 3)Помогите составить вопрос, чтоб меня Googl правильно понял. Моя редакция: "Excel как сервер OLe из VBA". - сылки не очень.

P.S. может эта технология не пользуется популярностью (что-то мало ссылок), может надо использовать FSO?
Цель - данные, сформированные в access с участием пользователя записать в Excel, отформатировать их там и предоставить пользователю возможность продолжиь работу с файлом.

Спасибо заранее.
...
Рейтинг: 0 / 0
12.12.2016, 11:47
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39364938
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
app.Visible = True
...
Рейтинг: 0 / 0
12.12.2016, 14:59
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39364943
грязный комплектовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
грязный комплектовщик
Гость
VitAks, у меня 12 офис, открываю так программно:
Код: vbnet
1.
2.
3.
4.
Set xlsObj = CreateObject("Excel.Application")
xlsObj.Visible = True
xlsObj.WorkBooks.Open strDBXLSFullName
'тут что-то делаю с открытой книгой
...
Рейтинг: 0 / 0
12.12.2016, 15:02
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365029
VitAks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VitAks
Участник
грязный комплектовщикVitAks, у меня 12 офис, открываю так программно:
Код: vbnet
1.
2.
3.
4.
Set xlsObj = CreateObject("Excel.Application")
xlsObj.Visible = True
xlsObj.WorkBooks.Open strDBXLSFullName
'тут что-то делаю с открытой книгой



Спасибо.
У меня 2010 как бы узнать - какая библиотека ему нужна?

ни visible, ни open не работают
...
Рейтинг: 0 / 0
12.12.2016, 16:10
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365030
VitAks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VitAks
Участник
Shocker.Pro
Код: vbnet
1.
app.Visible = True



Спасибо, ни visible, ни open не работают
...
Рейтинг: 0 / 0
12.12.2016, 16:10
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365081
Фотография Egoр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Egoр
Участник
VitAksни visible, ни open не работают
Вообще то книга у вас закрыта
Код: vbnet
1.
wbk.Close

Так что сделать ее видимой не удастся. :)
А еще у вас два объекта создается.
Код: vbnet
1.
2.
    Set app = CreateObject("Excel.Application")
    Set wbk = CreateObject(lPathAndName)

Свойства какого из двух объектов вы пробовали использовать?

Если условия позволяют, то можно развернуть схему и тянуть экселем (MS query) данные из access.
...
Рейтинг: 0 / 0
12.12.2016, 16:45
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365130
VitAks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VitAks
Участник
Egoр,
app.visible = true

Set wbk.open (путь)
...
Рейтинг: 0 / 0
12.12.2016, 17:56
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365154
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public Sub xlsxF()

    Dim app As Excel.Application
    Dim wbk As Excel.Workbook
    Dim sht As Excel.Worksheet
    Dim rng As Range
    
    Set app = CreateObject("Excel.Application")
    app.Visible = True
    Set wbk = app.Workbooks.Open(lPathAndName)
    
    
    Debug.Print wbk.Worksheets(1).Range("$B$2").Value
    wbk.Worksheets(1).Range("$B$2").Value = "test"
    
    wbk.Save
    wbk.Close
    app.Quit

    
End Sub
...
Рейтинг: 0 / 0
12.12.2016, 18:21
| Ответить | Цитировать | Написать  
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
    #39365503
VitAks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VitAks
Участник
Shocker.Pro,
Спасибо
...
Рейтинг: 0 / 0
13.12.2016, 10:20
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39365029&tid=2172836]:
 0ms
get settings:
 10ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 13ms
total:  151ms
созд. / загр.: 151ms
x
x
Закрыть


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