各位大虾问个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.
