excelvba运行错误9下标越界_运行时错误9,下标越界是因为office版本问题吗

1.Excel VBA 编译出现错误'9' 下标越界。求问题所在！谢谢！

2.我的EXCEL宏出了问题，运行时错误9，下标越界，请各位大侠帮助，谢谢！

是VBA代码的BUG，通过调试，找出错误源可以解决。

OLEObject与OLE控件本身是有区别的。前者是运行是不可见的，是PB

所用的一种自动化技术。OLE控件本身必须添加于一个窗口容器上，不管

你是否设置其的VISIBLE属性与否。

想问一下，你的工作簿是否共享了，这也可能是出现问题的原因之一

Excel VBA 编译出现错误'9' 下标越界。求问题所在！谢谢！

使用Hyperlink生成超链接时，超链接属于Sheet，不属于单元格，所以运行代码时，报错运行时错误‘9’ 下标越界

以下代码，请安排在模块中

当然你需要设法运行myOnkey以便使设置的快捷键生效。这里我设设置的快捷键是Alt+x（你可以随时运行clearOnkey取消快捷键）

Application.OnKey?"%x",?"myClick"

End?Sub

Sub?clearOnkey()

Application.OnKey?"%x"

End?Sub

Sub?myClick()

On?Error?Resume?Next

Selection.Hyperlinks(1).Follow?NewWindow:=True

If?Error?=?""?Then?Exit?Sub

On?Error?GoTo?0

Dim?hyperText?As?String

hyperText?=?StrConv(Selection.Formula,?vbLowerCase)

If?InStr(hyperText,?"://")?=?0?Then?Exit?Sub

hyperText?=?Mid(hyperText,?InStr(hyperText,?"://"),?InStr(hyperText,?",")?-?InStr(hyperText,?"://")?-?1)

ActiveSheet.Hyperlinks.Add?anchor:=Selection,?Address:=hyperText

Selection.Hyperlinks(1).Follow

Selection.Hyperlinks(1).Delete

End?Sub

myClick代码会先尝试有没有手工输入的链接，如果能正确执行就结束，如果不能，尝试取得公式，如果公式中没有”://“（你可以自己定义你自己的超链接关键字符串），也会结束，否则，会按照hyperlink函数的结构取得超链接，并为Selection临时添加超链接并执行Follow方法，执行后删除添加的超链接

以上请测试

祝你顺利

我的EXCEL宏出了问题，运行时错误9，下标越界，请各位大侠帮助，谢谢！

Sub 销售()

Dim l As Long

Dim i As Long

Dim PSW As String

l = Sheet2.Range("C65536").End(xlUp).Row

Dim Arr1(), Arr2()

ReDim Preserve Arr1(1 To l)

ReDim Preserve Arr2(1 To l)

Arr1 = Sheet2.Range("c2:c" & l).Value

Arr2 = Sheet2.Range("d2:d" & l).Value

For i = 1 To l

If 销售登录.Value = Arr1(i, 1) Then

PSW = Arr2(i, 1)

End If

Next

End Sub

请在立即窗口输入如下命令显示工作簿对象的Name：

显示的内容才是你的当前工作簿的名称。。。因为名称被改掉了

如我附件所示，ThisWorkbook被改名为：ItIsRenamed