Попытка открыть новый файл и скопировать содержимое в этот файл, если соблюден определенный критерий.Не уверен, почему код не дает никакого вывода

Question

Sub Importfile()

On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    Dim src As Workbook
    Dim nw As Workbook
    Set nw = Workbooks.Add
    Dim Rng As Range
    Set Rng = Range("B1")

    Set src = Application.GetOpenFilename(FileFilter:="Excel workbook (*.xlsx),*.xlsx", _
           Title:="Select the EMAIL ID File")

    If src.Worksheets("Sheet1").Range("B1") <> "" Then

                Rng.Copy Destination:=src.Range("B1")
    End if

ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Answer 1

GetOpenFileName просто возвращает путь к выбранному файлу: вам все равно нужно вызвать Workbooks.Open (), чтобы открыть файл.

Sub Importfile()

On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    Dim src As Workbook, f
    Dim nw As Workbook
    Set nw = Workbooks.Add
    Dim Rng As Range
    Set Rng = Range("B1")

    f = Application.GetOpenFilename(FileFilter:="Excel workbook (*.xlsx),*.xlsx", _
                                    Title:="Select the EMAIL ID File")

    If f <> False Then 
        Set src = Workbooks.Open(f)
        If src.Worksheets("Sheet1").Range("B1") <> "" Then

                Rng.Copy Destination:=src.Range("B1")
        End if
     End If

ErrHandler:
    Msgbox err.description

End Sub