已发布软件重启后Excel文件自动回滚至旧版本问题求助

问题根源 #

你的软件大概率是通过ClickOnce或类似部署工具发布的，这类工具会维护应用程序的本地缓存，并在启动时自动同步安装包内的原始数据文件到指定目录。你把更新后的Excel文件存在C:\Users\Public\Documents\，该目录可能被部署机制判定为需要同步的区域，导致重启时用安装包内10/22/2023的旧文件覆盖你更新后的版本。关闭新版本检查没用，因为这是数据文件的同步逻辑，而非应用程序版本更新。

解决步骤 #

1. 更换文件存储目录 #

将更新后的Excel文件移到应用程序专属私有数据目录，这个目录不会被部署工具监控和覆盖。在VB.NET中可以通过以下方式获取该路径：

' 获取应用程序私有数据目录
Dim targetDir As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "YourAppName_ExcelFiles")
' 确保目录存在，不存在则创建
If Not Directory.Exists(targetDir) Then
    Directory.CreateDirectory(targetDir)
End If

替换原代码中所有C:\Users\Public\Documents\为这个targetDir路径。

2. 修正更新代码的冗余问题 #

原代码中对oBook的重复赋值是冗余且可能引发对象引用问题，优化后的代码如下（同时添加COM对象释放逻辑，避免Excel进程残留）：

Dim oExcel As Object = CreateObject("Excel.Application")
oExcel.DisplayAlerts = False

Try
    Dim targetDir As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "YourAppName_ExcelFiles")
    If Not Directory.Exists(targetDir) Then
        Directory.CreateDirectory(targetDir)
    End If

    ' 删除目录内旧文件（按需保留）
    For Each filePath As String In Directory.GetFiles(targetDir)
        File.Delete(filePath)
    Next

    ' 从SharePoint获取文件并保存到私有目录
    Dim oBook As Object = oExcel.Workbooks.Open("https://test.sharepoint.com/:x:/r/sites/TEST/TestA.xlsx")
    oBook.SaveAs(Path.Combine(targetDir, "TestA.xlsx"))
    oBook.Close()
Finally
    oExcel.DisplayAlerts = True
    oExcel.Quit()
    ' 释放COM对象，防止Excel进程驻留
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
End Try

3. 调整部署设置（针对ClickOnce） #

• 打开项目属性→发布→应用程序文件，找到自带的Excel文件，将它们的“发布状态”改为排除，避免ClickOnce将其纳入同步范围。
• 同时修改项目中这些Excel文件的“复制到输出目录”设置为不复制，后续首次启动软件时，从安装目录手动复制一份到私有数据目录（仅首次启动执行），之后所有操作都基于私有目录的文件。

4. 检查软件启动逻辑 #

如果你的软件启动时存在“从安装目录复制Excel文件到公共文档”的代码，立即修改该逻辑：仅当私有数据目录中没有对应文件时，才执行复制操作，否则直接读取私有目录的文件。

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