求助，vba需要增加一行代码,不知怎么写

国锋

我正常从WPS云盘打开文件，因为打开的速度比较慢，所以在打开文件时，同时也从云端下载下来更新了。但当我前端用vba打开WPS云盘上的文件时，因为打开的速度比较快，云端的文件没有被下载下来，就把数据写入并关闭了，这样就没有办法做到同步更新了。求助下,我想在打开WPS云盘上的工作簿之前,先下载或者更新文件,但不知怎么写代码,希望高手能帮助帮助,谢谢.




Sub 打开文件并操作()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

''需要在这里增加一行代码，用于下载更新文件的

Workbooks.Open filename:="C:\Users\Administrator\Documents\WPS Cloud Files\测试2.xlsx"
ActiveWorkbook.Sheets(1).Range("a12") = "666"

ActiveWorkbook.Save
ActiveWorkbook.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

vbee

等待18秒
Application.Wait (Now + TimeValue("00:00:18"))
DoEvents

国锋

vbee 发表于 2023-3-4 13:00
等待18秒
Application.Wait (Now + TimeValue("00:00:18"))
DoEvents

我试了试，行不通，要是18秒内执行完可以，但现在是等待18秒，行不通

国锋

我在网上找到了一段代码，已经可以下载文件了，但URL网址，每次下载都变动，所以导致每次下载都是同一个内容的文件，而不是最新的文件，有办法固定URL网址吗？

以下是下载的代码


Private Declare PtrSafe 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 '申明API

Sub downlaod()
    URLDownloadToFile 0, "https://weboffice.ks3-cn-beijing.ksyun.com/tmp/exportfiles/219932587567/ce7fdd354ed940676143b327e5b1e23b?Expires=1677931241&KSSAccessKeyId=AKLTzxVrVoSpSCudfbEDNDRSUQ&Signature=bcMAKYFThzytwJWvEZ1F%2F0lMez8%3D&response-content-disposition=attachment%3Bfilename%2A%3DUTF-8%27%27%25E6%25B5%258B%25E8%25AF%25952.xlsx", "d:\data\28.xlsx", 0, 0
End Sub