从关闭的工作簿导入区域

Option Explicit

Private Sub CommandButton1_Click()
    
    Dim FilePath: FilePath = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.csv), *.csv", _
        Title:="Open Report File")
    
    If VarType(FilePath) = vbBoolean Then
        MsgBox "Canceled.", vbExclamation
        Exit Sub
    End If
    
    Dim swb As Workbook: Set swb = Workbooks.Open(FilePath)
    Dim sws As Worksheet: Set sws = swb.Sheets(1) ' the one and only
    Dim srg As Range: Set srg = sws.Range("B4:F4")
    
    Dim dwb As Workbook: Set dwb = ThisWorkbook ' workbook containing this code
    Dim dws As Worksheet: Set dws = dwb.Sheets("Sheet1")
    Dim dfCell As Range: Set dfCell = dws.Range("B14")
    
    srg.Copy dfCell
    
    swb.Close SaveChanges:=False
    
    ' Probably not necessary:
    'If Not dwb Is ActiveWorkbook Then dwb.Activate
    'Application.Goto dfCell

    MsgBox "Range imported.", vbInformation

End Sub