各位大虾问个excel打开时的下标越界问题
没次打开excel时就会有下标越界问题
下面是调试代码:
Declare Function DMNewFromTemplate Lib "dexcl10n.xll " () As Integer
Declare Function DMOpenDoc Lib "dexcl10n.xll " () As Integer
Declare Function DMCheckinDoc Lib "dexcl10n.xll " () As Integer
Declare Function DMSaveDoc Lib "dexcl10n.xll " () As Integer
Declare Function DMSaveAsDoc Lib "dexcl10n.xll " () As Integer
Declare Function DMFindDoc Lib "dexcl10n.xll " () As Integer
Declare Function DMProperties Lib "dexcl10n.xll " () As Integer
Declare Function DMSendLocator Lib "dexcl10n.xll " () As Integer
Declare Function DMWorkingFiles Lib "dexcl10n.xll " () As Integer

Sub Auto_Open()
For Each bar In Application.CommandBars

If bar.Name = "Chart Menu Bar " Or bar.Name = "Worksheet Menu Bar " Then

Set fileMenu = bar.Controls.Item(1).Controls
MyCount = fileMenu.Count

For i = 1 To MyCount
Set z = fileMenu.Item(i)
If z.Caption = "Save &Workspace... " Then
StartAt = i + 1
Exit For
End If
Next i
Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt, Temporary:=True)
btn.Caption = "New From Docbase Template... "
btn.OnAction = "DMNewFromTemplate "
btn.BeginGroup = True

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 1, Temporary:=True)
btn.Caption = "Open From Docbase... "
btn.OnAction = "DMOpenDoc "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 2, Temporary:=True)
btn.Caption = "Check In to Docbase... "
btn.OnAction = "DMCheckinDoc "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 3, Temporary:=True)
btn.Caption = "Check In as New Document... "
btn.OnAction = "DMSaveAsDoc "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 4, Temporary:=True)
btn.Caption = "Find in Docbase... "
btn.OnAction = "DMFindDoc "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 5, Temporary:=True)
btn.Caption = "Document Info "
btn.OnAction = "DMProperties "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 6, Temporary:=True)
btn.Caption = "Send from Docbase... "
btn.OnAction = "DMSendLocator "

Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt + 7, Temporary:=True)
btn.Caption = "Checked Out Files "
btn.OnAction = "DMWorkingFiles "


End If
Next

End Sub

运行到Set btn = fileMenu.Add(Type:=msoControlButton, Before:=StartAt, Temporary:=True)
时发生错误,提示下标越界

[解决办法]
不明白楼主的意思
你这段代码是怎么来的？
我用你的代码动不了
[解决办法]
法啊
VB哪的Type:=msoControlButton法？

DELPHI改的？？
[解决办法]
debug.print StartAt,maybe zero.