excel - 打开工作簿并复制信息代码不会按预期复制值

Question

因此，我编写了以下代码将信息从另一个工作簿复制粘贴到当前工作簿，但它无法识别信息，而只能识别目标文件中的下拉列表信息。

Sub casesopenfile()
    Dim filetoopen As String
    Dim Casesbook As Workbook    
    
    filetoopen = Application.GetOpenFilename(Title:="Choose a file", Filefilter:="Excel Files (*.xls*), *xls*,(.*xlsx*),*xlsx")
    
    If filetoopen = "False" Then
        MsgBox "No file selected", vbExclamation, "Sorry"
        Exit Sub
    Else
        Set Casesbook = Application.Workbooks.Open(filetoopen)
        Casesbook.Sheets(1).Range("A1:Q300").Copy
        ThisWorkbook.Worksheets("Cases 2017-2021").Range("A1121").PasteSpecial xlPasteValues
        Casesbook.Close False
    End If
End Sub

标签： excelvbacopy