[發問] 如何保留擷取資料的網址連結?

leoncc

擷取網頁:
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

複製代碼

執行結果:

下載 (75.92 KB)

2014-7-6 20:10

請問要怎麼在Excel裡的每則新聞都可保留其網頁連結，所以我可以在Excel裡直接點取每則報導開啟網頁?  謝謝

leoncc

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

stillfish00

回復 1# leoncc
.WebFormatting = xlWebFormattingAll