保存到两个位置

Question

我在装有完整版 Windows 10 和 Office 365 的 Microsoft Surface pro 3 上安装了 Project 2016。

我遵循了http://answers.microsoft.com/en-us/office/forum/office_2010-project/can-you-set-up-a-ms-project-file-to-automatically/68847860-3c47-49d5-a4a8-06124dd63196 的指示。它基于旧版本的 Project。

它保存到第二个位置，但每次都崩溃并且不保存原始副本。

除了文件位置之外，我没有更改代码。我确实将 flag20 重命名为 yes（我需要做的就是重命名它吗？）

在这条线上崩溃

FileCloseEx Save:=pjDoNotSave, noauto:=True

这是程序：

Private Sub project_beforesave(ByVal pj As Project)
    Application.DisplayAlerts = False
    If ActiveProject.ProjectSummaryTask.Flag20 = False Then
        ActiveProject.ProjectSummaryTask.Flag20 = True
        ActiveProject.SaveAs Name:="c:\users\John\desktop\backuptest.mpp"
        FileCloseEx Save:=pjDoNotSave, noauto:=True 'Crashes here
    Else
        ActiveProject.ProjectSummaryTask.Flag20 = False
    End If
End Sub

我们在建筑工地使用平板电脑，让主管更新 Project 中的工作时间表。以前，所有文件都保存在服务器上，他将通过 VPN 访问它们。即使文件非常小，项目也通过 VPN 非常缓慢地打开文件。即使有良好的 4g 连接或 wifi。

我一直在尝试找到一种方法将文件保留在平板电脑上，但在保存后立即与服务器同步。

Answer 1

换行：

FileCloseEx Save:=pjDoNotSave, noauto:=True

与：

prjApp.FileCloseEx pjDoNotSave, True

在你声明一个变量并设置为New MsProject,Application之后

以下代码适用于我在 PC 上完成的测试：

Private Sub Project_BeforeClose(ByVal pj As Project)

Dim prjApp          As MSProject.Application
Set prjApp = New MSProject.Application

Application.DisplayAlerts = False
If ActiveProject.ProjectSummaryTask.Flag20 = False Then
    ActiveProject.ProjectSummaryTask.Flag20 = True
    ActiveProject.SaveAs Name:="c:\users\John\desktop\backuptest.mpp"
    prjApp.FileCloseEx pjDoNotSave, True
Else
    ActiveProject.ProjectSummaryTask.Flag20 = False
End If

End Sub