再贴一个从ftp下文件的吧。
这个是从google里边学到的。可以用vba从网络上下载文件到本地。
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
Function DownloadFilefromWeb(sUrl As String, sPath As String, sFile As String)
DownloadFilefromWeb = URLDownloadToFile(0, sUrl, sPath & sFile, 0, 0)
End Function
有了这个以后,问题来了,国外很多公司的防火墙都很严密,ftp的端口是封掉的,所以没有办法通过ftp来下载文件。但是可以通过打开网页,
ftp://user:passwrod@domain.com/a.xls 来下载文件。这里就可以用这段代码来进行下载。这里还有个地方就是要建一 webBrowser的控件,然后navigate到那个网址. 并保存. 这样的话下次打开工作表, 这段代码才能工作, 否则的话会失败. 不知道具体原因, 但是估计是Excel调用IE的时候会初始化一些东西.
Sheets(1).WebBrowser1.Navigate strURL