複数のワークシートを1つのワークブックにマージする - 画像エラー

Question

VBAの使用を開始したばかりで、複数のワークシートを1つのブックにマージするコードを使用しています。このような場合、イメージは作成された新しいブックに表示されません。イメージが表示されるボックスにエラーメッセージが表示されます。私はここで、2010年

MS Officeを使用私が使用してきたコードは以下：

Sub MergePlans() 
Dim CurFile As String, DirLoc As String 
Dim DestWB As Workbook 
Dim ws As Object 

DirLoc = ThisWorkbook.Path & "\Merge\" 
CurFile = Dir(DirLoc & "*.xlsx") 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

Set DestWB = Workbooks.Add(xlWorksheet) 

Do While CurFile <> vbNullString 
    Dim OrigWB As Workbook 
    Set OrigWB = Workbooks.Open(Filename:=DirLoc & CurFile, ReadOnly:=True) 

    For Each ws In OrigWB.Sheets 
     ws.Select 
     ws.Copy After:=DestWB.Sheets(DestWB.Sheets.Count) 
    Next 

    OrigWB.Close Savechanges:=False 
    CurFile = Dir 
Loop 

Application.DisplayAlerts = False 
DestWB.Sheets(1).Delete 
Application.DisplayAlerts = True 

Application.ScreenUpdating = True 
Application.EnableEvents = True 

Set DestWB = Nothing 

End Sub 

何が起こっているの任意のアイデアを？私は助けていただければ幸いです！ Tks！

Answer 1

ただ助けた回避策が見つかりました！

ソースブックを閉じる前に "Application.ScreenUpdating = True"を追加したばかりで、すべてのワープシートをマージするのに時間がかかりますが、少なくともイメージは正しく表示されます。 - オプション1この回避策hereを発見

Sub MergePlans() 
Dim CurFile As String, DirLoc As String 
Dim DestWB As Workbook 
Dim ws As Object 

DirLoc = ThisWorkbook.Path & "\Merge\" 
CurFile = Dir(DirLoc & "*.xlsx") 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

Set DestWB = Workbooks.Add(xlWorksheet) 

Do While CurFile <> vbNullString 
    Dim OrigWB As Workbook 
    Set OrigWB = Workbooks.Open(Filename:=DirLoc & CurFile, ReadOnly:=True) 

    For Each ws In OrigWB.Sheets 
     ws.Select 
     ws.Copy After:=DestWB.Sheets(DestWB.Sheets.Count) 
    Next 
    **Application.ScreenUpdating = True** 
    OrigWB.Close Savechanges:=False 
    CurFile = Dir 
Loop 

Application.DisplayAlerts = False 
DestWB.Sheets(1).Delete 
Application.DisplayAlerts = True 

Application.ScreenUpdating = True 
Application.EnableEvents = True 

Set DestWB = Nothing 


End Sub 

：ここ

は、新しいコードを次の！

Tks Dan！