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

[發問] 載入網頁資料的問題

yuch8663

中學生 Rank: 2

帖子: 51
主題: 12
精華: 0
積分: 77
點名: 0
作業系統: windows xp sp3
軟體版本: excel 2003 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2023-10-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-6-30 21:02 | 顯示全部帖子

[發問] 載入網頁資料的問題

請問在這組程式裡想將日期部分改為變數`就會出現 "必須是常數運算式"的錯誤訊息，應該如何修改?謝謝。
Sub Test()
Sheets("sheet1").Select
                                       'http://www.xe.com/currencytables/?from=USD&date=2013-06-23
Dim a, b, c As String
a = Sheets("sheet1").Range("p1").Text ' M起算年
b = Sheets("sheet1").Range("p2").Text ' M起算月
c = Sheets("sheet1").Range("p3").Text ' M起算日
Const url As String = "http://www.xe.com/currencytables/?from=USD&date=" & a & "-" & b & "-" & c ' 正確的
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
      .Visible = False 'True為開啟ie, False為不開啟ie
      .Navigate url
      Do While .ReadyState <> 4 '等待網頁開啟
      DoEvents
      Loop
      .ExecWB 17, 2 'Select All
      .ExecWB 12, 2 'Copy selection
      Range("A1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
         False, NoHTMLFormatting:=True
End With
' Columns("A:B").Delete ' 將匯入時 A、B 兩欄移除，原本 C:I 的欄位全部左靠，成為 A:I
ie.Quit
  '  MsgBox "資料複製結束" ' 離開前顯示一小視窗提醒，按它後即結束。
         Dim qyt As QueryTable
         For Each qyt In Worksheets("sheet1").QueryTables
            qyt.Delete
         Next
End Sub