Question

我对vba编码相当新，我对如何在工作表之间导航感到困惑。我有一个包含单个工作表的工作簿，该工作表被复制到新工作簿中，以便可以在不损坏原始工作簿的情况下对其进行编辑。我遇到的问题是创建新工作簿时我需要从第3个工作簿复制信息并将其粘贴到新工作簿中。我已经尝试了很多东西，但还是没能弄清楚。我认为问题在于新书没有名称只是Book＃所以一旦我离开激活另一本书，我就没有坚实的路径了。

很抱歉缺少一个实际的例子。我根据收到的回复添加了前两行。

    Dim wb As Workbook
    Set wb = ActiveWorkbook

' Open the 3rd workbook & copy
    Workbooks.Open ("Z:\Terms And Conditions.xlsx")
    Windows("Terms And Conditions.xlsx").Activate
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
        Selection.Copy

' Return to wb and paste
    ActiveWorkbook(wb).Activate    'The code is stopping here
    Worksheets("Sheet1").Activate
    Range("A534").Select
    ActiveSheet.Paste

Answer 1

查看一些代码会有所帮助，但如果您只是复制工作表以创建新工作簿，则可以存储对activeworkbook的引用

dim wb as workbook
set wb = activeworkbook

然后根据需要在代码中引用wb

Excel VBA昏暗新

1 个答案: