作者:乔山办公网日期:
返回目录:excel表格制作
刚试过,有效百!!
打开EXCEL表,会出现"运行时错误91’,未设置对象变量或with block变量”的解决方法是:度
1. 打开注册表编辑器。(开始->运行->regedit)
2. 找到[HKEY_CURRENT_USERSoftwareMicrosoftOfficeEXCELAddins]
删除全部知子项。
3. 再打开EXCEL文档,没有那出道现错误了
错误描述:object doesn t support this property or method是什么意思?怎么解决?打印版机是好的,驱动也问题,能够打印文权件,只是不能打国税的网上申报表
438表示对象不支持此属性或方法,你应该是用了一个不支持的属性可方法,也可能是输入的属性可方法存在拼写错误。
将以下代码粘7a686964616fe78988e69d83362贴到 VBA 模块:
'Creates a four-button control bar with
'MyAutoSumButtonMacro assigned to the fourth button.
'The macro names used in this example are simply placeholders.
'You must substitute the names of macros that you create.
Private Sub AddToolbar()
Dim tbb As Object
On Error Resume Next
Toolbars("Test").Delete
On Error GoTo 0
Set oTB = Toolbars.Add(Name:="Test")
With oTB
.Left = 117
.Top = 186
Set tbb = .ToolbarButtons.Add(Button:=23, Before:=1)
tbb.OnAction = ThisWorkbook.Name + "!InsertRowMacro"
Set tbb = .ToolbarButtons.Add(Button:=20, Before:=2)
tbb.OnAction = ThisWorkbook.Name + "!DeleteRowMacro"
Set tbb = .ToolbarButtons.Add(Button:=13, Before:=3)
tbb.OnAction = ThisWorkbook.Name + "!CopyMacro"
'Creates a button with the AutoSum symbol and
'assigns MyAutoSumButtonMacro to it.
CommandBars("Auto Sum").Controls("Sum").Copy Bar:=CommandBars _
("Test"), Before:=4
Set tbb = CommandBars("Test").Controls("Sum")
tbb.Style = msoButtonAutomatic
tbb.OnAction = ThisWorkbook.Name + "!MyAutoSumButtonMacro"
.Width = 200
.Visible = True
End With
End Sub
很大可能是中宏病毒了。到百度上搜索“宏专杀”,下载一个宏病毒专杀软件,杀一下毒就能够解决了。
还是不行的话,直接将原有EXCEL卸载了,重新安装一次。