ブックを別のワークブックに検索してコピーする

Question

マクロを含むワークブック（wb1）があります。私はmsgboxでファイルを選択してファイルを開きます。

最初のシートの前にwb1にシートのコピーを保存して、 "xxxx"のようなsheet.nameのすべてのシートをループしたいと思います。

Sub GetFile() 

    Dim fNameAndPath As Variant, wb As Workbook 
    Dim wb1 As ThisWorkbook 

    fNameAndPath = Application.GetOpenFilename(FileFilter:="All Files (*.*),*.*", _ 
     Title:="Sélectionner le fichier des extractions Magnitude sur la Phase IAS CONSO") 

    If fNameAndPath = False Then Exit Sub 

    Set wb = Workbooks.Open(fNameAndPath) 

    For Each Sheet In wb.Sheets 

     If LCase(Sheet.Name) Like "*Sheet1*" Then 
      Range("A2").Select 
      'ActiveSheet.Delete 
     End If 

    Next Sheet 

Answer 1

これを試してみてください。

Option Explicit 

Sub GetFile() 
    Dim fNameAndPath As Variant 
    Dim sht As Worksheet 

    fNameAndPath = Application.GetOpenFilename(FileFilter:="All Files (.),.", Title:="Sélectionner le fichier des extractions Magnitude sur la Phase IAS CONSO") 
    If fNameAndPath = False Then Exit Sub 

    Set wb = Workbooks.Open(fNameAndPath) 
    For Each sht In wb.Sheets 
     If LCase(sht.Name) Like "*sheet1*" Then sht.Copy Before:=ThisWorkbook.Sheets(1) 
    Next sht 
    wb.Close False '<--| close the newly opened workbook without saving it 
End Sub 

をも私が変更注意：

If LCase(sht.Name) Like "*Sheet1*" 

に：

If LCase(sht.Name) Like "*sheet1*" 

それは比較すると思いますので、それ以外のチェックはTrueを返すことはありませんすべて小文字のcha （LCase(sht.Name)）を大文字の文字列（ "S"）に変換する