ник: KrukVN
С объектами не подерживающими автоматизацию уже сталкивался, т.е. из родного приложения (excel, word) все работает, а из стороннего (напримиер из access) нет.
победил так: (хотя может есть решение и по красивше, а меня сроки оч поджимали)
- создал шаблон документа (в моем случае word);
- создал макрос (функцию с параметрами) непосредственно в шаблоне;
- в самой функции прописал то, что не поддерживает автоматизацию из access;
- далее из access создаю документ используя вышеописанный шаблон;
- и при помощи метода runmacro выполняю эту функцию с необходимыми параметрами.
Все работает как часики
Можно конечно попробовать и программно создать функцию в документе и выполнить её, но в моем случае без шаблона все равно было не обойтись
Хотя, у меня в Office XP вот это:
Private Sub wefwefwewef()
Dim RecSet As DAO.Recordset
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set RecSet = CurrentDb.OpenRecordset("tab_proba", dbOpenSnapshot)
xlApp.Visible = True
xlBook.Worksheets(1).Range("A4").CopyFromRecordset RecSet
RecSet.Close
Set RecSet = Nothing
End Sub
|
проходит вполне нормально
а в office 2003 возникает та самая ошибка :/