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

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

16^# 跳轉到 »

發表於 2010-11-4 09:32 | 只看該作者

回復 oobird

這樣的問題應該有點類似看盤軟體
excel透過dde通道提取看盤軟體資料
若是你用ie開啟此類 ...
Hsieh 發表於 2010-11-4 09:25

不懂股票，也沒有DDE,不過可以想像，如GOOGLE翻譯網頁，以前可以取得資料，現在也讀不到了！

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 212
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-11-4 09:25 | 只看該作者

回復 14# oobird

這樣的問題應該有點類似看盤軟體
excel透過dde通道提取看盤軟體資料
若是你用ie開啟此類應用程式檢視其原始碼看是否能取得網頁所有內容

學海無涯_不恥下問

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

14^#

發表於 2010-11-4 08:39 | 只看該作者

謝謝版大提點!
該網頁必須裝上JAVA才可顯示DATA，程式支持的語言是否指這個?
cdkee 發表於 2010-11-3 23:32

看這情形你應該在JAVA上做，你是否跑錯地方了？

帖子: 185
主題: 44
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-9-27

13^#

發表於 2010-11-3 23:32 | 只看該作者

如果一般網頁而言，可由網頁控件直接擷取
若是其他應用程式以WEB開啟那麼可能要看該程式支持的語言而定
Hsieh 發表於 2010-11-3 23:22

謝謝版大提點!
該網頁必須裝上JAVA才可顯示DATA，程式支持的語言是否指這個?

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 212
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2010-11-3 23:22 | 只看該作者

如果一般網頁而言，可由網頁控件直接擷取
若是其他應用程式以WEB開啟那麼可能要看該程式支持的語言而定

學海無涯_不恥下問

帖子: 185
主題: 44
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-9-27

11^#

發表於 2010-11-3 23:12 | 只看該作者

回復 12# oobird

謝謝版大舉例指導!
小輩問題的網頁要LOGIN才看到DATA，而且是行JAVA，用Web Query方法不成!

帖子: 185
主題: 44
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-9-27

10^#

發表於 2010-11-3 22:55 | 只看該作者

回復 11# 老夏

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

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-11-3 22:19 | 只看該作者

無法知道你要查什麼，舉個例子吧：在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
每次運行即更新

帖子: 185
主題: 44
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-9-27

8^#

發表於 2010-11-3 21:34 | 只看該作者

本帖最後由 cdkee 於 2010-11-3 21:52 編輯

回復 9# 老夏

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

帖子: 185
主題: 44
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-9-27

7^#

發表於 2010-11-3 18:41 | 只看該作者

本帖最後由 cdkee 於 2010-11-3 18:44 編輯

跟老夏前輩的方向找，找到以下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