我正在尝试从网站导出Excel文件。我提供的路径已经单击导出文件,并打开提示询问我要如何处理文件。如何访问提示框以打开文件?
我已经尝试了在代码中打开google gif的路径,但是由于该路径并没有真正通往我的内容,因此无法使用该代码。我的目标是打开excel文件并将内容导出到我的主excel文件(包含宏的文件)。
我已经尝试过了,但这仅适用于直接链接到内容而不是保存提示的情况。
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
oXMLHTTP.send 'send request
'Wait for request to finish
Do While oXMLHTTP.readyState <> 4
DoEvents
Loop
oResp = oXMLHTTP.responseBody 'Returns the results as a byte array
'Create local file and save results to it
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF
'Clear memory
Set oXMLHTTP = Nothing
End Function
如果路径是Web内容本身,则此方法有效。我需要从启动文件下载的路径进行工作。谢谢!