VBA运行时错误9：下标超出范围

我正在运行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”）。表（“Sheet1”）。UsedRange

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

编辑（2017年4月2日）：这段代码有另一个错误，因为它产生了列表中的第一个url的列表。 整个列表看起来是一样的，但点击每一个会带我到正确的超链接。 我想有名单有所有正确的各自的url，我应该如何编辑此代码？

编辑：我发现错误，它应该是Workbooks（“Company_List.xlms”）。表（“Sheet1”）。单元格（k，1）。值= Cell.Hyperlinks.Item（ k ）。地址

Answer 1

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

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