在使用E立方管理平台过程中，如果模板用到的VBA代码产生错误，那么打开模板的时候会卡死，应该怎么办呢？

• 怎样用E立方管理平台做管理软件？
• 请教高手VBA代码出错在哪？
• 初始化 vba 库（40040）出错
• 我想问用VBA打开PPT模板(POTX)的时候，用VBA获得这个模板的文件路径。

怎样用E立方管理平台做管理软件？

选择一两位比较熟悉企业管理流程的员工参加E立方使用培训，分别整理需要实施的常用Excel表单及其管理流程，将Excel表单导入E立方，进行模板的设置，即可运行使用。将各个部门的表单模板按照企业流程管理逻辑关系有机连接在一起，就是完整的企业管理信息系统。

请教高手VBA代码出错在哪？

让我来告诉你答案!Forc=160To121这一句有问题

如果增量为1，Forc=121To160

如果增量为-1，Forc=160To121step-1

初始化 vba 库（40040）出错

把你的文件或代码发上来，这样讲没办法知道你错哪了。

我想问用VBA打开PPT模板(POTX)的时候，用VBA获得这个模板的文件路径。

Hi,

以下代码通过调用 PPT 的打开文件对话框并结合筛选器 *.potx 可以成功获取模板路径：

Public Sub GetTemplatePath()

    Dim fd As FileDialog

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd

        With .Filters

            .Clear

            .Add "PowerPoint Template", "*.potx"

        End With

        If .Show = -1 Then

            MsgBox .SelectedItems(1)

        End If

    End With

    Set fd = Nothing

End Sub

运行效果：