返回列表 上一主題 發帖

如何將網站內的日期做成在excel用自動輸入

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
1# 跳轉到 »
發表於 2011-8-20 18:57 | 顯示全部帖子
Sub Test()
URL = "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & [a1] & "/A112" & [a2] & "ALLBUT0999_1.php?"
Shell "explorer " & URL, 0
End Sub

a1儲存格放201108
a2儲存格放20110118

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-20 23:11 | 顯示全部帖子
x = [a1]
y = [a2]
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.twse.com.tw/ch/tradin ... NDEX/genpage/Report" & x & "/A112" & y & "ALLBUT0999_1.php?" _
        , Destination:=Range("b1"))
        .Name = "19"
        .FieldNames = True
後面都不變。執行情形看圖：
q.gif

TOP

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