2 EVGL: Спасибо за совет через DDE - все получилось !!!.
Вод код на VB (предварительно надо запустить Axapta и открыть форму tutorial_dde_server)
Private Sub CommandButton1_Click()
ChannelNumber = Application.DDEInitiate( _
app:="Axapta", _
topic:="System")
S = Application.DDERequest(ChannelNumber, "Table")
For i = LBound(S) To UBound(S)
Worksheets("Sheet1").Cells(i, 1).Formula = S(i, 1)
Next i
Application.DDETerminate ChannelNumber
End Sub
|