Excel VBAワークシートがワークブックにコピーされる前にワークシートが存在するかどうかをチェックします。

Question

フォルダ内のすべてのワークブックからすべてのシートを取り込むマクロを開発しようとしています。その後、/保存プロンプトを表示せず、それを閉じ渡っ IE

Folder 
|---Summary Sheet.xlsm 
|---Sheet 1 date1.xlsx 
|---Sheet 2 date2.xlsx 
etc. 

マクロがコピーし、それを、ワークブックを開き、細胞外の日付へのシートの名前を変更します。名前のチェックを正しく組み込むことができないようです。私は見てきました
Test or check if sheet exists
Excel VBA If WorkSheet("wsName") Exists
しかし、コンセプトを正しく翻訳する経験がありません。

これまでのコードです。今実行すると、私は彼らが各シ​​ートを毎回チェックしていなかったということでした上記の回答に直面した問題
sheetToFind = ThisWorkbook.Sheets（1）

Sub ConslidateWorkbooks() 
Dim FolderPath As String 
Dim Filename As String 
Dim Sheet As Worksheet 
Dim sheetToFind As String 
Dim sheetExists As Boolean 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

FolderPath = Environ("userprofile") & "\Folder\" 
Filename = Dir(FolderPath & "*.xlsx") 

Do While Filename <> "" 
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True 
sheetExists = False 

For Each Sheet In ActiveWorkbook.Sheets 
    Sheet.Name = Sheet.Range("C4") 
    sheetToFind = ThisWorkbook.Sheets(1) 
    If sheetToFind = Sheet.Name Then 
    sheetExists = True 
    End If 

    If sheetExists = False Then 
    Sheet.Copy After:=ThisWorkbook.Sheets(1) 
    Workbooks(Filename).Close False 
    Filename = Dir() 
    End If 
    Next Sheet 
Loop 
Application.ScreenUpdating = True 
End Sub 

Answer 1

で実行時エラー438がスローされます。私は別の機能を見つけました
Excel VBA If WorkSheet("wsName") Exists

これを使用して、私はすべての機能を動作させることができました。

Function sheetExists(sheetToFind As String) As Boolean 
    sheetExists = False 
    For Each Sheet In ThisWorkbook.Worksheets 
     If sheetToFind = Sheet.Name Then 
      sheetExists = True 
      Exit Function 
     End If 
    Next Sheet 
End Function 

Sub ConslidateWorkbooks() 
Dim FolderPath As String 
Dim Filename As String 
Dim Sheet As Worksheet 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
FolderPath = Environ("userprofile") & "\Folder\" 
Filename = Dir(FolderPath & "*.xlsx") 

Do While Filename <> "" 
    Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True 
    For Each Sheet In ActiveWorkbook.Sheets 
    Sheet.Name = Sheet.Range("C4") 
    result = sheetExists(Sheet.Name) 
    Debug.Print result 
    If result = True Then 
     Workbooks(Filename).Close False 
     Filename = Dir() 
    End If 
    If result = False Then 
     Sheet.Copy After:=ThisWorkbook.Sheets(1) 
     Workbooks(Filename).Close False 
     Filename = Dir() 
    End If 
    Next Sheet 
Loop 
Application.ScreenUpdating = True 
End Sub