http://club.excelhome.net/thread-577159-1-1.html
在这个帖子,下面语句如下。
请问:各位大侠的问题,ctlbar32.ocx,MSCOMCT2.OCX有什么用处。
Public Sub zcqq()
Dim SourceFile, DestinationFile
SourceFile = ThisWorkbook.Path & "\注册控件\ctlbar32.ocx" ' 指定源文件名。
DestinationFile = "c:\windows\system32\ctlbar32.ocx" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中
Shell "regsvr32 " & DestinationFile, vbHide '注册控件
'MsgBox "如果显示注册成功的信息,该文件你可以可删除."
'Application.Quit
End Sub
Public Sub zcrq()
Dim SourceFile, DestinationFile
SourceFile = ThisWorkbook.Path & "\注册控件\MSCOMCT2.OCX" ' 指定源文件名。
DestinationFile = "c:\windows\system32\MSCOMCT2.OCX" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中
Shell "regsvr32 " & DestinationFile, vbHide '注册控件
End Sub