自动注册控件

mcy318 · 发表于 2007-5-5 11:30

Private Sub Workbook_Open()
regsvr32 ActiveWorkbook.Path & "\MSCOMCTL.OCX"
End Sub
这样写错在何处？

TGB · 发表于 2007-5-5 11:39

这样写看呢？
Private Sub Workbook_Open()
Shell "regsvr32 " & ActiveWorkbook.Path & "\MSCOMCTL.OCX"
End Sub

yuanzhuping · 发表于 2007-5-5 11:41

GjTMAz7I.rar (331.33 KB, 下载次数: 1422)

控件的注册，参考。

ccwan · 发表于 2007-5-5 11:50

建立一个批处理文件，如：注册.bat

内容为：regsvr32 %1

将dll文件拖到注册.bat这个文件上，点击确定就可以注册了。

反注册用代码：regsvr32 /u %1

这样简单一点。

mcy318 · 发表于 2007-5-5 13:11

方法是可以，但如果有多个要注册那代码又如何写难道要写重复的多句？

mcy318 · 发表于 2007-5-5 13:12

QUOTE:

以下是引用ccwan在2007-5-5 11:50:00的发言：

建立一个批处理文件，如：注册.bat

内容为：regsvr32 %1

将dll文件拖到注册.bat这个文件上，点击确定就可以注册了。

反注册用代码：regsvr32 /u %1

这样简单一点。

建批处理当然可以，但你还得去点这个文件来执行，如果直接写入EXCEL源程序中就不用点了，只要你一运行就自动注册了。方便

ccwan · 发表于 2007-5-5 13:48

只是提个建议，没想到这么多人反对，呵呵。

re mcy318：

无论有多少个控件，都可以在不必知道（或书写）控件名称的情况下进行注册，不必写重复的代码。

说句顶撞的话，我要是把写好的批处理加到启动项里，那开机的时候就自动注册了，岂不是更省事？

mcy318 · 发表于 2007-5-5 14:14

内容为：regsvr32 %1 请教：%1就是所有的控件？不用指定路径的？

反注册用代码：regsvr32 /u %1

ccwan · 发表于 2007-5-5 14:31

QUOTE:

以下是引用mcy318在2007-5-5 14:14:11的发言：

内容为：regsvr32 %1 请教：%1就是所有的控件？不用指定路径的？

不是的，当只有一个控件时，这个控件就是那个%1

而当控件很多时，一般要用到for的循环。

例如：假设有VBACodeStrip.dll，VBASearch.dll，AutoBackUp.dll，IndentCodeVB.dll这4个控件，在"D:\VBA\控件"文件夹下，用批处理代码

for /f %%i in ('dir/b D:\VBA\控件\*.dll') do regsvr32 %%i

就可以了。

如果路径中有空格，要加上引号。

mcy318 · 发表于 2007-5-5 14:50

for /f %%i in ('dir/b D:\VBA\控件\*.dll') do regsvr32 %%i

如何理解？

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