如何在PowerPoint VBA中调用当前模块外的函数？

1. 修正Slide10的代码位置错误 #

"Invalid Outside Procedure"错误的直接原因是你把调用语句直接写在了Slide10模块的过程外部（模块声明区）。VBA要求所有可执行代码必须放在Sub或Function过程内。

修改Slide10代码，将调用语句放入过程中，示例：

Sub ExecuteSave()
    data.save "2"
    ' 若模块未重命名为data，就写 Module1.save "2"
End Sub

你可以给幻灯片按钮绑定这个宏，或者在VBA编辑器中直接运行该Sub来执行保存操作。

2. 修复Module1的代码问题 #

你的Module1代码存在几个潜在问题，需同步修正：

• 未初始化fso变量，会导致运行时错误
• savePath未赋值，需指定有效存储路径
• 无需返回值的场景下，用Sub替代Function更合理

修改后的Module1代码：

Option Explicit
' 早期绑定需先引用「Microsoft Scripting Runtime」；后期绑定可跳过引用
Dim fso As FileSystemObject
Public savePath As String

Public Sub save(levelNumber As String)
    ' 初始化文件系统对象
    If fso Is Nothing Then
        Set fso = New FileSystemObject
        ' 后期绑定写法：Set fso = CreateObject("Scripting.FileSystemObject")
    End If
    
    ' 确保保存路径有效，替换为你实际需要的路径
    If savePath = "" Then
        savePath = "C:\Your\Target\Folder"
        ' 路径不存在则自动创建
        If Not fso.FolderExists(savePath) Then
            fso.CreateFolder savePath
        End If
    End If
    
    With fso.CreateTextFile(savePath & "\data.txt", True)
        .Write "<continueFromLevel>" & levelNumber & "</continueFromLevel>"
    End With
End Sub

3. 模块命名说明 #

你提到data实际就是Module1，若要直接用data.save调用，需修改模块名称：

1. 在VBA编辑器选中Module1
2. 按F4打开属性窗口，将「名称」改为data

完成后即可在Slide10的过程中用data.save "2"调用。

内容的提问来源于stack exchange，提问作者ColurMine