返回列表下一主題上一主題發帖

如何更改??

ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-11-22 14:39 | 只看該作者

如何更改??

請教前輩!
樓下的程式要如何改才能抓往前5個月的資料,且每個月的資料都能任意更改貼圖的位置
Sub WEBQYT()
Dim ptxt As String
Dim yy, mm, stock
Sheet1.Activate
If Sheet1.QueryTables.Count = 0 Then
      Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1")
End If
yy = InputBox("輸入查詢「西元」年份", "上櫃股票 - 個股日成交資訊")
If yy = "" Then Exit Sub
mm = InputBox("輸入查詢月份", "上櫃股票 - 個股日成交資訊")
If mm = "" Then Exit Sub
stock = InputBox("輸入股票代碼", "上櫃股票 - 個股日成交資訊")
If stock = "" Then Exit Sub
With Sheet1.QueryTables(1)
      .Connection = "URL;http://www.otc.org.tw/ch/stock/aftertrading/daily_trading_info/result_st43.php"
      .PreserveFormatting = False
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebDisableDateRecognition = True
      .PostText = "ajax=true&yy=" & yy & "&mm=" & mm & "&input_stock_code=" & stock
      .Refresh False
End With
End Sub