無法用超連結下如何import某個視窗畫面中的DATA

cdkee

因為無法用超連結方法，某個視窗畫面中含有會變動的數字data，是否可capture畫面中的data，再import到excel，又可不斷更新?或有其他方法?
請教大大，應怎樣寫?小輩再次感謝!

Hsieh

視窗畫面是網頁或是其他程式的視窗?

cdkee

視窗畫面是網頁或是其他程式的視窗?
Hsieh 發表於 2010-11-1 19:22

    版大，是其他程式的視窗。

cdkee

視窗畫面是網頁或是其他程式的視窗?
Hsieh 發表於 2010-11-1 19:22

    請教版大，若視窗畫面是網頁(行JAVA)，因為用Web Query方法不成，如何利用VBA匯入?小輩再三謝謝!

cdkee

請教版大，若視窗畫面是網頁(行JAVA)，因為用Web Query方法不成，如何利用VBA匯入?cdkee 發表於 2010-11-3 12:16

    在網上找到的一些分享，但不明所指:
"找到控件ID，看一下有沒有辦法用api直接讀取控件文本，然後再處理一下放入工作表中"

cdkee

回復 6# 老夏


    謝謝老夏前輩!但是要不斷更新喔...

因為無法用超連結方法，某個視窗畫面中含有會變動的數字data，是否可capture畫面中的data，再import到excel，又可不斷更新?或有其他方法?
請教大大，應怎樣寫?小輩再次感謝!cdkee 發表於 2010-11-1 11:45

cdkee

跟老夏前輩的方向找，找到以下sample，(小輩不才，不明其中)不知是否前輩所指:
'**Win32 API Declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowName As String) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, IpRect As RECT) As Long

'**Win32 API User Defined Types
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub test()
Dim Rec As RECT
'Get Left, Right, Top and Bottom of Form1
GetWindowRect GetWindowHandle, Rec
'Set Cursor position on X
SetCursorPos Rec.Right - 600, Rec.Top + 400
End Sub

Private Function GetWindowHandle() As Long
Const CLASSNAME_MSExcel="XLMAIN"
'Gets the Apps window handle, since you can't use App.hInstance in VBA (VB Only)
GetWindowHandle = FindWindow(CLASSNAME_MSExcel, vbNullString)
End Function

cdkee

回復 9# 老夏


    再謝謝前輩指導!
是小輩說不清楚!是要網頁中含有會變動的數字data，連結到儲存格，又可不斷更新，請前輩不厭小輩問題多，再請前輩指導!

oobird

無法知道你要查什麼，舉個例子吧：在a1儲存格查詢本版在線人數
Sub Test()
    With CreateObject("Microsoft.XMLHTTP")
            .Open "get", "http://forum.twbts.com/index.php", False
            .send
            [a1] = Split(Split(.responseText, "- <em>")(1), "</em>")(0)
    End With
End Sub
每次運行即更新

cdkee

回復 11# 老夏


    前輩這樣說，看來這是一個很複雜的問題!