活頁簿連線 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 活頁簿連線

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

[發問] 活頁簿連線

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2014-6-21 22:06 | 顯示全部帖子

回復 1# leoncc
.Refresh BackgroundQuery:=False
.delete

大學生 Rank: 4

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

2^#

發表於 2014-6-22 21:09 | 顯示全部帖子

回復 3# leoncc
確定嗎?
你先全部連線刪除
再插入24行後面試..

大學生 Rank: 4

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

3^#

發表於 2014-6-23 19:24 | 顯示全部帖子

回復 6# leoncc
你的 StockNo 是不是也有新增連線?
我也是Excel 2010，底下這樣是沒問題的

Sub 財務比率()
Dim URL As String
URL = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcra_" & 1101 & ".djhtm"
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=ActiveSheet.Range("K68"))
.TablesOnlyFromHTML = True
.RefreshStyle = xlOverwriteCells
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.AdjustColumnWidth = False
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Cells.Hyperlinks.Delete
.Delete
End With
End Sub

複製代碼

大學生 Rank: 4

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

4^#

發表於 2014-6-23 19:54 | 顯示全部帖子

回復 8# leoncc
你執行#8樓
執行三次會有三個連線?

大學生 Rank: 4

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

5^#

發表於 2014-6-23 22:32 | 顯示全部帖子

回復 10# leoncc
重灌是不用啦，你那樣全部連線刪除也是一種方法嘛
我只是想不透哪裡造成這種差異而已，謝謝你

靜思自在 : 君子如水，隨方就圓，無處不自在。

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