如何清除网络读取文件内容的缓存，求教

cs423

Sub yz()
    Dim URL
    URL = "http://********.com/yz.txt"         
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", URL, False                  
        .Send
        tt = .ResponseText
        Debug.Print tt
        End With
End Sub
_____________________________
yz.txt内容是123
第一次运行后tt=123随后把yz.txt内容改为12
再次运行，tt仍然显示123
我想是程序直接读取的缓存内容，那么怎么清除缓存内容呢

liucqa

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Sub test()
    Dim nUrl As String, localFilename As String, lngRetVal As Long

    nUrl = "http://www.baidu.com/img/baidu_logo.gif"                                                    '要下载的文件链接
    localFilename = ThisWorkbook.Path & Application.PathSeparator & "myimg.gif"           '保存到本地的完整路径

    DeleteUrlCacheEntry nUrl    '清除缓存   

liucqa

http://club.excelhome.net/forum. ... 608&pid=6143196

2楼

kangatang

             .setRequestHeader "If-Modified-Since", "0"

lwqlwql

             .setRequestHeader "If-Modified-Since", "0"

lwqlwql

Sub 选区取4546

飞天鬼怪

可以在open语句之后使用setRequestHeader 就不会出现更新之后无法获取最新数据的情况
Sub yz()
    Dim URL
    URL = "http://********.com/yz.txt"         
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", URL, False   
      .setRequestHeader "if-Modified-Since", "0"               
        .Send
        tt = .ResponseText
        Debug.Print tt
        End With
End Sub