紧急求助在一个表中做个按钮 打开另一个表格 再运行这个文件中两个模块

lj1226189

IW Pricing Tool v45.zip (1.73 MB, 下载次数: 18)

2025-12-11 05:36 上传

点击文件名下载附件

这个文件中有两个按钮 一个橙色 一个蓝色


我想实现的是我在另一个excel 做一个按钮 点击按钮后打开同目录下另一个文件（我发的附件） 然后点击哪个文件上面的哪个按钮（或者分别运行这两个按钮对应的模块 然后再保存 并关闭这个文件！

谢谢大家了!

liulang0808

APPLICATION.RUN
看看这个是否可行

lj1226189

liulang0808 发表于 2025-12-11 08:11
APPLICATION.RUN
看看这个是否可行

你好可以加个V lj1226009

华发少年

仅为你提供一个解决问题的思路，供参考
新建文件夹.rar (1.73 MB, 下载次数: 7)

2025-12-11 09:30 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()  '//2025.12.11
   
2.     Dim wb As Workbook
   
3.     On Error GoTo CleanUp
   
4.     Application.ScreenUpdating = False
   
5.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\IW Pricing Tool v45.xlsm")
   
6.     Application.Run wb.Name & "!Sheet1.Copy_Account_Info"
   
7.     Application.Run wb.Name & "!Sheet1.Reset"
   
8.     wb.Close True
   
9. CleanUp:
   
10.     If Not wb Is Nothing Then On Error Resume Next: wb.Close False: Set wb = Nothing
    
11.     Application.ScreenUpdating = True
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

ynzsvt

我的建议是在快捷访问工具栏建立两个宏代码的按钮，然后另存为加载宏使用。

ynzsvt

左上角有两个宏按钮的样子，自己可以改图片。

lss001

Sub 运行指定宏()
    Dim wk As Workbook
   
    Set wk = Workbooks.Open(ThisWorkbook.Path & "\IW Pricing Tool v45.xlsm") '打开文件
    '特别注意：文件名应加上单引号''
    Application.Run "'" & wk.Name & "'!Sheet1.Copy_Account_Info" '运行Copy_Account_Info
    Application.Run "'" & wk.Name & "'!Sheet1.Reset" '运行宏Reset
    wk.Close True '关闭并保存

    Set wk = Nothing
    MsgBox "运行并保存完成！"
End Sub

lj1226189

谢谢各位大佬！