运行VBA时出现 &H80040111错误

[不指定 2016/05/31 18:41 | by 白燕湾 | Via 本站原创 ]
在使用Excel VBA的时候,尤其是有设计的Form窗体并且上面有列表框等控件时,经常会碰到在某些电脑上打开出现“无法加载这个对象,因为它不适用于这台计算机”的问题。这个问题产生的主要原因是由于两台电脑上的MSCOMCTL.OCX版本不同。尤其是在高版本的Office里创建的窗体和控件,在低版本的Office或电脑上打开时就有可能出现这个问题。

或者出现:“&H80040111错误” 的提示,这些现象,基本都是因为版本不同导致的。

最终解决方案
1.取得MSCOMCTL.OCX最新版6.1.98.34(见附件)
2.到C:\WINDOWS\system32下找到文件MSCOMCTL.OCX
3.用新版本覆盖旧版本
4.点右键查看"属性"-"版本",看版本号是否更新为6.1.98.34
5.点"开始-运行"  输入:Regsvr32 MSCOMCTL.OCX
做到此步后,从新打开EXCEL,应该就可以了

win7 64位 的解决办法:
1、将MSCOMCTL.OCX最新版6.1.98.34 复制到C:\Windows\SysWOW64\目录下面
2、运行:cmd 第二步选择(以管理员身份运行)
3、在dos窗口中输入
cd c:\windows\syswow64 [回车键]
regsvr32 MSCOMCTL.OCX  [回车键]
运行dos命令行(就是cmd)是一定要以管理员身份

Tags: , ,

VBA字典入门

[不指定 2016/05/10 17:52 | by 吕进 | Via 本站原创 ]
一、初识字典
  1、英文名字 Dictionary
  2、存在于 Scrrun.dll 文件中
  3、需将文件注册到系统中

  4、需引用文件的声明方法
    4.1、Dim D As Scripting.Dictionary (使用时还需用代码创建)
    4.2、Dim D As  New Scripting.Dictionary(对象实例化声明,声明后可直接使用)
    4.3、声明时 Scripting 可省略

  5、创建法
    5.1、Set D=CreateObject("Scripting.Dictionary")
    5.2、Scripting 为 scrrun 文件的工程名称
    5.3、Dictionary 为 Scripting 工程中的一个类模块(功能模块)
Tags: , , ,

改变提交按钮的背景图像

[不指定 2015/01/17 11:46 | by 吕进 | Via 网页代码 ]
网页会变色的网页按钮,一个使用背景图像的按钮,基于JavaScript实现,鼠标移到按钮上,按钮背景图片会改变.使用onMouseover和onMouseout实现的效果,当鼠标移上按钮的时候,JS动态改变按钮的背景图像,请事先准备好需要变换的背景图片。
1、将CSS代码放在之前,
<style type="text/css">
.initial{
background-image:url("k3.jpg");
font-size: 18pt;
width:180px;
height:60px;
border:0;}

CSS实现水平及垂直居中

[不指定 2015/01/17 11:30 | by 吕进 | Via CSDN ]
在处理网页时,有时需要实现body垂直居中,用CSS的实现代码:
<style type="text/css">
.body{
width:50%;  //..宽度可修改为绝对值..//
height:50%;
position: absolute;
overflow: auto;
margin: auto;
top: 0;
bottom: 0;
left:0;
right:0;
}
</style>

MySQL批量删除指定前缀表

[不指定 2014/08/29 19:18 | by 吕进 | Via mysql ]
MySQL批量删除指定前缀表
Select CONCAT( 'drop table ', table_name, ';' ) FROM information_schema.tables Where table_name LIKE 'dede_%';

"dede"为要删除的表前缀,执行此SQL语句后会生成一串SQL语句,必须再执行生成的这些SQL语句才能真正执行删除操作。
另外一个就是批量修改表名:
Select CONCAT( 'ALTER TABLE ', table_name, 'RENAME TO ', table_name,';' ) FROM information_schema.tables Where table_name LIKE 'dede_%';

以上都必须首先在服务器 "localhost" 运行 SQL 查询,然后在对应的数据库下运行 SQL 查询。
Tags:
分页: 2/11 第一页 上页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]