1

プログラムですべてのリンクを解除してから、ワークブックで再作成しようとしています。

Excel 2010 で Excel のリンクをきれいに切断するための VBA コードを取得しましたが、リンクを再作成するたびに Excel からメッセージが表示されるという問題が常にあります。

これが私がやっていることです：

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 プロンプトを回避し、数式/リンクをきれいに再作成する方法を知りたいです。

4

1 に答える 1

2

Application.DisplayAlertsを使用してみることができます。

Application.DisplayAlerts = False
'<statements that may invoke alerts>
Application.DisplayAlerts = True
于 2013-03-11T21:47:49.403 に答える