小编bbe*_*ear的帖子

我有一个代码将两个工作表从一个工作簿复制到一个新工作簿.

由于这两个工作表包含数据在工作表本身上的图形,但数据中心引用了不同的工作表,因此我只复制值,以避免外部链接.

但是我发现我的原始工作簿仍然有一个外部链接.

1. 我不知道它在哪里,因为不再有公式了.
2. 我想到了名字并删除了它们,因为有很多名字,甚至在原始文件中都没有.这也没有帮助.
3. 当使用功能区中的菜单时,我可以删除外部.

当我在新工作簿中打开并在那里运行它时,下面的代码也可以工作.

Sub BreakLinks()

Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
    For Each link In wb.LinkSources(xlExcelLinks)
        wb.BreakLink link, xlLinkTypeExcelLinks
    Next link
End If
End Sub

但是,如果我想将该代码与复制结合使用,则无法解决问题.在破坏链接之前我故意保存它,因为我认为它可能无法做到,但它没有帮助.

有人知道为什么它不起作用或者能指出我的解决方案吗？

这是完整的代码:

Sub ACTION_Export_Capex()
Dim Pfad As String
Dim Dateiname As String
Dim ws As Worksheet
Dim wb As Workbook

Pfad = "D:\@Inbox\"
Dateiname = Format(Date, "YYYY-MM-DD") & " " & Format(Time, "hhmm") & " " & "monthly Report-" & Format(DateSerial(Year(Date), Month(Date) - 1, …