返回列表 上一主題 發帖

台股月營收

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
1# 跳轉到 »
發表於 2012-7-7 15:09 | 顯示全部帖子
回復 5# chen_cook

謝謝大大的回應, TRY 大大公告的code 有不明白處 請教

1.     y$ = 101: m$ = 5       <---可修正抓取年月 <==> 修改成  Syear = Year(Date) - 1911: Smon = Month(Date) - 1     

     "URL;http://mops.twse.com.tw/t21/" & myWeb(i) & "/t21sc03_" & Syear & "_" & Smon & ".html", Destination:=Cells(1, 1))

      執行 程式後會在下行之處發生錯誤，(執行階段錯誤,陣列超出範圍)

       Range("A1:J" & Ed).Copy Worksheets("月營收").Cells(x + 2, 1)

2, 要如何一次取得多月份的月營收資料

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
2#
發表於 2012-8-9 07:41 | 顯示全部帖子
回復 7# chen_cook
你好 ,個別月份可以用,謝謝!!

但是  連續抓 的COD中,我不明白下二列的語法, 如可以話請說明!!

y$ = Range("B1"): m$ = Range("C1"): Ey$ = Range("D1"): Em$ = Range("E1") 'B1&C1 始年月 E1&D1 終年月

  x = 0: Sheets.Add.Name = "sample": Sheets("sheet1").Select

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
3#
發表於 2012-8-9 11:03 | 顯示全部帖子
回復 14# GBKEE
謝謝GBKEE大大!!

明白你的說明, 修改後 RUN時會自動增加sheets("samlpe")及Sheets(sheet4).Sheets(sheet5).Sheets(sheet6).......
但是無法抓到資料,
會卡在 Sheets.Add.Name = "sample"

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
4#
發表於 2012-8-10 11:49 | 顯示全部帖子
回復 14# GBKEE

謝謝 chen_cook &  chen_cook  大大,

我己試OK ! 感恩!!

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題