重构代码以断开链接，因此不使用 Variant 类型

Question

如何重构以下子例程，使其不使用 Variant 数据类型？

Sub BreakAllLinks()

Dim Link As Variant
Dim myLinks As Variant

myLinks = Excel.ActiveWorkbook.LinkSources(Type:=Excel.xlLinkTypeExcelLinks)
For Each Link In myLinks
    Excel.ActiveWorkbook.BreakLink Name:=Link, Type:=Excel.xlLinkTypeExcelLinks
Next Link

End Sub

Answer 1

链接源是一个字符串。但何必呢？

Sub M_snb()
  For Each it In ActiveWorkbook.LinkSources(1)
    MsgBox = TypeName(it)
    ActiveWorkbook.BreakLink it, 1
  Next
End Sub

Answer 2

以下是您可以在没有变体的情况下执行此操作的方法 - 但您不应该这样做。

Sub BreakAllLinks()

    Dim myLinks() As String
    Dim LinkIdx As Long
    Dim Link As String

    ReDim myLinks(1 To UBound(ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)))

    For LinkIdx = LBound(myLinks) To UBound(myLinks)
        myLinks(LinkIdx) = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)(LinkIdx)
    Next LinkIdx

    For LinkIdx = LBound(myLinks) To UBound(myLinks)
        Link = myLinks(LinkIdx)
        ActiveWorkbook.BreakLink Link, xlLinkTypeExcelLinks
    Next LinkIdx

End Sub

为了演示涉及的所有数据类型，这有点夸张。您只能 For..Each 一个带有 Variant 的数组 - 这就是语言的编写方式。最佳做法不是“不使用变体”，而是 'Use the most restrictively typed variable that you can'。在您的情况下，Variant 是您可以使用的类型限制最严格的变量。

有一种方法可以不用变体来写，而且不会那么疯狂

Sub BreakAllLinks()

    Dim LinkIdx As Long

    For LinkIdx = LBound(ActiveWorkbook.LinkSources(1)) To UBound(ActiveWorkbook.LinkSources(1))
        ActiveWorkbook.BreakLink ActiveWorkbook.LinkSources(1)(1), xlLinkTypeExcelLinks
    Next LinkIdx

End Sub

但即便如此，我还是会选择变体。这是值得的权衡。

重构代码以断开链接，因此不使用 Variant 类型

Refactor code to break links so Variant type is not used

excel

vba