ワークシートをループするときにランタイムエラー6がオーバーフローする

Question

以下のコードを使用して、Excelでユーザーが共有するファイルのアドインを参照するパスを削除しています。それはいくつかのファイルで動作しますが、新しいファイルでそれを使用し、オープン時にランタイムエラー6オーバーフローエラーが発生します。セル置換行で停止しています。

Private Sub Workbook_Open() 
    Dim i As Long 
    Dim strWorksheetName As String 

    strWorksheetName = ActiveSheet.Name 

    Application.DisplayAlerts = False 
    For i = 1 To Sheets.Count 
     Sheets(i).Activate 
     If Sheets(i).Type = xlWorksheet Then 
      Cells.Replace What:="'c:\*xla*'!", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
     End If 
    Next i 
    Application.DisplayAlerts = True 

    Sheets(strWorksheetName).Activate 

End Sub 

Answer 1

のWorkbook_Openイベントがあまりにも早く発射されているので、すべてがロードされる前に、このは、原因とされていることがあります。

あなたがかもしれないは、ワークシートをアクティブ化しようとしないと、より良い運があります。 （それらを有効にするとExcelに表示されなければならないかもしれませんが、これはまだ他のものを実行しているため実行できないかもしれませんが、シートを強制的に表示せずに変更を加えると、私は推測している、誰かが別の解決策を思い付くまで、推測は何でも良いとしてです）

にコードを変更してみてください！

Private Sub Workbook_Open() 
    Dim ws As Worksheet 

    Application.DisplayAlerts = False 
    For Each ws in Worksheets 
     ws.Cells.Replace What:="'c:\*xla*'!", _ 
         Replacement:="", _ 
         LookAt:=xlPart, _ 
         SearchOrder:=xlByRows, _ 
         MatchCase:=False, _ 
         SearchFormat:=False, _ 
         ReplaceFormat:=False 
    Next 
    Application.DisplayAlerts = True 

End Sub 

それが動作する場合、私は答えを残しておきますここに。そうでなければ、私はその答えを削除し、他の誰かが提案をすることができます。

Answer 2

1つ以上の 'シート'が.Visibleではない可能性があります。 .VisibleプロパティがFalseまたはxlVeryHiddenの場合、.Activateは 'シート'にできません。 Falseにそれを変更する手順を出た後、真のデフォルトに

Option Explicit 

Private Sub Workbook_Open() 
    Dim i As Long 

    Application.DisplayAlerts = False 

    For i = 1 To Worksheets.Count 
     With Worksheets(i) 
      .Cells.Replace What:="'c:\*xla*'!", _ 
          Replacement:=vbNullString, _ 
          LookAt:=xlPart, _ 
          SearchOrder:=xlByRows, _ 
          MatchCase:=False, _ 
          SearchFormat:=False, _ 
          ReplaceFormat:=False 
     End With 
    Next i 

End Sub 

• Application.DisplayAlerts戻ります。
• 作業するためには.Activate¹ワークシートは必要ありません。また、隠しワークシートで作業することもできます。 With ... End With statementを使用して、幅の広い親ワークシート階層を提供します。
• 別のワークシートをアクティブ化しない場合は、元のワークシートを保存して再度アクティブ化する必要はありません。
• シートコレクションではなくWorksheets collectionを使用する場合、「シート」がワークシートであるかどうかを確認する必要はありません。

---

は_{が選択に頼るから離れるの詳細な方法についてHow to avoid using Select in Excel VBA macrosを参照してくださいとあなたの目標を達成するためにアクティブに¹しました。}