從一個工作簿復制并粘貼到另一個工作簿我編寫了以下代碼，并不斷地看到以往的課堂教學方法失敗了..我試圖克服這個問題，但似乎什么也沒有解決。我試圖從一本工作簿中復制一整張工作表，并將其粘貼到另一本工作簿中：Set x = Workbooks.Open(" path to copying book ")Workbooks.Open(" path to copying book ").Activate
Range("A1").Select'Cells.SelectSelection.CopySet y = Workbooks.Open("path to pasting book")Workbooks.Open("Path to pasting book").ActivateWith y
Sheets("sheetname").Cells.Select
Range("A1").PasteSpecial 'Sheets("sheetname").PasteSpecial
.CloseEnd WithWith x .CloseEnd With
2 回答
12345678_0001
TA貢獻1802條經驗 獲得超5個贊
Dim x As Workbook, y As WorkbookDim ws1 As Worksheet, ws2 As WorksheetSet x = Workbooks.Open("path to copying book")
Set y = Workbooks.Open("path to pasting book")Set ws1 = x.Sheets("Sheet you want to copy from")
Set ws2 = y.Sheets("Sheet you want to copy to")ws1.Cells.Copy ws2.cells
y.Close Truex.Close Falsews1.Range("Address").Copy: ws2.Range("A1").PasteSpecial xlPasteValues
y.Close Truex.Close False:.CopyStatement SeparatingObject.PasteSpecial
添加回答
舉報
0/150
提交
取消