VBA下载并保存在C：\用户
我想用excel，使用VBA，从互联网下载文件。 该文件是一个包含关于员工列表的信息的数据库。 我想把文件保存在C：\ Users \“用户名”\ FCMMIS \
这是我想要实现的一步一步的过程：
- Excel使用VBA，从指定的url下载文件。
- * 下载的文件保存在C：\ Users \“用户名”\ FCMMIS *
- Excel通过VBA与下载的数据库链接以获取可能需要的数据。
另外需要注意的是，有问题的excel文件将被不同的笔记本用户使用。 我不确定是否可以将文件保存在“用户”文件夹中，或者是否需要授予权限才能保存。
我知道有更好的解决scheme，像写一个完整的应用程序，但由于要求，我坚持与Excel和VBA。
编辑（与第3部分一起完成后）：
3.1：一旦数据库被下载，然后excel文件从雇员表中获取logging，并将其打印在同一个excel文件中的新工作表中。
3.2：打印的数据然后用于工作表中的各种function。
然而，我正在辩论是否仅仅操纵数据库本身的数据或从创build的工作表中运行数据是非常有效的。
以下代码来自Matt Vidas的一篇文章
等待你对第三点的回答，没有范围？
Function Download_File(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 Sub Testing() Download_File "http://example.org/yourDataBaseFile", "C:\Users\" & Environ("username") & "\yourDataBaseFile" End Sub 如果有问题的文件是一个Excel工作簿，你可以这样做：
With Workbooks.Open("http://example.org/yourfile.xls") .SaveAs "C:\Users\example\yourfile.xls" .Close End With