选择"活动图纸"和"指定图纸"

Question

我想设置一个宏，允许我在启动宏时将特定的链接列表以及我选择的工作表打印成PDF。我原以为我可以用下面的来设置选择，但它不起作用。

Sub Macro2()
Dim wsA As Worksheet
Dim MyArray As Variant
Set wsA = ActiveSheet
MyArray = Array("Contacts", "PersonalLinks", "banklogins", "time", wsA)
Sheets(MyArray).Select
End Sub

我错过了什么/做错了什么？谢谢你能提供的任何帮助。

Answer 1

我终于找到了问题的答案

向数组声明activesheet以打印2张工作簿

所以代码需要是

Sub Macro2()
Dim MyArray As Variant
MyArray = Array("Contacts", "PersonalLinks", "banklogins", "time", ActiveSheet.Name)
Sheets(MyArray).Select
End Sub

现在只需要添加打印到PDF的代码。