VBA常用技巧代码解析

zwbxwy

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

刀尖上跳舞

谢谢楼主的耐心与细心

刀尖上跳舞

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

刀尖上跳舞

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

hightree2005

太好的东西了。谢谢

ykx042907

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

nzhyj

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

nowarmy

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

yuanzhuping

技巧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中可以使用程序代码进行自动注册，代码如下：

1. #001  Sub regsvrs()
   
2. #002      Dim SouFile As String
   
3. #003      Dim DesFile As String
   
4. #004      On Error Resume Next
   
5. #005      SouFile = ThisWorkbook.Path & "\MSCOMCT2.OCX"
   
6. #006      DesFile = "c:\Windows\system32\MSCOMCT2.OCX"
   
7. #007      FileCopy SouFile, DesFile
   
8. #008      Shell "regsvr32 /s" & DesFile
   
9. #009      MsgBox "DTP控件已成功注册，现在可以使用了!"
   
10. #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参数，使注册成功后不会出现提示对话框。
       可以使用程序代码卸载该控件，代码如下：

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

复制代码

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

ZHM5420

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