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

　頭銜: 街友一族

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

複製代碼

帖子: 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過去?

　頭銜: 街友一族

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

論壇貢獻勳章

10^#

發表於 2011-8-13 19:59 | 只看該作者

應該是你的sheet1工作表無任何數據。

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

9^#

發表於 2011-8-13 19:54 | 只看該作者

本帖最後由 icestormerss 於 2011-8-13 19:56 編輯

又來麻煩各位了

剛才我去執行它出現在那一行出錯(我完全沒有改動 ,我開一個全新空白的再把程式碼貼上後執行)
請問那個問題是什麼意思呢?

怪了.我剛才去把工作表刪除(不小心連SHEET2跟3(預設的)都刪了)神奇的事發生了居然沒有錯誤而順利執行了...

Sub yy()
Dim a, i%
a = Sheet1.UsedRange
For i = 1 To 50
With Sheets.Add(After:=Sheets(Sheets.Count))
.Name = "w" & i
.[a1].Resize(UBound(a), UBound(a, 2)) = a << 執行階段錯誤 1004:應用程式或物物定義上的錯誤

End With
Next
End Sub

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

8^#

發表於 2011-8-13 19:39 | 只看該作者

能不能請你寫一個簡單的範例把工作表A 複製後放入陣列中 ,再放到最後一個工作表之後?
oobird 發表於 2011-8-13 18:11

感謝各位幫忙我去試看看^^

　頭銜: 街友一族

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

論壇貢獻勳章

7^#

發表於 2011-8-13 18:11 | 只看該作者

能不能請你寫一個簡單的範例把工作表A 複製後放入陣列中 ,再放到最後一個工作表之後?

Sub yy()
Dim a, i%
a = Sheet1.UsedRange
For i = 1 To 100
With Sheets.Add(After:=Sheets(Sheets.Count))
.Name = "w" & i
.[a1].Resize(UBound(a), UBound(a, 2)) = a
End With
Next
End Sub

複製代碼

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 207
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

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

回復 5# icestormerss

工作表複製，會包含格式、物件...等等
當工作表格式過於複雜或占用大量剪貼簿內容，影響到記憶體容量就會出錯

學海無涯_不恥下問

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

5^#

發表於 2011-8-13 15:26 | 只看該作者

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

其實還是看不懂你的問題。
看你的程式碼是複製到同一活頁簿，有何意義嗎？
For i = 1 To 100
Worksheets ...
oobird 發表於 2011-8-13 14:58

用1到100 只是我用來測到底到在第幾張會出錯而已.我發現(今天的.)全都是在第48跟49張工作表時就一定出錯..

主要是要工作表複製後再用WEB查詢(配合輸入股號,更新後(所以複製後的工作表內容會隨者股號而變動但基本格式是一樣的)存起來,
現在全都是卡在那個問題上
(變成只要出錯..我就得關掉重開然後又要重新更新後才能再做後頭的工作)

不知我這樣說懂嗎?怕我說的不夠清楚~~ 能不能請你寫一個簡單的範例把工作表A 複製後放入陣列中 ,再放到最後一個工作表之後? 感謝拉~~

　頭銜: 街友一族

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

論壇貢獻勳章

4^#

發表於 2011-8-13 14:58 | 只看該作者

其實還是看不懂你的問題。
看你的程式碼是複製到同一活頁簿，有何意義嗎？
For i = 1 To 100
Worksheets(Array("查詢股票")).Copy after:=Worksheets(2)
Next i
單一工作表複製100遍，為什麼要這樣？而且為什麼要Array("查詢股票")？看不出任何意義。

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

3^#

發表於 2011-8-13 11:19 | 只看該作者

別用copy，系統剪貼簿無法容納太多的資料。
改存到陣列中，寫入新的位置，就不會有這種現象了。
oobird 發表於 2011-8-13 10:59

只有懂一點點陣列(就只知道把數字或文字寫入陣列再用迴圈取出之類而已..),,但完全不知要怎開始下手改存到陣列中,寫入新的位置能否寫一個範列呢感恩~~!