excel初始化vba库出错(2007excel初始vba库出错)

1. 2007excel初始vba库出错

在运行里面输入 regedit 打开注册表编辑器，依次打开：HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security，右边双击Level，把3改为2（中级）或者1看看。

这是隐藏程序的VBA代码执行出错。可以如下方法分析：

按取消，按ALT+F11、CTRL+R查看隐藏的程序，如果不是你安装的，很可能是病毒，删除对应的文件。

你导出没有？导出后是.bas，.frm等，然后上硬盘上Search这些文件，要是没有，就没办法了。

还有就是找盘上所有的.xls，然后看看有没有意外收获。

你xls时候就没有的东西，.txt时也别指望。如果有问题的话，Excel自行都修复不了的话……

你用UltraEdit试试吧。如果不是明码就没办法了，你这又不是加密，是种错误，应该没有针对这样具体错误设计的恢复器。

也许能，你丢的是你写的还是加载宏？安装只覆盖加载宏，你写的东西当然没什么可以说的。你试试吧。

len()在VBA中用于求字符串长度

其括弧中必须填入字符串需加引号

无引号将出错

当vba中find函数的返回值为空时，应该用Null来作为返回值赋值给相应元素，避免报错。

答方法如下

'第⼀步，引⽤ADO ⼯具，⼯具->引⽤—>microsoft ActiveX Data Objects 6.1 Library

'第⼆步，创建连接对象

'1 、声明连接对象的名字(或者给连接对象叫取变量名)

Dim con As ADODB.Connection

'2、创建对象变量并赋值

Set con = New ADODB.Connection

'第三步，建⽴数据库的连接

@绵掌骞魁2021

'也可以把上⾯的2步合成⼀步：dim con as new adodb.connection

With con

.Provider = "microsoft.ace.oledb.12.0;"

.ConnectionString = ThisWorkbook.Path & "\学⽣管理.accdb"

.Open

End With

MsgBox "成功"

End Sub

顶一下

(0)

踩一下

(0)