VBA常用技巧代码解析

zwbxwy · 发表于 2009-4-10 23:13

新手上路，这种模式的教材很好用，可以边套用边学习。谢谢版主。

刀尖上跳舞 · 发表于 2009-4-11 12:24

谢谢楼主的耐心与细心

刀尖上跳舞 · 发表于 2009-4-11 12:25

我是一只菜鸟，因此学习起来会比较费力

刀尖上跳舞 · 发表于 2009-4-11 12:37

已经把现在的东西都下载下来了，只能慢慢学了

hightree2005 · 发表于 2009-4-11 14:55

太好的东西了。谢谢

ykx042907 · 发表于 2009-4-11 17:13

如此烦琐的好东西，太感谢你细心整理了！
全书应有13大章，现在第八章仍未结束。还要麻烦耐心而周全整理啊！再次感谢你------我们的好榜样！

nzhyj · 发表于 2009-4-12 08:25

好东西,以后不用到年找资料了.

nowarmy · 发表于 2009-4-12 08:57

想提高办公效率，需天天向专家们学习。

yuanzhuping · 发表于 2009-4-12 09:51

技巧118 如何注册控件
Excel文件中如果有ActiveX控件如日期时间控件（Microsoft Date and Time Picker Control 6.0，简称DTP控件），在有些电脑上运行时会出现“无法装载这个对象，因为它不适于这台计算机”的提示，如图所示。文件中的控件丢失，无法正常使用。

这是因为DTP控件没有注册引起的，解决办法是在能运行该控件的电脑中复制DTP控件的文件到目标电脑中进行注册。在VBE窗口中右键单击“工具箱”，选择“附加控件”，在“附加控件”对话框中选择DTP控件，对话框底部会显示控件的名称和文件所在的路径，如图所示。

DTP控件的文件名为MSCOMCT2.OCX，在C盘的Windows\system32文件夹中，把该文件复制到目标电脑C盘的Windows\system32文件夹中，单击“开始”→“运行”，在“运行”对话框中键入“regsvr32 C:\Windows\system32\MSCOMCT2.OCX”，注册成功后会出现如图所示的对话框，DTP控件即能正常使用。

在Excel中可以使用程序代码进行自动注册，代码如下：

#001 Sub regsvrs()
#002 Dim SouFile As String
#003 Dim DesFile As String
#004 On Error Resume Next
#005 SouFile = ThisWorkbook.Path & "\MSCOMCT2.OCX"
#006 DesFile = "c:\Windows\system32\MSCOMCT2.OCX"
#007 FileCopy SouFile, DesFile
#008 Shell "regsvr32 /s" & DesFile
#009 MsgBox "DTP控件已成功注册，现在可以使用了!"
#010 End Sub

复制代码

代码解析：
Regsvrs过程将保存在同一目录中的MSCOMCT2.OCX文件复制到电脑的文件夹中，使用Shell函数注册DTP控件。
第4行代码，错误处理语句，用于忽略复制文件时可能出现的错误。因为如果电脑文件夹中已存在MSCOMCT2.OCX文件，使用FileCopy方法复制时会发生错误，如图所示。

   第7行代码，使用FileCopy方法复制MSCOMCT2.OCX文件到电脑中。
   FileCopy方法的语法如下：
FileCopy source, destination
   参数Source是必需的，字符串表达式，用来表示要被复制的文件名。
   参数destination是必需的，字符串表达式，用来指定要复制的目的文件名。
   第8行代码，使用Shell函数注册DTP控件。
   Shell函数执行一个可执行文件，语法如下：
Shell(pathname[,windowstyle])
   参数pathname是必需的，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
   参数windowstyle是可选的，表示在程序运行时窗口的样式。windowstyle参数值如表格所示。

运行程序前应确保在工作簿同一目录中存在MSCOMCT2.OCX文件。此代码相当于在“运行”对话框中键入“regsvr32 C:\ Windows\system32\MSCOMCT2.OCX”后进行注册，只是在“REGSVR32”后加上了s参数，使注册成功后不会出现提示对话框。
可以使用程序代码卸载该控件，代码如下：

#001 Sub regsvru()
#002 Shell "REGSVR32 /u " & ThisWorkbook.Path & "\MSCOMCT2.OCX"
#003 End Sub

复制代码

代码解析：
Regsvru过程使用Shell函数注册DTP控件，在pathname参数“REGSVR32”后加上u参数，对DTP控件进行反注册。

ZHM5420 · 发表于 2009-4-12 14:58

非常感谢，在这里看到了我很多需要解决的问题，一册在手，困难不求人。

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

始终都要感谢版主

非常感谢版主

第8部分控件与用户窗体

VBA常用技巧代码解析

始终都要感谢版主

非常感谢版主

第8部分 控件与用户窗体

第8部分控件与用户窗体