VBA 运行时错误 9 : subscript out of range

Question

我正在运行一个 vba 从超链接文本列中提取 url:

Sub RemoveHyperlinks()
Dim Cell As Range

Dim i As Long
Dim k As Long
k = 1
Set Cell = Workbooks("Company_List.xlms").Sheets("Sheet1").UsedRange

i = 0

Do Until i = Cell.Hyperlinks.Count
If Cell.Hyperlinks.Count > 0 Then
Workbooks("Company_List.xlms").Sheets("Sheet1").Cells(k, 1).Value = Cell.Hyperlinks.Item(1).Address
i = i + 1
k = k + 1
End If

Loop

End Sub

运行时错误 9 发生在以下行:

Set Cell = Workbooks("Company_List.xlms").Sheets("Sheet1").UsedRange

有人能帮忙吗？工作簿名称和工作表名称正确，我的列数据从 A1 开始，列标题。

编辑(2017 年 4 月 2 日):
这段代码有另一个错误，因为它生成了一个似乎是列表中第一个的 url 列表。整个列表看起来都一样，但点击每个列表都会让我找到正确的超链接。我希望列表中包含所有正确的相应网址，我应该如何编辑此代码？

编辑:
我发现了错误，应该是
Workbooks("Company_List.xlms").Sheets("Sheet1").Cells(k, 1).Value = Cell.Hyperlinks.Item( k ).Address

Answer 1

如果 Workbooks("Company_List.xlms").Sheets("Sheet1").UsedRange返回 subscript out of range则 Workbooks 中没有名为“Company_List.xlms”的工作簿或者该工作簿中没有名为“Sheet1”的工作表。

我怀疑第一个，因为这个名字很奇怪，应该是“Company_List.xlsm”。