如何将宏全部保存到一个xlsm中,其他文件保持为xlsx

jsjcjsjc · 发表于 2023-4-22 15:24

比如下面的宏,我想保存到"宏.xlsm"中,在其他excel中插入按钮调用,但是点击按钮后似乎不行哈,除非内容在"宏.xlsm"中,或者将宏保持到使用的excel中

有办法吗? 感谢

Sub 数据分析()
Dim wb As Workbook
Dim wsCurrent As Worksheet, wsAnalyse As Worksheet
Dim pvtCache As PivotCache
Dim pvtTable As PivotTable
' 设置相关对象
Set wb = ThisWorkbook
Set wsCurrent = ActiveSheet
' 检查是否存在名为 "analyse" 的工作表
On Error Resume Next
Set wsAnalyse = wb.Worksheets("analyse")
If Not wsAnalyse Is Nothing Then
Application.DisplayAlerts = False
wsAnalyse.Delete
Application.DisplayAlerts = True
End If
On Error GoTo 0
' 创建新的 "analyse" 工作表
Set wsAnalyse = wb.Worksheets.Add
wsAnalyse.Name = "analyse"
' 创建数据透析缓存
Set pvtCache = wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=wsCurrent.UsedRange)
' 在新工作表创建透析项
Set pvtTable = pvtCache.CreatePivotTable(TableDestination:=wsAnalyse.Range("A3"), TableName:="PivotTable1")
' 设置行字段，列字段和值字段
With pvtTable
With .PivotFields(wsCurrent.Cells(1, 5).Value) '取 E 列的列头名称作为行字段
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields(wsCurrent.Cells(1, 6).Value) '取 F 列的列头名称作为值字段
.Orientation = xlDataField
.Function = xlSum
.Position = 1
End With
With .PivotFields(wsCurrent.Cells(1, 7).Value) '取 G 列的列头名称作为值字段
.Orientation = xlDataField
.Function = xlSum
.Position = 2
End With
End With
End Sub

复制代码

excel玉米 · 发表于 2023-4-22 18:48

保存为加载宏即可

jsjcjsjc · 发表于 2023-4-22 22:27

excel玉米发表于 2023-4-22 18:48
保存为加载宏即可

可以细说吗,加载后不知道咋整了

excel玉米 · 发表于 2023-4-23 09:25

在加载宏的文件里，thisworkbook模块里创建workbook_open代码，代码里写入增加菜单的代码，将菜单连接到你写的数据分析代码

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

[求助] 如何将宏全部保存到一个xlsm中,其他文件保持为xlsx