返回列表 上一主題 發帖

[發問] 如何找到正確的網址,讓EXCEL匯入WEB查詢

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2016-10-1 06:58 | 顯示全部帖子
回復 4# bioleon69
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://www.cmoney.tw/finance/f00026.aspx?s=2330"
  7.        ' .Navigate "http://www.cmoney.tw/finance/f00026.aspx?s=" & 變數
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop      
  9.         Set xlTab = .Document.ALL.tags("TABLE")(0)
  10.         With ActiveSheet
  11.             .UsedRange.Clear
  12.             For R = 0 To xlTab.Rows.Length - 1
  13.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  14.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  15.                 Next
  16.             Next
  17.         End With
  18.         .Quit        '關閉網頁
  19.     End With
  20. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2016-10-5 06:04 | 顯示全部帖子
回復 10# bioleon69
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer, Surl$
  4.     If Sheets("工作表1").[A1] = "" Then MsgBox "請輸入正確股票代號": Exit Sub
  5.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=" & Sheets("工作表1").[A1]
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = False
  8.         .Navigate Surl
  9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  10.             Set xlTab = .Document.ALL.tags("TABLE")(0)
  11.         If Not xlTab Is Nothing Then
  12.             With ActiveSheet
  13.                 .UsedRange.Clear
  14.                 For R = 0 To xlTab.Rows.Length - 1
  15.                     For C = 0 To xlTab.Rows(R).Cells.Length - 1
  16.                         .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  17.                     Next
  18.                 Next
  19.             End With
  20.         Else
  21.             MsgBox "請輸入正確股票代號"
  22.         End If
  23.         .Quit        '關閉網頁
  24.     End With
  25. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題