yuch8663

謝謝GBKEE所做的範例。

lasum

目前正在學 股票資料下載…
感謝GBKEE大…提供的程式…
目前測試正常…共下載23頁…

white5168

最近在5/30,5/29,5/28抓資料真的越來越有難度了,搞不懂到底哪個害群之馬一直在操掛 證交所的伺服器,搞的大家要抓資料都變的很困難
我是用python來下載資料就已經快抓狂了,我看用VBA抓資料的人應該會更想打人,因為 證交所的防火牆已經做了修改,因為在尖峰時段防火牆會限制連線數與時間,要長時間連線抓資料真的會有難度
用python下載上市795支股票的資訊,在這3天要花2~3小時,是平實抓上市795 上櫃615 (我抓的不是單一支股票的時間是全部)時間的3倍,真的大家找找這個害群之馬
最近也在用VBA抓網頁,但不是抓每日成交明細,不然我也會受不了
祝大家好運

gracyei

回復  carzyindex
有此網頁好辦些,但下載還是很費時的,慢慢的測試吧!!
GBKEE 發表於 2011-5-17 16:04

GBKEE大大,下載測試檔測試時第一支個股下載完畢後,會出現 "執行階段錯誤'424':此處需要物件" ,偵錯後會指向這一段程式" Sheets(日期 & "-" & 股票代號).Cells.Clear ",小弟還是初學者,想請問大大這一段代表什麼意思??請大大賜教

GBKEE

回復 27# gracyei
Sheets(日期 & "-" & 股票代號).Cells.Clear   

"執行階段錯誤'424':此處需要物件   活頁簿中沒有命名為日期 & "-" & 股票代號 的工作表

日期 & "-" & 股票代號  這工作表所有Cells(儲存格).Clear(清除資料)

gracyei

回復 28# GBKEE


    感謝GBKEE大大的回覆,小弟下載#16的測試檔做測試每次跑到第2檔1102時就會發生錯誤,且第2檔股票Sheet的內容會被這一段指令Clear掉,且代號的Sheet會被刪除掉;若只設定1檔則可完成,小弟還是找不出哪裡的問題,請問大大是哪裡的問題?? THX!!

GBKEE

回復 29# gracyei
將檔案上傳看看

gracyei

回復  gracyei
將檔案上傳看看
GBKEE 發表於 2012-7-4 16:13

測試檔是從本帖16樓下載,無做修改,麻煩GBKEE大大看一下
測試.rar (17.46 KB)

下載次數: 18

2012-7-4 17:44

GBKEE

回復 31# gracyei
修改如下

1. Option Explicit
   
2. Sub 個股交易整頁()
   
3.     Dim 股票代號 As Range, 日期 As Variant, F As Range
   
4.     Do While Not IsDate(日期)
   
5.         日期 = InputBox("輸入查詢日期", "日期", Date)
   
6.         If 日期 = "" Then End
   
7.     Loop
   
8.     日期 = Format(日期, "yyyymmdd")
   
9.     Set 股票代號 = ThisWorkbook.Sheets("代號").[A1]
   
10.     On Error Resume Next                           '不理會 在執行程式的時候發生的錯誤
    
11.     Do While 股票代號.Value <> ""
    
12.         ThisWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
    
13.         ActiveSheet.Name = 日期 & "-" & 股票代號
    
14.         Sheets("代號").Activate
    
15.         With Sheets(日期 & "-" & 股票代號)
    
16.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=" & 日期 & "&StartNumber=" & 股票代號 & "&FocusIndex=All_100", Destination:=.Cells(1))
    
17.                 .Name = 日期 & "-" & 股票代號
    
18.                 .WebSelectionType = xlEntirePage
    
19.                 .WebFormatting = xlWebFormattingNone
    
20.                 .WebPreFormattedTextToColumns = True
    
21.                 .WebConsecutiveDelimitersAsOne = True
    
22.                 .WebSingleBlockTextImport = False
    
23.                 .WebDisableDateRecognition = False
    
24.                 .WebDisableRedirections = False
    
25.                 Do
    
26.                     DoEvents
    
27.                     Err.Clear                         'Err物件的重設
    
28.                     .Refresh BackgroundQuery:=False   '查詢失敗 會產生錯誤
    
29.                 Loop Until Err.Number = 0             '執行迴圈直到錯誤消:失 查詢成功
    
30.             End With
    
31.             .Range("F5:H" & Rows.Count).Delete 1
    
32.             .Range(.Cells(.Rows.Count, "B").End(xlUp).Offset(1), .Cells(.Rows.Count, "B")).Offset(, -1).Clear
    
33.             .Range(.Cells(Rows.Count, "G").End(xlUp).Offset(1), .Cells(Rows.Count, "G")).Offset(, -1).Clear
    
34.             Set F = .[A:A].Find("*頁 / 共*", LOOKAT:=xlPart)
    
35.             Do While Not F Is Nothing
    
36.                 F.Offset(-1).Resize(7).EntireRow.Delete
    
37.                 Set F = .[A:A].FindNext
    
38.             Loop
    
39.             .UsedRange.Columns.AutoFit
    
40.         End With
    
41.         Set 股票代號 = 股票代號.Offset(1)
    
42.     Loop
    
43.     MsgBox "下載完畢 !!!", 32 + 0, "個股交易明細"
    
44. End Sub

複製代碼

sd-jason

各位大大：
請問像這些語法，
我應該把他貼在哪裡，
才能執行？
你們的檔案我都沒有辦法看，
是否可以寄給我呢？
jason.chun@hotmail.com
感謝！