ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в Excel из Access вставить модуль с функциями и макрос?
6 сообщений из 6, страница 1 из 1
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081588
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Сами ячейки заполнять удается таким способом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject( "Excel.Application" )
'-- Make Excel visible through the Application object.'
ExcelSheet.Application.Visible = True
'-- Place some text in the first cell of the sheet.'
ExcelSheet.Application.Cells( 1 ,  1 ).Value =  "This is column A, row 1 "
'-- Save the sheet to C:\test.xls directory.'
ExcelSheet.SaveAs  "C:\TEST1.XLS" 
'-- Close Excel with the Quit method on the Application object.'
ExcelSheet.Application.Quit
' -- Release the object variable.
 
Set ExcelSheet = Nothing

А вот как туда модуль вставить, или хотябы просто фунццию?
...
Рейтинг: 0 / 0
19.12.2002, 11:20
| Ответить | Цитировать | Написать  
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081662
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Похоже не в курсах никто :(
...
Рейтинг: 0 / 0
19.12.2002, 12:20
| Ответить | Цитировать | Написать  
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081905
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Что касается модуля - создавай из него текстовый файл, а потом загружай как модуль, или програмно создавай модуль и запихивай текст. Это не так сложно вроде бы (через AllModules)
Макрос - боюсь, что никак. Но надеюсь, что как-нибудь можно ;0)
Есть же AllMacros?
К сожалению, времени нынче в обрез, поэтому подробнее не могу.
...
Рейтинг: 0 / 0
19.12.2002, 15:01
| Ответить | Цитировать | Написать  
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081913
-=Alexey=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Alexey=-
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Public Function test()
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, vbCmp As VBComponent
'нужна ссылка на Library VBIDE
'C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
'Microsoft Visual Basic for Applications Extensibility 5.3

  Set xlApp = New Excel.Application
  Set xlBook = xlApp.Workbooks.Add()
  Set vbCmp = xlBook.VBProject.VBComponents.Add(vbext_ct_StdModule)
  vbCmp.Name = "module_test"
  With vbCmp.CodeModule
    'методы :
    '.AddFromFile ...
    '.AddFromString  "Sub New" 
    '.CreateEventProc ...
    '.DeleteLines ...
    '.InsertLines ...
    '.ReplaceLine ...
  End With
  xlApp.Visible = True
  
  Set vbCmp = Nothing: Set xlBook = Nothing: Set xlApp = Nothing
End Function
...
Рейтинг: 0 / 0
19.12.2002, 15:13
| Ответить | Цитировать | Написать  
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081921
-=Alexey=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Alexey=-
Участник
соответсвенно макрос - это Public Sub без параметров
...
Рейтинг: 0 / 0
19.12.2002, 15:18
| Ответить | Цитировать | Написать  
Как в Excel из Access вставить модуль с функциями и макрос?
    #32081938
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Сенкс огромный! А то получалось перед импортом надо поставить надстройку к Excel с самописной формулой. Т.к. После экспорта, значения могут менять и формула должна их пересчитать! :)
...
Рейтинг: 0 / 0
19.12.2002, 15:35
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в Excel из Access вставить модуль с функциями и макрос?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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