Vba 只带一张工作表

下面是我必须从另一个工作簿中引入工作表的代码。 但我需要的是只带一张工作表，而不是全部。 我还需要宏来将工作表重命名为其他名称，而不是从导入工作表的原始工作簿中的名称。有谁能帮我弄这两个家伙吗

以下是我所拥有的：

Option Explicit

Private Sub Bring_Workbooks_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "access path to where the original workbook is stored"
fileName = Dir(directory & "Name of workboork where sheet will be copied from.xls")

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

For Each sheet In Workbooks(fileName).Worksheets
    total = Workbooks("Name of my workbook.xlsm").Worksheets.Count
    Workbooks(fileName).Worksheets(sheet.Name).Copy _
    after:=Workbooks("Name of my workbook.xlsm").Worksheets(1)
Next sheet

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

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

请尝试以下代码：

子带\u工作簿\u单击

Dim path, fileName, WkshtOrig, fullName, MyWkbk  As String
Dim total As Integer

path = "C:\VBA\"  'access path to where the original workbook is stored
fileName = "OrigWkbk.xlsx" 'Name of workbook where sheet will be copied from.xls
fullName = path & fileName
WkshtOrig = "My Orig Wksht" 'name of worksheet to be copied & placed in this workbook.
MyWkbk = "StkOvrFlwuser3738555.xlsm" 'What I named my sample workbook

Workbooks.Open fileName:= fullName

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks(fileName).Worksheets(WkshtOrig).Copy _
    after:=Workbooks(MyWkbk).Worksheets(1)
Workbooks(MyWkbk).Worksheets(WkshtOrig).Select
ActiveSheet.Name = "MyNewName"

Workbooks(fileName).Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

---

如何确定要从源工作簿复制的工作表？