我试图将另一个名为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
而且,我还要从我希望获取该信息的地方张贴打印屏幕: