Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20165 / 76732

←次へ　｜　前へ→


	【61989】シート追加・削除の繰り返しで例外発生

新田　哲二

- 09/6/16(火) 8:45 -


	引用なし

	パスワード

Excel2003で動かしている処理において例外エラーは発生するため、問題の所在を確認するためにその処理ロジックだけを抜き出して（以下）動作させましたところ、Excel2003では約5000回、Excel2007では10,700近辺で例外が発生します。一回も完了を経験していません。使用しているPCのいずれにおいてもほぼ同じポイントで発生します
何かシステムリソースを消費しているのか、制限事項があるのか分かりません。どなたか、回避方法をご存知に方がありましたら教えていただきたいのですが。

Sub Sheet_Add_Del_Loop()
　 Dim Count As Integer
　 Dim シート名 As String　
　 Count = 1
　 Do While Count <= 12000
　　　　On Error GoTo エラー処理
　　　　Worksheets.Add.Move after:=Worksheets(Worksheets.Count) 'シートを最後のシートの後へ挿入
　　　　　　 Application.DisplayAlerts = False
　　　　ActiveSheet.Delete
　　Count = Count + 1
　　Loop
　　MsgBox "完了" & Count
　　Exit Sub
エラー処理:
　　MsgBox "Err" & Count
　　On Error GoTo 0
End Sub

75 hits

▼

【61989】シート追加・削除の繰り返しで例外発生 新田　哲二 09/6/16(火) 8:45

≪