VBA運行時錯誤9：下標超出范圍

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發生在以下行：

設置Cell = Workbooks（“Company_List.xlms”）。表格（“Sheet1”）。UsedRange

有人能幫忙嗎？ 工作簿名稱和工作表名稱是正確的，我的列數據從A1開始，標題標題為列。

編輯（2017年4月2日）：這段代碼有另一個錯誤，因為它生成了一個列表，似乎是列表中的第一個。 整個列表看起來都一樣，但點擊每個列表會帶我到正確的超鏈接。 我希望列表中包含所有正確的相應網址，我應該如何編輯此代碼？

編輯：我發現錯誤，它應該是工作簿（“Company_List.xlms”）。表格（“Sheet1”）。單元格（k，1）.Value = Cell.Hyperlinks.Item（ k ）.Address

Answer 1

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

我懷疑第一個，因為這個名字很奇怪，應該是“Company_List.xlsm”。