有人可以幫我處理這個宏嗎?這是我要完成的作業:
作業簿 x 當前打開。打開 Excel 電子表格 y(檔案路徑在作業簿 x 的宏選項卡的單元格“B2”中)。從作業簿 x 的宏選項卡中復制 A3:A26,然后粘貼到作業簿 y 的摘要選項卡中的 M41:M63 中。我遇到的問題是 B2 檔案路徑名。我想我需要指定從 B2 中提取文本以打開正確的作業簿,但我無法弄清楚。我收到的錯誤訊息是“抱歉,我們找不到 B2.xlsx”。提前致謝!
Sub Foo()
Dim x As Workbook
Dim y As Workbook
Set y = Workbooks.Open("B2")
x.Sheets("Macro").Range("A3:A26").Copy
y.Sheets("Summary").Range("M41:M63").PasteSpecial
End Sub
uj5u.com熱心網友回復:
嘗試以下操作...假設作業簿中的作業表x實際上稱為“宏”(您在作業簿中也有一個y同名作業表?)...您還需要設定它的值x:
Sub Foo()
Dim x As Workbook
Dim y As Workbook
Set x = ActiveWorkbook
Set y = Workbooks.Open(x.Sheets("Macro").Range("B2"))
x.Sheets("Macro").Range("A3:A26").Copy
y.Sheets("Summary").Range("M41:M63").PasteSpecial
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/524472.html
標籤:擅长vba
下一篇:ExcelVBA查找結果不一致
