excel,VBA:请教一个给workbook赋值的问题，谢谢您的热心解答

是这样的，我的workbook名称随当前thisworkbook的activesheet的P5单元格的变化而变化, 但是它呢是个已经打开的工作簿，所以下面代码的open指令肯定不对了，但是我不懂要怎么设置这么变量，以便在下面的宏语句中灵活引用？ 谢谢！

Set wk = Workbooks.Open("\\zho-vm-fps-001\Departments\Logistics\Log_Private\Shipping\VNA\PL\" & ThisWorkbook.ActiveSheet.Range("P5"))
wk.Worksheets("Inv(Main)").Activate
ThisWorkbook.Activate
Application.Goto Reference:="R8C21:R33C21"
Selection.Copy
wk.Activate
Application.Goto Reference:="R33C17"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WK.Save

Suba()'当前的表格Dimsht1AsWorksheet'打开的excel表Dimsht2AsWorksheet'变量sht1赋值Setsht1=ActiveSheet'变量sht2赋值，打开工作表Setsht2=Workbooks.Open("Filename").ActiveSheet'激活当前工作表sht1.Activate'引用打开的excel表格中的数据Cells(j,1).Value=sht2.Cells(i,1).ValueEndSub