Private Sub CommandButton1_Click() FileCopy ThisWorkbook.Path & "\MSCOMCT2.OCX", "c:\windows\system32\MSCOMCT2.OCX" End Sub 以上代码是把【mscomct2.ocx】文件复制到【c:\windows\system32】这个文件夹下面 可是我们要使用这个控件时就要手工点开始--运行,输入【regsvr32 mscomct2.ocx】来注册一下,能不能写一段VBA代码,点一下按钮,复制后自动运行【regsvr32 mscomct2.ocx】这个注册过程呢?请高手赐教!!谢谢!!
Shell "regsvr32 c:\windows\system32\MSCOMCT2.OCX"
|