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

答案:1 悬赏:0 手机版

解决时间 2021-02-23 06:07

提问者网友：ミ烙印ゝ
2021-02-22 08:49

是这样的，我的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

最佳答案

五星知识达人网友：酒醒三更
2021-02-22 09:47

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息