VBA代码移植问题

[cuiyue4420]

我在一个Excel表中写的VBA代码或者说是程序,怎样在别的Excel表中使用,是否非要用组件?

[arden1019]

另存为xla，添加到你的office目录的library下。然后在excel中使用加载宏

[cuiyue4420]

楼上的大哥，我的代码是在点击一个按钮执行的，保存xla的时候只能在
Excel窗口中，而不是在VB的界面中，用别的Excel文件加此宏时没有反应啊！

[icansaymyabc]

别的Excel文件加此宏时虽然没有反应！但是你如在菜单中选择“工具”-〉“宏”-〉“宏”或按 Alt-F8 你就会看到多了很多宏，你选择需要的宏运行它即可。

[cuiyue4420]

我的代码根本没有保存成宏,只是保存了一个1.xla文件,放在了OFFICE里面的libary,但是我加载这个宏(1.xla,选择复选框,点确定),没有做任何事啊(我的代码是在C盘创建一个EXCEL文档)

[大羽飞鹤]

我在学习

[lovevba]

你的问题不是很清楚？
如果想在EXCEL中，直接运行， 是可以的，按一楼的做法，在EXCEL界面中加入一个按钮（法方是，自定义—命令—宏—添加自定义按钮，）将按钮拖到工具栏中，右击“指定宏...”，找到你的宏。就行了。
不知你的VB界面是在VBA中做的吗？

[arden1019]

也许你的xla可以多些功能，比如在excel打开时候自动添加一个按钮，并让它指向你的宏程序入口。

[cuiyue4420]

ding

[cuiyue4420]

ding

[arden1019]

在你的1.xla中的thisworkbook中添加这样的函数：
Private Sub Workbook_AddinInstall()
在函数体中可以添加一个按钮、菜单什么的操作，将按钮或菜单指向你的宏的主函数。

这样在加载宏后，就可以得到一个可以运行此宏的方法

[arden1019]

Const APPNAME As String = "尺寸五金表"

Private Sub Workbook_AddinInstall()
'调用CreateMenu添加菜单
CreateMenu
MsgBox "已经生成菜单至:工具--五金尺寸表"
End Sub

Private Sub Workbook_AddinUninstall()
'调用DeleteMenu移除菜单
DeleteMenu
MsgBox "已经移除菜单:工具--五金尺寸表"
End Sub

Sub DeleteMenu()
Dim XLCommandBar As String
Dim XLMenu As String
Dim XLMenuItem As String
Dim NewMenuItem As String

XLCommandBar = "Worksheet Menu Bar"
XLMenuItem = ""
NewMenuItem = APPNAME & "..."
XLMenu = Application.CommandBars(XLCommandBar).FindControl(msoControlPopup, 30007).Caption
On Error Resume Next
Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls(NewMenuItem).Delete
Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(NewMenuItem).Delete
End Sub
Sub CreateMenu()

Dim NewItem As CommandBarButton
Dim XLCommandBar As String
Dim XLMenu As String
Dim XLMenuItem As String
Dim NewMenuItem As String
XLCommandBar = "Worksheet Menu Bar"
XLMenu = Application.CommandBars(XLCommandBar).FindControl(msoControlPopup, 30007).Caption '我不敢确定30007这个ID总是ok
XLMenuItem = ""
NewMenuItem = APPNAME & "..."

On Error Resume Next
Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls(NewMenuItem).Delete
Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(NewMenuItem).Delete
On Error GoTo 0
If XLMenuItem = "" Then
Set NewItem = Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls.Add
Else
Set NewItem = Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls.Add
End If
With NewItem
.Caption = NewMenuItem
.OnAction = "mainsub" '新菜单触发的过程名
.FaceId = 0
.BeginGroup = True
End With
Exit Sub

If Err <> 0 Then
MsgBox "菜单创建错误,请重新尝试", vbInformation, "提示"
End If
End Sub
上面是我写的一个宏里面的thisworkbook，它添加了菜单。你可以参考一下：
看看这一句：.OnAction = "mainsub" '新菜单触发的过程名
mainsub 是我的程序的主函数。