Board logo

標題: [發問] 如何保留擷取資料的網址連結? [打印本頁]
作者: leoncc    時間: 2014-7-6 20:12     標題: 如何保留擷取資料的網址連結?

擷取網頁:
http://dj.mybank.com.tw/z/zc/zcv/zcv_2355.djhtm

我的code:
  1. Dim NewsURL As String
  2. NewsURL = "URL;http://dj.mybank.com.tw/z/zc/zcv/zcv_" & 股票代號 & ".djhtm"
  3.    
  4.     With Sheets("基本資料").QueryTables.Add(Connection:=NewsURL, Destination:=Range("K3"))
  5.         .TablesOnlyFromHTML = True
  6.         .RefreshStyle = xlOverwriteCells
  7.         .WebSelectionType = xlSpecifiedTables
  8.         .WebFormatting = xlWebFormattingNone
  9.         .AdjustColumnWidth = True
  10.         .WebTables = "4"
  11.         .WebPreFormattedTextToColumns = True
  12.         .WebConsecutiveDelimitersAsOne = True
  13.         .WebSingleBlockTextImport = False
  14.         .WebDisableDateRecognition = False
  15.         .WebDisableRedirections = False
  16.         .Refresh BackgroundQuery:=False
  17.         
  18.       
  19.     End With
複製代碼
執行結果:
[attach]18629[/attach]

請問要怎麼在Excel裡的每則新聞都可保留其網頁連結，所以我可以在Excel裡直接點取每則報導開啟網頁?  謝謝
作者: stillfish00    時間: 2014-7-7 01:16

回復 1# leoncc
.WebFormatting = xlWebFormattingAll
作者: leoncc    時間: 2014-7-7 13:57

原來這麼簡單啊
stillfish大 真是感謝您阿 感恩中



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)