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

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

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

[發問] 活頁簿連線

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

4^# 跳轉到 »

發表於 2014-6-22 00:43 | 只看該作者

終於找到了謝謝，方法如下:

Sub 刪除連線()
For i = 1 To ActiveWorkbook.Connections.Count
If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
ActiveWorkbook.Connections.Item(i).Delete
i = i - 1
Next i
End Sub

複製代碼

執行Button Click時再加入下語法就搞定了:

Private Sub CommandButton1_Click()
財務比率
刪除連線
End Sub

複製代碼

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

3^#

發表於 2014-6-22 00:19 | 只看該作者

回復 2# stillfish00

還是不行耶..每執行連線還是持續增加中...

大學生 Rank: 4

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

2^#

發表於 2014-6-21 22:06 | 只看該作者

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

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

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