[發問] 請問網址可以用變數代替嗎？

請問網址可以用變數代替嗎？
可以的話，不曉得語法該如何寫。

謝謝～

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-7-24 10:45 | 只看該作者

回復 1# cji3cj6xu6

Dim 變數 as string
變數 = "http://forum.twbts.com/"

複製代碼

TOP

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

3^#

發表於 2013-7-24 11:27 | 只看該作者

Dear stillfish00大大，

Thanks

TOP

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

4^#

發表於 2013-7-24 13:42 | 只看該作者

以下，跑了之後會發生 .Refresh BackgroundQuery:=False 錯誤，但若是直接將網址放上則ok，請問要如何修改，
謝謝～

Dim WebAddress as string
WebAddress = "http://tw.stock.yahoo.com/q/q?s=1101"

Range("a2").Select
'With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/q/q?s=" & [a1] & "", Destination:=Selection) '新增查詢
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;WebAddress", Destination:=Selection) '新增查詢



      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "6"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
      .Name = .ResultRange.Cells(3, 1)
End With

TOP

GBKEE