Excel VBA質問箱 IV

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

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


20168 / 76735 ←次へ | 前へ→

【61989】シート追加・削除の繰り返しで例外発生
質問  新田 哲二 E-MAIL  - 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
0 hits

【61989】シート追加・削除の繰り返しで例外発生 新田 哲二 09/6/16(火) 8:45 質問
【62002】Re:シート追加・削除の繰り返しで例外発生 リノ 09/6/16(火) 16:00 発言
【62004】Re:シート追加・削除の繰り返しで例外発生 リノ 09/6/16(火) 16:06 発言
【62039】Re:シート追加・削除の繰り返しで例外発生 りん 09/6/18(木) 10:07 発言

20168 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free