台股月營收

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 317
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

2^#

發表於 2012-7-4 05:26 | 只看該作者

月營收.rar (440.12 KB) 回復 1# ddhh4053

因說明很簡略,這是你要的嗎??

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 317
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

3^#

發表於 2012-7-7 10:22 | 只看該作者

回復 3# tsuneng

monitor.JPG (389.19 KB)

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 317
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

4^#

發表於 2012-7-7 12:43 | 只看該作者

回復 3# tsuneng

Dim myWeb(3) As String
y$ = 101: m$ = 5       <---可修正抓取年月

myWeb(0) = "sii"
myWeb(1) = "otc"
myWeb(2) = "rotc"
myWeb(3) = "pub"

For i = 0 To 3
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://mops.twse.com.tw/t21/" & myWeb(i) & "/t21sc03_" & y$ & "_" & m$ & ".html", Destination:=Cells(1, 1))
      '.Name = "zcx_" + stockCode$ + ".asp_5"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = False
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingAll
      .WebTables = "2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = True 'False
      .Refresh BackgroundQuery:=False
End With
Ed = [J65535].End(xlUp).row
Range("A1:J" & Ed).Copy Worksheets("月營收").Cells(x + 2, 1)
x = Worksheets("月營收").[a65536].End(xlUp).row
Cells.Select
Selection.Delete Shift:=xlUp

Next i

'
End Sub

tsuneng

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

5^#

發表於 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, 要如何一次取得多月份的月營收資料

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 317
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

6^#

發表於 2012-7-7 15:42 | 只看該作者

回復 6# tsuneng

Sub 月營收()
'
' Macro2 Macro
' SuperXP 在 2012/7/7 錄製的巨集
'
Dim myWeb(3) As String

myWeb(0) = "sii"
myWeb(1) = "otc"
myWeb(2) = "rotc"
myWeb(3) = "pub"

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

For Lp = 1 To (Ey$ - y$) * 12 - m$ + 1 + Em$
  x = 0: Sheets.Add.Name = "sample": Sheets("sheet1").Select
  For i = 0 To 3
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://mops.twse.com.tw/t21/" & myWeb(i) & "/t21sc03_" & y$ & "_" & m$ & ".html", Destination:=Cells(1, 1))
      '.Name = "zcx_" + stockCode$ + ".asp_5"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = False
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingAll
      .WebTables = "2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = True 'False
      .Refresh BackgroundQuery:=False
End With
Ed = [J65535].End(xlUp).row
Range("A1:J" & Ed).Copy Worksheets("sample").Cells(x + 2, 1)
x = Worksheets("sample").[a65536].End(xlUp).row
Cells.Select
Selection.Delete Shift:=xlUp
  Next i

Sheets("sample").Name = "C" & y$ & m$
If m$ = 12 Then
      y$ = y$ + 1
      m$ = 1
Else
      m$ = m$ + 1
End If

If Ey$ = y$ And Em$ < m$ Then
Exit For
End If

Next Lp

'
End Sub

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 317
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

7^#

發表於 2012-7-7 15:50 | 只看該作者

回復 6# tsuneng

y$ = 101: m$ = 5 <---可修正抓取年月 <==> 修改成 Syear = Year(Date) - 1911: Smon = Month(Date) - 1
我的做法是 y$ = year(today())-1911: m$=month(today())
你沒有 sheets("月營收") 再先改SHEET NAME!!
連續抓的已通知你了...先用我的跑能出現資料後,等看懂了再自已改!!