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

解决方案 »

  1.   

    不是写着吗,注册控件啊
    OCX文件就是一些控件
    软件里面有用到这些控件
      

  2.   

    ctlbar32.ocx
    CTLBAR控件是一个可包含icos和bitmaps(用于背影)图象的卷轴式菜单。
    CTLBAR控件提供一系列的列表栏(LISTBAR),每个列表栏(LISTBAR)可添加多达32000个列表条(LIST ITEM)。MSCOMCT2.OCX
    microsoft windows common controls-2 6.0 (sp6)
    提供Animation控件、UpDown控件、MonthView控件、DTPicker控件和FlatScrollBar控件。