返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2016-10-2 05:58 | 顯示全部帖子
回復 6# bioleon69
原 6# 樓
  1.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=& [A1].Value &"
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .Navigate " "
複製代碼
修正為：
  1.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=" & Sheets("XXX").[A1]
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .Navigate Surl
複製代碼
即可。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-10-2 17:19 | 顯示全部帖子
回復 8# bioleon69
  1.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  2.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  3.                 Next
複製代碼
調整為
  1.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  2.                     .Cells(R + 3, C + 1) = xlTab.Rows(R).Cells(C).innertext
  3.                 Next
複製代碼

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題