从加载项工作簿复制表

Question

我正在尝试使用我创建的一些宏来创建一个加载项，以使我的一些同事的工作更容易一些。这个加载项还包含一个电话簿表，我希望能够在活动工作簿的末尾添加一个新表。我对VBA很新，所以我在努力弄清楚如何正确地做到这一点。我有一个对话框，询问是或否添加它，到目前为止我所拥有的是：

Private Sub yes_Click()
Dim wb As Workbook
Set wb = ThisWorkbook

wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)).name = "Phone Book"

Workbooks("Add-In.xlam").Sheets("phone").Activate
Cells.Copy
mainWB.Sheets("Phone Book").Range("A1").Paste

Unload Me
End Sub

我尝试了很多东西，所以这段代码可能看起来有点像弗兰肯斯坦的怪物。谢谢你的帮助！

Answer 1

这应该这样做：

ThisWorkbook.Sheets("Phone Book").Copy _
           After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

...假设此代码在您的加载项中运行。