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



Спасибо, ни visible, ни open не работают
...
Рейтинг: 0 / 0
12.12.2016, 16:45
    #39365081
Egoр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
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, 17:56
    #39365130
VitAks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
Egoр,
app.visible = true

Set wbk.open (путь)
...
Рейтинг: 0 / 0
12.12.2016, 18:21
    #39365154
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
Код: 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
13.12.2016, 10:20
    #39365503
VitAks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA)
Shocker.Pro,
Спасибо
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пытаюсь использовать Excel как сервер OLE из модуля формы в Access (VBA) / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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