Как чистить разрывы ссылок в Excel VBA 2010

Question

Я пытаюсь программно разорвать все ссылки, а затем воссоздать их в книге.

У меня есть код VBA для чистого разрыва ссылок Excel в Excel 2010, однако проблема, с которой я всегда сталкиваюсь, заключается в том, что Excel подскажет мне каждый раз, когда я RECREATE ссылку.

Вот что я делаю:

Вот процедура BreakLinks:

Sub BreakLinks() 
    vLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) 

    ' Break all links in the active workbook. 
    For lLink = LBound(vLinks) To UBound(vLinks) 
     ActiveWorkbook.BreakLink _ 
      Name:=vLinks(lLink), _ 
      Type:=xlLinkTypeExcelLinks 
    Next lLink 
end sub 

Вот Основной раздел: * Пожалуйста, обратите внимание, что последняя строка, где я назначу thisFormula это где подсказки Excel меня с помощью диалогового окна «Файл», которое заставляет меня либо отменить, либо выбрать мою основную рабочую книгу, на которую я ссылаюсь ...

BreakLinks ' call proc to break the links 
    thisFormula = "='[DataMaster - Data Template.xlsm]MASTER'!$B" + Trim(Str(myRow))  ' reference back to master workbook 
    Range("A1").Formula = thisFormula  ' i.e. "='[DataMaster - Data Template.xlsm]MASTER'!$B32" 
    Range("B1").Formula = "=D1" 
    Range("C1").Formula = "=E1/100" 
    thisFormula = "=BDH('[DataMaster - Data Template.xlsm]MASTER'!$A" + Trim(Str(myRow)) + "," + charCode + "PX_LAST" + charCode + ",FirstDate," + charCode + " " + charCode + "," + charCode + "cols=2;rows=50" + charCode + ")" 
    Range("D1").Formula = thisFormula 

Я хотел бы знать, как избежать этой очень раздражающей подсказки Excel, и просто полностью воссоздать свою Формулу/Ссылка.

Answer 1

Вы можете попробовать использовать Application.DisplayAlerts:

Application.DisplayAlerts = False 
'<statements that may invoke alerts> 
Application.DisplayAlerts = True