使用excel上網捉取資料,該網站之資料需經計算幾分鐘,如何取得? - Excel程式區

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-3-10 17:47 | 顯示全部帖子

回復 3# chihminyang88

Hsieh(2013-3-10 12:01): 附上網址並說明操作以便測試

還缺說明操作 :附檔或程式碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-3-10 19:34 | 顯示全部帖子

回復 6# chihminyang88
計算後之資料.請問你是如何用VBA的程序(程式碼)來取得 ,你要秀上來看看,旁人才知如何幫忙.

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-3-11 08:57 | 顯示全部帖子

回復 8# chihminyang88
你為何用工作表上儲存格有修改的預設事件須修改一下

Private Sub Worksheet_Change(ByVal TARGET As Range)
Dim stockno As String
Application.EnableEvents = False
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
stockno = 3176
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.stockdog.tw/stockdog/index.php?p=3&m=2&sid=" & stockno & "&sdate=2013-01-01&edate=2013-01-31&Submit=%ACd%B8%DF" _
, Destination:=Range("A5"))
.Name = "持股分佈"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2,3,4,5,6,7,8,9,10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.EnableEvents = True
End Sub

複製代碼

匯入的外部資料如下有何不對?
～
券商買張賣張合計持股成本
9659(富邦高雄) 545 446 99 176.53
9653(富邦延平) 513 185 328 173.68
5260(大慶) 436 308 128 173.07
126U(宏遠館前) 293 95 198 181.41
9183(群益金鼎高雄) 264 220 44 175.28
註冊為會員可查詢所有券商進出資料、排行、持有均價

請先登入，查詢更多資料

註冊成為會員

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-3-11 12:25 | 顯示全部帖子

回復 10# chihminyang88
該網站需申請為會員(免費) 但會搜集個人資訊 (不想加入)
執行你的檔案如圖