将数据从另一个程序检索到VBA

时间:2015-06-16 16:18:30

标签: excel vba api excel-vba

我试图将另一个名为CMA Series 4的软件中的数据检索到我的Excel中。我已经能够获得图表的处理程序,我想要检索该数据,但从现在开始,我不知道如何继续获取该信息。

使用Microsoft Spy ++,我能够成功地访问CMA中的对象,即来自" fpSpread 60"类。但是我如何检索存储在其中的数据?那是代码:

Sub GetBookData()

Dim BookTitle As String
Dim BookClass As String

'----------------------------------------------------------'
BookTitle = "[012] POMO4 - Livro de Ofertas"
'----------------------------------------------------------'

hwnd = FindWindow("CMAGRAPHIC_MDI", vbNullString)
    Livro1 = FindWindowEx(hwnd, 0&, "MDIClient", vbNullString)
    Livro2 = FindWindowEx(Livro1, 0&, vbNullString, BookTitle) 'Classe alterável
    Livro3 = FindWindowEx(Livro2, 0&, "SysTabControl32", vbNullString)
    Livro4 = FindWindowEx(Livro3, 0&, "AfxMDIFrame90", vbNullString)

    'Necessaria criação dessa porcaria dessa árvore de referencia porque a estrutura desse lixo de CMA é essa...
    Livro5 = FindWindowEx(Livro4, 0&, "AfxFrameOrView90", vbNullString)
        Livro6 = FindWindowEx(Livro4, Livro5, "AfxFrameOrView90", vbNullString)
        Livro7 = FindWindowEx(Livro4, Livro6, "AfxFrameOrView90", vbNullString)
        Livro8 = FindWindowEx(Livro4, Livro7, "AfxFrameOrView90", vbNullString)
        Livro9 = FindWindowEx(Livro4, Livro8, "AfxFrameOrView90", vbNullString)
        Livro10 = FindWindowEx(Livro4, Livro9, "AfxFrameOrView90", vbNullString)

    Livro11 = FindWindowEx(Livro10, 0&, "fpSpread60", vbNullString)
        Livro12 = FindWindowEx(Livro10, Livro11, "fpSpread60", vbNullString)
        Livro13 = FindWindowEx(Livro10, Livro12, "fpSpread60", vbNullString)
        Livro14 = FindWindowEx(Livro10, Livro13, "fpSpread60", vbNullString)
        Livro15 = FindWindowEx(Livro10, Livro14, "fpSpread60", vbNullString)
        HwndBook = FindWindowEx(Livro10, Livro15, "fpSpread60", vbNullString) '---- FINALMENTE ----'


'MsgBox HwndBook
MsgBox HwndBook

End Sub

而且,我还要从我希望获取该信息的地方张贴打印屏幕:

CMA Series 4 Chart

0 个答案:

没有答案