Excel VBA暗淡新

我是vba編碼的新手，我越來越掛斷瞭如何在表單之間導航。我有一個包含一張工作表的工作簿，該工作表被複制到一個新的工作簿中，以便在不損壞原稿的情況下進行編輯。我遇到的問題是創建新工作簿時，我需要從第三個工作簿複製信息並將其粘貼到新工作簿中。我嘗試了很多東西，但一直未能弄清楚。我認爲問題在於這本新書的名字沒有Book＃，所以一旦我離開去激活另一本書，我就沒有一條堅實的路。Excel VBA暗淡新

對不起，缺乏一個實際的例子。我根據收到的回覆添加了前兩行。

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

來源

2013-07-31 Robert Hawkes

儘管工作簿有一個位置（在磁盤上），所以您應該可以使用[Workbook.Open]（http://msdn.microsoft.com/zh-cn/library/office/ff194819。 aspx） – JMK

它只是wb.activate – JosieP

這將有助於看到一些代碼，但如果你只是簡單的複製片，以創建一個新的工作簿，你可以參考存儲到activeworkbook

dim wb as workbook 
set wb = activeworkbook

，然後是指在以後的WB代碼

來源

2013-07-31 07:57:34 JosieP

Excel VBA暗淡新

回答

相關問題