从另一个程序中检索数据到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系列4图表