首页 > 解决方案 > Excel 值不会在特定 PC 上更新

问题描述

我有一个工作簿,其中包含指向其他 4 个文件的链接。为了更新我写的值如下:

它工作完美 - 除非我在一台特定的 PC 上运行它,否则值会正确更新。我检查了 excel 版本并确保所有 Windows 更新都已运行。任何想法(或不同的方法)将不胜感激。

Sub Refresh()

    Application.ScreenUpdating = False
    Dim wb As Workbook
    Set wb = Workbooks.Open("\\C:\folder\file1.CSV")
    Workbooks.Open ("\\C:\folder\file2.CSV")
    Workbooks.Open ("\\C:\folder\file3.CSV")
    Workbooks.Open ("\\C:\folder\file4.xlsx")
    ThisWorkbook.Activate
    ActiveWorkbook.RefreshAll
    Windows("File1.CSV").Close SaveChanges:=False
    Windows("File2.CSV").Close SaveChanges:=False
    Windows("File3.CSV").Close SaveChanges:=False
    Windows("File4.xlsx").Close SaveChanges:=False
End Sub

标签: excelexcel-formula

解决方案


推荐阅读