Можно ли и как Передать ссылку на объект от одного VB или VBA приложения другому ?
Формулировка задачи:
Можно ли и как
Передать ссылку на объект от одного VB или VBA приложения другому ?
Например, есть VB приложение My1.exe и XLS файл X.xls ,
хочу при выполнении My1.exe передать объект MyObject (созданый здесь же в My1.exe ) в Public переменную Public P as Object , находящуюся в одном из модулей X.xls ( ну или в другой какой контейнер вместо P переменной, - не знаю какой).
После чего запустить X.xls (ну это не проблема), чтобы он работал уже с только что установленым значением P .
PS.
( Ну или вместо X.xls может выступать другое Vb приложение My2.exe )
Передать ссылку на объект от одного VB или VBA приложения другому ?
Например, есть VB приложение My1.exe и XLS файл X.xls ,
хочу при выполнении My1.exe передать объект MyObject (созданый здесь же в My1.exe ) в Public переменную Public P as Object , находящуюся в одном из модулей X.xls ( ну или в другой какой контейнер вместо P переменной, - не знаю какой).
После чего запустить X.xls (ну это не проблема), чтобы он работал уже с только что установленым значением P .
PS.
( Ну или вместо X.xls может выступать другое Vb приложение My2.exe )
Решение задачи: «Можно ли и как Передать ссылку на объект от одного VB или VBA приложения другому ?»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> AdpSetCnn()
<font color="blue">Dim</font> Rec <font color="blue">As</font> ADODB.RecordSet
Rec=<font color="blue">New</font> ADODB.RecordSet
<font color="blue">Dim</font> tBook <font color="blue">As</font> Excel.Workbook
<font color="blue">Set</font> tBook = GetObject(CurrentProject.Path & <font color="teal">"\TestCnn.xls"</font>)
tBook.Activate
<font color="00AA00">'tBook.Application.Visible = True</font>
<font color="00AA00">'tBook.Windows(1).Visible = True</font>
<font color="blue">Call</font> tBook.Application.Run(<font color="teal">"testCnn.XLS!SetCnn"</font>, _
CurrentProject.Connection, Rec)
<font color="blue">end</font> <font color="blue">sub</font>