0

我对 vba 编码还很陌生,我对如何在工作表之间导航感到困惑。我有一个包含单个工作表的工作簿,并且该工作表被复制到一个新工作簿中,以便可以在不损坏原始文件的情况下对其进行编辑。我遇到的问题是在创建新工作簿时,我需要从第三个工作簿中复制信息并将其粘贴到新工作簿中。我已经尝试了很多事情,但无法弄清楚。我认为问题在于新书的名称不只是 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
4

1 回答 1

1

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

dim wb as workbook
set wb = activeworkbook

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

于 2013-07-31T07:57:34.137 回答