VBA從一個Excel工作表復制到另一個Excel工作表？

Question

我基本上是將一個excel文件工作表復制到excel文件的特定工作表中（與編寫宏的位置相同）。我得到了錯誤-運行時錯誤'9'：下標超出了WbTarget.Sheets行（“ FPP”）。Range（“ A1：E654”）。PasteSpecial
我的VBA不夠好-請幫忙嗎？

Sub XMLR()
Dim output As String
output = CreateObject("WScript.Shell").Exec("R CMD BATCH  filepath.R").StdOut.ReadAll
Call XML
End Sub

Sub XML()
Dim wbTarget            
Dim wbThis              
Dim strName             
Set wbThis = Workbooks.Open("file.xlsx")
wbThis.Activate
strName = ActiveSheet.Name
Set wbTarget = ActiveWorkbook
Application.CutCopyMode = False
wbThis.Sheets("Sheet1").Range("A1:E654").Copy
wbTarget.Sheets("FPP").Range("A1:E654").PasteSpecial
Application.CutCopyMode = False
wbTarget.Save
wbTarget.Close
wbThis.Close
Set wbTarget = Nothing
Set wbThis = Nothing
End Sub

Answer 1

有點混亂，但是請嘗試以下操作：

Sub XML()

Dim wbTarget As Workbook
Dim wbThis As Workbook
Dim strName As String

Set wbThis = Workbooks.Open("file.xlsx")

ThisWorkbook.Sheets("FPP").Range("A1:E654").Value = wbThis.Sheets("Sheet1").Range("A1:E654").Value

wbTarget.Save
wbTarget.Close
wbThis.Close

Set wbTarget = Nothing
Set wbThis = Nothing

End Sub

Answer 2

這里的問題是WbTarget和WbThis都引用同一工作簿。

您應該更改聲明：

Set wbTarget = ActiveWorkbook

至

Set wbTarget = Application.ThisWorkbook