打开一个工作簿，运行另一个工作簿的宏

我要注册

求助：打开一个启用宏的工作簿A，在工作簿A中点击控件再打开一个无宏的普通工作簿B，同时运行工作簿A中的某宏（此宏控制工作簿B的运行）。

已上传附件，举列是点击自动，打开表一，将表一的数据排序，宏在总表里。

3190496160

代写在A工作薄中，通过代码操作B工作簿，这是常规的用法呀

我要注册

3190496160 发表于 2024-6-29 09:59
代写在A工作薄中，通过代码操作B工作簿，这是常规的用法呀

A相当于总表，B后面还有多张表，做在一个工作簿打开文件太大运行慢，故将此分为若干不带宏的表，让A表分别去执行“不带宏"的B、C、D等表。

3190496160

我要注册 发表于 2024-6-29 10:08
A相当于总表，B后面还有多张表，做在一个工作簿打开文件太大运行慢，故将此分为若干不带宏的表，让A表分 ...

上传你的附件，具体描述你的真正意图，不要让别人去猜来猜去

静听溪流

感觉你需要的是加载宏功能
可以自行百度加载宏  看看是不是你需要的

我要注册

3190496160 发表于 2024-6-29 10:18
上传你的附件，具体描述你的真正意图，不要让别人去猜来猜去

已上传附件，谢谢！

我要注册

静听溪流 发表于 2024-6-29 12:01
感觉你需要的是加载宏功能
可以自行百度加载宏  看看是不是你需要的

百度搜过没能实现。
我知道打开两个工作簿，让宏处于编辑状态，无宏工作簿处于顶层上时，点击该编辑状态的宏可以执行无宏这个工作簿，但打开工作簿后，光标会停留在无宏这个工作簿，执行不了宏。想在打开时就运行，另一个宏。

3190496160

Sub 批量排序()
Application.ScreenUpdating = False
Dim folderPath As String
Dim wb As Workbook
folderPath = ThisWorkbook.path ' 请将这里的路径替换为实际工作簿所在的文件夹路径
f = Dir(folderPath & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(folderPath & "\" & f)
        With wb.Worksheets(1)
            r = .Cells(Rows.Count, 2).End(xlUp).Row
            .Range("a2:i" & r).Sort .[i2], 2, , , , , , 1 '第一个数据，表示升序还是降序，1为升序，2为降序，第二个数据表示标题行数
        End With
        wb.Close True
    End If
f = Dir
Loop
Set wb = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

数据.rar (91.79 KB, 下载次数: 12)

2024-6-29 13:31 上传

点击文件名下载附件