返回列表 上一主題 發帖

[發問] [VBA] 如何從公開資訊觀測站擷取股利分配到我的excel?

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
1# 跳轉到 »
發表於 2015-4-2 19:17 | 顯示全部帖子
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
2#
發表於 2015-4-2 19:53 | 顯示全部帖子
104年

http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=otc&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=rotc&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=pub&YEAR=104&first=

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
3#
發表於 2015-4-3 17:33 | 顯示全部帖子
只會錄製
  1. Sub 巨集1()
  2. '
  3. Sheets(1).Select
  4. Sheets(1).Cells.Clear
  5.     With ActiveSheet.QueryTables.Add(Connection:= _
  6.         "URL;http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=" _
  7.         , Destination:=Range("$A$1"))
  8.         .FieldNames = True
  9.         .RowNumbers = False
  10.         .FillAdjacentFormulas = False
  11.         .PreserveFormatting = True
  12.         .RefreshOnFileOpen = False
  13.         .BackgroundQuery = True
  14.         .RefreshStyle = xlInsertDeleteCells
  15.         .SavePassword = False
  16.         .SaveData = True
  17.         .AdjustColumnWidth = True
  18.         .RefreshPeriod = 0
  19.         .WebSelectionType = xlEntirePage
  20.         .WebFormatting = xlWebFormattingNone
  21.         .WebPreFormattedTextToColumns = True
  22.         .WebConsecutiveDelimitersAsOne = True
  23.         .WebSingleBlockTextImport = False
  24.         .WebDisableDateRecognition = False
  25.         .WebDisableRedirections = False
  26.         .Refresh BackgroundQuery:=False
  27.     End With
  28.    
  29.    
  30.     Sheets(2).Select
  31.     cy = Cells(2, "A")
  32.     cy = cy & " -"
  33.     Sheets(1).Select
  34.     Set kx = Cells.Find(What:=cy, After:=Cells(1, 4))
  35.     If Not kx Is Nothing Then Sheets(2).Cells(2, "B") = Cells(kx.Row, "J")
  36.     Sheets(2).Select
  37. End Sub
複製代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題