VBA读取SharePoint CSV无法获取最新版本问题求助

你遇到的是系统/Office缓存SharePoint文件导致的问题，直接用Workbooks.Open会优先读取缓存副本，而非最新文件。以下是几种可行的解决方法：

方法1：添加随机参数绕过缓存 #

在CSV的URL末尾拼接动态参数（比如时间戳），让每次请求的地址都不一样，强制获取最新文件：

Dim ws As Worksheet
Dim spwb As Workbook
Dim SharePointPath As String

Application.DisplayAlerts = False
Set ws = ThisWorkbook.Worksheets("Input")
ws.Cells.Clear

' 添加时间戳参数避免缓存
SharePointPath = "https://sharepoint.com/sites/.../Board_Reporting_database_data.csv?ts=" & Timer
Set spwb = Application.Workbooks.Open(SharePointPath)

' 这里添加复制数据到ws的代码...

spwb.Close SaveChanges:=False
Application.DisplayAlerts = True

Timer函数返回当前时间的秒数，每次运行都会生成不同的参数，彻底绕开缓存机制。

方法2：下载到本地临时文件再读取 #

通过HTTP请求直接下载文件内容到本地临时目录，完全绕开SharePoint缓存，是最可靠的方案：

Dim ws As Worksheet
Dim spwb As Workbook
Dim SharePointPath As String
Dim tempPath As String
Dim http As Object

Application.DisplayAlerts = False
Set ws = ThisWorkbook.Worksheets("Input")
ws.Cells.Clear

SharePointPath = "https://sharepoint.com/sites/.../Board_Reporting_database_data.csv"
tempPath = Environ("TEMP") & "\temp_report_data.csv"

' 下载最新文件
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", SharePointPath, False
http.Send

' 写入临时文件
Open tempPath For Binary As #1
Put #1, , http.responseBody
Close #1

' 打开本地文件
Set spwb = Application.Workbooks.Open(tempPath)

' 复制数据到Input工作表
spwb.Worksheets(1).UsedRange.Copy ws.Range("A1")

' 清理资源
spwb.Close SaveChanges:=False
Kill tempPath
Set http = Nothing
Application.DisplayAlerts = True

这种方法直接获取文件的最新二进制内容，完全不受缓存影响。

方法3：清除Office缓存 #

如果是Office自身的缓存问题，可以调用Office的缓存清理工具：

' 适配Office 2016/2019/365，路径根据版本调整
Shell "cmd /c ""%ProgramFiles%\Microsoft Office\root\Office16\OfficeC2RClient.exe"" /clearcache", vbHide
' 等待缓存清理完成（可选）
Application.Wait Now + TimeValue("00:00:05")

注意：不同Office版本的OfficeC2RClient.exe路径可能不同，比如Office 2013对应Office15目录。

额外优化建议 #

原代码中使用Select/Activate是不必要的，直接通过对象引用操作工作表更高效且不易出错，如上面示例中用Set ws = ThisWorkbook.Worksheets("Input")替代激活操作。

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