12
返回列表 上一主題 發帖

[發問] Web查詢只保留資料而不保留基本查詢

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-30 10:20 | 只看該作者

[發問] Web查詢只保留資料而不保留基本查詢

一般插入Web查詢之後會發現連結資料(基本查詢)會保存
(按工具列''資料''會有"自動更新"選項)
將導致檔案肥大且存檔/開啟速度緩慢
如果確定日後不再更新資料 該如何刪除基本查詢呢?
我在工具列"資料"-->''匯入外部資料''-->''資料範圍屬性''中有一個"儲存查詢定義"
把勾選取消似乎就可以刪除基本查詢(?)
但問題是用錄製巨集的方式無法紀錄此操作
而資料筆數極多無法以人工方式一一取消
所以想請問這部分的程式碼該怎麼寫
尤其能不能在用vba新增查詢時就設定不要保留基本查詢
只要純資料就好?
感謝各位:)
收藏 分享

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
12#
發表於 2012-7-31 10:42 | 只看該作者
本帖最後由 HSIEN6001 於 2012-7-31 10:43 編輯

超過5分鐘,不能修改

更正於此：改cut

Selection.Cut
Workbooks.Add   <-----這個
Range("A1").Paste
Application.CutCopyMode = False

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
11#
發表於 2012-7-31 10:40 | 只看該作者
本帖最後由 lalalada 於 2012-7-31 10:42 編輯

回復 10# HSIEN6001

??
是指把每頁的資料複製重貼上嗎
我試試看囉
是說我之前在其他地方這麼做的時候會出現''資源不足....''的警告然後當掉
請問有整頁複製貼上的好方法嗎?
selection+copy+paste 對記憶體來說好像是很大的負擔
所以後來我改成複製分頁的方式 不過在這裡不適用

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
10#
發表於 2012-7-31 10:34 | 只看該作者
回復 9# lalalada

Selection.Copy
Workbooks.Add
Range("A1").Paste
另存新檔
檔案大小-->KB

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
9#
發表於 2012-7-31 09:14 | 只看該作者
回復 7# HSIEN6001


其實都可以
但是丟在下載迴圈裡感覺比較順~
可是結果檔案沒有小很多耶...'' 猜測失敗~"~
有什麼好方法可以讓檔案小一點嗎?
因為一個檔案動輒要3xM實在有點太大
畢竟上櫃資料只要7.8M以內

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2012-7-31 08:13 | 只看該作者
回復 7# HSIEN6001


    終於看懂要丟在網頁下載迴圈的哪裡了^^
謝謝G大的程式碼~^_^~

取消更新.gif

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2012-7-30 17:50 | 只看該作者
本帖最後由 HSIEN6001 於 2012-7-30 17:51 編輯

回復 6# lalalada


    請問一下,你是全部下載完才做刪除連結
還是把語法放在web 下載每檔資料的過程中刪除

我剛剛只想到[替代方案]
    Selection.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues   '貼上值

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
6#
發表於 2012-7-30 17:40 | 只看該作者
回復 5# GBKEE

感謝版主:)
這就是我想要的
剛剛因為name後面那個s弄好久...
第一個有s會錯
第二個沒有會錯XD

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-7-30 16:44 | 只看該作者
回復 3# lalalada
  1. Option Explicit
  2. Sub Ex()
  3.     Dim QueryTable_Name As String
  4.     With ActiveSheet
  5.         With .QueryTables.Add(Connection:="URL;http://forum.twbts.com/index.php", Destination:=Range("A1"))
  6.             QueryTable_Name = .Name
  7.             .Refresh BackgroundQuery:=False
  8.         End With
  9.         .Names(QueryTable_Name).Delete   '刪除:查詢在工作表所定義的範圍名稱
  10.     End With
  11. End Sub
複製代碼

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2012-7-30 16:04 | 只看該作者
回復 3# lalalada


    不好意思!
看來我筆記也做錯了
O_Q!!

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
12
返回列表 上一主題