如何在下面的VBA代码上修复错误400

Question

下面的代码是一种将数据从一个工作表复制到另一个工作表的测试，我一直收到错误400，但我不确定丢失了什么。

Sub test()
Dim TravelRequest As Workbook
Dim MainBook As Workbook
Set TravelRequest = ThisWorkbook
'Open All workbooks first:
Set MainBook = Workbooks.Open("FILELOCATIONREDACTED")


TravelRequest.Sheets("Sheet4").Range("C5").Copy

MainBook.Sheets("Sheet1").Range("A").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False

End Sub

Answer 1

我在sheet1中有宏代码，并且正在工作在sheet4上（我需要上床睡觉）