如何将工作簿中的某些工作表导入文件夹中的其他工作簿？ （VBA）

Question

尊敬的Stackoverflow会员，

在过去，我在堆栈溢出的帮助下创建了一个动态导入脚本。该脚本从文件夹中的工作簿导入所有工作表。

但现在我只想导入名为'sheet1'的工作表，而不是工作簿中的所有工作表（工作表1，2和3）。

我试图稍微修改'工作表'变量，但我无法让它工作。

代码由宏脚本和一个功能： 这是次

Public Sub Import_sheets_from_dir() 
' Import script from http://www.excel-easy.com/vba/examples/import-sheets.html 
' Function script from http://stackoverflow.com/questions/19372319/vba-folder-picker-set-where-to-start 
On Error GoTo ErrMsg 
Dim directory As String 
Dim fileName As String 
Dim Sheet As Worksheet 
Set ActivoWB = ActiveWorkbook 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

directory = GetFolderName() & "/" 
fileName = Dir(directory & "*.xl??") 

Do While fileName <> "" 
    Workbooks.Open (directory & fileName) 

    For Each Sheet In Workbooks(fileName).Worksheets 
     Workbooks(fileName).Worksheets(Sheet.Name).Copy _ 
     After:=ActivoWB.Sheets(ActivoWB.Sheets.Count) 
    Next Sheet 

    Workbooks(fileName).Close 
    fileName = Dir() 
Loop 

Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

Exit Sub 

ErrMsg: 
MsgBox prompt:="your doing something wrong" 


End Sub 

这是被使用的功能：

Public Function GetFolderName(Optional OpenAt As String) As String 
Dim lCount As Long 

GetFolderName = vbNullString 

With Application.FileDialog(msoFileDialogFolderPicker) 
    .InitialFileName = OpenAt 
    .Show 
    For lCount = 1 To .SelectedItems.Count 
     GetFolderName = .SelectedItems(lCount) 
    Next lCount 
End With 
End Function 

我也想知道哪个名称更相关的变化，我想使用VBA名称（红色，而不是蓝色（是在Excel中显示的工作表名称））。 Print Screen from VBA window 我想了解两者的编码差异。

我试图修改循环For Each Sheet In Workbooks(fileName).Sheet1，但这没有奏效。

你能指导我正确的方向吗？

在此先感谢！

问候， Dubblej

Answer 1

难道不是很简单：

For Each Sheet In Workbooks(fileName).Worksheets 
    If (Sheet.Name = "Sheet1") Then 
     Sheet.Copy _ 
     After:=ActivoWB.Sheets(ActivoWB.Sheets.Count) 
    Endif 
Next Sheet