救助!執行階段錯誤 "1004",請內看感謝了!

icestormerss

小學生 Rank: 1

帖子: 16
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-13
最後登錄: 2011-8-19

11^# 跳轉到 »

發表於 2011-8-13 20:12 | 只看該作者

本帖最後由 icestormerss 於 2011-8-13 20:36 編輯

oobird 大請問有法子把WEB查詢內的連結一起COPY過去?
剛才的是可以運作了但變成只有純文字 WEB查詢的功能郤消失了感謝你花時間幫我^^

股票代碼更新.rar (7.13 KB)

我把檔案上傳程式是可以跑也很順利不過變成純文字後就失去WEB查詢功能了說不知你有沒有什麼法子可以可以連同WEB 查詢功能也一起併COPY過去?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

12^#

發表於 2011-8-13 20:43 | 只看該作者

Sub NN()
Sheets("sheet1").UsedRange.Copy
For i = 1 To 100
With Sheets.Add(After:=Sheets(Sheets.Count))
.Name = "w" & i
ActiveSheet.Paste
End With
Next
End Sub

複製代碼

TOP

icestormerss

小學生 Rank: 1

帖子: 16
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-13
最後登錄: 2011-8-19

13^#

發表於 2011-8-13 21:06 | 只看該作者

本帖最後由 icestormerss 於 2011-8-13 21:18 編輯

回復 12# oobird

有了可以連同WEB查詢功能都COPY過去了.不過..出現1個新問題(原本另一個問題好了)

1:如果代碼是在A5輸入(輸入後按下ENTER,進行更新)
剛COPY過去的工作表雖然也有WEB查詢功能在但郤不是連結在同一工作表內的A5而是連結在SHEET1中的A5格

:收回第二個問題 ,再我存檔後重開可以正常自動按目標格(A5)內的資料數字變動而自動更新了^^

OOBIRD大針對第一個問題有法子嗎^^?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

14^#

發表於 2011-8-13 21:17 | 只看該作者

看不懂。如果代碼是在A5輸入(輸入後按下ENTER,進行更新)~這段程式在哪裡？你應該修改這段程式呀。

TOP

icestormerss

小學生 Rank: 1

帖子: 16
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-13
最後登錄: 2011-8-19

15^#

發表於 2011-8-13 21:24 | 只看該作者

本帖最後由 icestormerss 於 2011-8-13 21:33 編輯

看不懂。如果代碼是在A5輸入(輸入後按下ENTER,進行更新)~這段程式在哪裡？你應該修改這段程式呀。
oobird 發表於 2011-8-13 21:17

這樣說好了如果A5格我輸入2374 正常來說 WEB查詢會自動更新(這我有設好了)
按以前我直接用COPY過去後新的工作表上的WEB查詢連結會自動連結在新的工作表上的A5 而不是在原本(SHEET1)上的A5

換言之.以前我用COPY在複製後二個工作表各自有各自的WEB 查詢功能
(在SHEET1上的A5輸入數字只會更新SHEET1的,在W1上的A5輸入數字也只會更新W1的)
但現在郤會變成 W1上的連結到SHEET1上的A5(當SHEET1上的A5格數字變動時二張工作表會一起更新到同一家公司上)

當然這部份可以手動改,不過WEB查詢不止一個如果每一個COPY過去的都要一個一個WEB 查詢改它 ,就麻煩了說

不知我這樣說會不會說不明白呢^^

我剛才試者用巨錄看能不能錄到手動點擊 [WEB查詢區]>參數上以下列儲存格做為參數值來源
結果根本錄不到說~~

http://jinnsblog.blogspot.com/2008/10/excel-query-dynamically-update-data.html <<自動更新的WEB 查詢我是看這裡學的

TOP

icestormerss

小學生 Rank: 1

帖子: 16
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-13
最後登錄: 2011-8-19

16^#

發表於 2011-8-14 10:02 | 只看該作者

回復 15# icestormerss

昨晚花幾小時在那查看看網路資料及測試
發現真的好像都是固定次數就會出錯
複製前張數--複製中出錯的張數
2---------------105
3---------------103
4---------------102
5----------------99
6----------------99
7----------------98
8----------------96
9----------------95
10---------------93
另外我發現如果用的是 :
worksheets(1).copy
就算是到了200張workbooks也不會出錯呢..

然後我就想到.不然.先用worksheets(1).copy 後再用 MOVE的方法移回來,結果錯誤換成104:MOVE 方式失敗..(大約是100張)

我在想會不會是對於在一定時間內(打開-關閉EXCEL)寫入同一workbook 內的有次數限制? 不然為什麼用worksheets(1).copy 到200也不會出錯?

另外OOBIRD大的程式碼現在都很順利可以執行.但還是卡在同一個問題 WEB查詢的參數連結格沒法連在自己工作表上說不知有人有法子嗎??
(原本是想說不然就複製過去後再用程式去改他的連結.但發現(我先用巨集錄)根本錄不到,我也完全不知怎下手寫)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

17^#

發表於 2011-8-14 10:32 | 只看該作者

還是沒說到重點
如你sheet1的a5是2317，你用任何方法copy，每個新的表上都是2317，不可能改變成別的。
而你點擊a5時會自動更新，這是Worksheet_SelectionChange事件，你要貼上來別人才有可能幫你改的。

TOP

icestormerss

小學生 Rank: 1

帖子: 16
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-13
最後登錄: 2011-8-19

18^#

發表於 2011-8-14 11:08 | 只看該作者

本帖最後由 icestormerss 於 2011-8-14 11:09 編輯

還是沒說到重點
如你sheet1的a5是2317，你用任何方法copy，每個新的表上都是2317，不可能改變成別的。
而 ...
oobird 發表於 2011-8-14 10:32

SORRY 忘了附檔我再弄一次

股票代碼更新1.rar (7.79 KB) <<這是根據OOBIRD大的提供的程式碼執行的

在SHEET1的B1是參數來源格(WEB 查詢功能)
只要數字變動在右下的E8(右擊可以打開參數>以SHEET1!$B$1格為參數值來源)會整個自動更新

然而如果是採用worksheets(1).copy after:worksheets(worksheets.count)方式
當SHEET1的B1數字變動只會更新SHEET1上的E8
當W1的B1數字變動也只會更新W1上的E8

使用PASTE方式的做法也都會有WEB查詢
只是變成W1工作表的E8也是連結到SHEET1的B1(但我需要的是連結在W1上的B1)

而且用巨集的方式沒法錄到手動改參數來源格,我也不知能不能透過VBA改寫

再次感謝你撥時間回覆^&^

TOP

oobird