搜索并将工作表从一个工作簿复制到另一个工作簿

Question

我有一个包含宏的工作簿（wb1）。我通过在msgbox中选择它来打开一个文件（wb）。

我想循环遍历所有的wb页面，并且如果sheet.name如“xxx”将表格的副本保存在第一张表格之前的wb1中。

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因为它会比较一个全部小写字母（LCase(sht.Name)）到一个带有一个大写字符（“S”）的字符串