Как отключить ссылку на ячейку при загрузке листа в книгу

Question

Как подавить следующее сообщение при импорте листа из другой книги в новую книгу.

Как вообще пропустить это?Я не хочу менять ссылки.

Вот мой код:

Sub Import()

Dim masterWB As Workbook
Dim dailyWB As Workbook

Application.DisplayAlerts = False

'Set Current Workbook as Master
Set masterWB = Application.ThisWorkbook
'Set some Workbook as the one you are copying from
Set dailyWB = Workbooks.Open("file name")

Application.DisplayAlerts = True

'Copy the Range from DailyWB and Paste it into the MasterWB
dailyWB.Sheets("Summary").Range("A1:F200").Copy masterWB.Sheets("TEST").Range("A1").Rows("1:1")
Columns("A:F").Select
Selection.Columns.AutoFit

'Close the Workbook without saving
dailyWB.Close False
'Clear the Variables
Set dailyWB = Nothing
Set masterWB = Nothing

End Sub

Answer 1

Я думаю, вам нужно переместить Application.DisplayAlerts = True после копирования в другую рабочую книгу.

Sub Import()

    Dim masterWB As Workbook
    Dim dailyWB As Workbook

    Application.DisplayAlerts = False

    'Set Current Workbook as Master
    Set masterWB = Application.ThisWorkbook
    'Set some Workbook as the one you are copying from
    Set dailyWB = Workbooks.Open("file name")


    'Copy the Range from DailyWB and Paste it into the MasterWB
    dailyWB.Sheets("Summary").Range("A1:F200").Copy masterWB.Sheets("TEST").Range("A1").Rows("1:1")
    Columns("A:F").Select
    Selection.Columns.AutoFit

    Application.DisplayAlerts = True

    'Close the Workbook without saving
    dailyWB.Close False
    'Clear the Variables
    Set dailyWB = Nothing
    Set masterWB = Nothing

    End Sub