12
返回列表 上一主題 發帖

[發問] 活頁簿連線

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-21 12:00 | 只看該作者

[發問] 活頁簿連線

想請教各位 我自己參考版上資料寫了幾個簡單的查詢股票程式，
問題來了，我每按查詢一次，如圖的活頁簿連線就會多一筆，
等差不多10幾筆的時候，每次最後按儲存離開時，excel就當機，
所以我每次儲存前都要手動刪除所有連線，
不知有無語法可以每查詢一次就刪除該活頁簿連線? 謝謝各位 :Q

  1. Sub 財務比率()
  2.    
  3.     Call StockNo
  4.     Dim URL As String
  5.    
  6.    
  7.     'X As String
  8.     'X = Worksheets("營收").Range("A2")
  9.    
  10.     URL = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcra_" & 股票代號 & ".djhtm"
  11.    
  12.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=ActiveSheet.Range("K68"))
  13.         .TablesOnlyFromHTML = True
  14.         .RefreshStyle = xlOverwriteCells
  15.         .WebSelectionType = xlSpecifiedTables
  16.         .WebFormatting = xlWebFormattingNone
  17.         .AdjustColumnWidth = False
  18.         .WebTables = "1"
  19.         .WebPreFormattedTextToColumns = True
  20.         .WebConsecutiveDelimitersAsOne = True
  21.         .WebSingleBlockTextImport = False
  22.         .WebDisableDateRecognition = False
  23.         .WebDisableRedirections = False
  24.         .Refresh BackgroundQuery:=False
  25.         Cells.Hyperlinks.Delete
  26.     End With
  27.     'Cells.Hyperlinks.Delete
  28. End Sub

  30. Private Sub CommandButton1_Click()
  31. 'StockNo
  32. 財務比率
  33. End Sub
複製代碼
收藏 分享

stillfish00

帖子
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

TOP

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
3#
發表於 2014-6-22 00:19 | 只看該作者
回復 2# stillfish00

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

TOP

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
4#
發表於 2014-6-22 00:43 | 只看該作者
終於找到了 謝謝，方法如下:
  1. Sub 刪除連線()

  3. For i = 1 To ActiveWorkbook.Connections.Count
  4. If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
  5. ActiveWorkbook.Connections.Item(i).Delete
  6. i = i - 1
  7. Next i

  9. End Sub
複製代碼
執行Button Click時再加入下語法就搞定了:
  1. Private Sub CommandButton1_Click()

  3. 財務比率
  4. 刪除連線
  5. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2014-6-22 21:09 | 只看該作者
回復 3# leoncc
確定嗎?  
你先全部連線刪除
再插入24行後面試..

TOP

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
6#
發表於 2014-6-23 18:57 | 只看該作者
回復 5# stillfish00


    是的 我手動全部刪除連線後測試，執行後還是有跑出來....對了我的是2010版本的 感恩中...

  1. Sub 財務比率()
  2.    
  3.     Call StockNo
  4.     Dim URL As String
  5.    
  6.    
  7.     'X As String
  8.     'X = Worksheets("營收").Range("A2")
  9.    
  10.     URL = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcra_" & 股票代號 & ".djhtm"
  11.    
  12.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=ActiveSheet.Range("K68"))
  13.         .TablesOnlyFromHTML = True
  14.         .RefreshStyle = xlOverwriteCells
  15.         .WebSelectionType = xlSpecifiedTables
  16.         .WebFormatting = xlWebFormattingNone
  17.         .AdjustColumnWidth = False
  18.         .WebTables = "1"
  19.         .WebPreFormattedTextToColumns = True
  20.         .WebConsecutiveDelimitersAsOne = True
  21.         .WebSingleBlockTextImport = False
  22.         .WebDisableDateRecognition = False
  23.         .WebDisableRedirections = False
  24.         .Refresh BackgroundQuery:=False
  25.          Cells.Hyperlinks.Delete
  26.         .Delete
  27.       
  28.     End With
  29.     'Cells.Hyperlinks.Delete
  30. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2014-6-23 19:24 | 只看該作者
回復 6# leoncc
你的 StockNo 是不是也有新增連線?
我也是Excel 2010，底下這樣是沒問題的
  1. Sub 財務比率()
  2.     Dim URL As String
  3.    
  4.     URL = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcra_" & 1101 & ".djhtm"
  5.    
  6.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=ActiveSheet.Range("K68"))
  7.         .TablesOnlyFromHTML = True
  8.         .RefreshStyle = xlOverwriteCells
  9.         .WebSelectionType = xlSpecifiedTables
  10.         .WebFormatting = xlWebFormattingNone
  11.         .AdjustColumnWidth = False
  12.         .WebTables = "1"
  13.         .WebPreFormattedTextToColumns = True
  14.         .WebConsecutiveDelimitersAsOne = True
  15.         .WebSingleBlockTextImport = False
  16.         .WebDisableDateRecognition = False
  17.         .WebDisableRedirections = False
  18.         .Refresh BackgroundQuery:=False
  19.          Cells.Hyperlinks.Delete
  20.         .Delete
  21.       
  22.     End With
  23. End Sub
複製代碼

TOP

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
8#
發表於 2014-6-23 19:45 | 只看該作者
回復 7# stillfish00

我把"股票代號"拿掉 StockNO也拿掉 直接放入股票的代號 連線還是有耶:'(   謝謝
  1. Sub 財務比率()
  2.    
  3.     'Call StockNo
  4.     Dim URL As String
  5.    
  6.    
  7.     'X As String
  8.     'X = Worksheets("營收").Range("A2")
  9.    
  10.     URL = "URL;http://dj.mybank.com.tw/z/zc/zcq/zcra_" & 1101 & ".djhtm"
  11.    
  12.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=ActiveSheet.Range("K68"))
  13.         .TablesOnlyFromHTML = True
  14.         .RefreshStyle = xlOverwriteCells
  15.         .WebSelectionType = xlSpecifiedTables
  16.         .WebFormatting = xlWebFormattingNone
  17.         .AdjustColumnWidth = False
  18.         .WebTables = "1"
  19.         .WebPreFormattedTextToColumns = True
  20.         .WebConsecutiveDelimitersAsOne = True
  21.         .WebSingleBlockTextImport = False
  22.         .WebDisableDateRecognition = False
  23.         .WebDisableRedirections = False
  24.         .Refresh BackgroundQuery:=False
  25.         Cells.Hyperlinks.Delete
  26.         .Delete
  27.         
  28.     End With
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
9#
發表於 2014-6-23 19:54 | 只看該作者
回復 8# leoncc
你執行#8樓
執行三次會有三個連線?

TOP

leoncc

帖子
15 
主題
3 
精華
0 
積分
27 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2013-12-23 
最後登錄
2015-8-10 
10#
發表於 2014-6-23 21:04 | 只看該作者
回復 9# stillfish00


    是的 會不會是我的excel有問題要重灌阿 ?

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
12
返回列表 上一主題