View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
GS[_6_] GS[_6_] is offline
external usenet poster
 
Posts: 1,182
Default Login to intranet and download excel file using vba

Thanks for your suggestion.

I tried "URLDownloadToFile", but it doesn't give me the desired result. It
downloads the login page and stores it to the sheet.


If your file is stored on the web then that file should be downloaded to the
folder you specify, after which you can open it in Excel...

Sub UrlDownload()
' Downloads a specified file from a specified URL folder,
' to a folder of a specified path.
' **This is IE dependant and writes to the IE cache!
Const sSrc$ = "UrlDownload"

Dim sSrcFile$, sTgtFile$, n&

'Download the file
sSrcFile = "http://...wiki/download/List.xls"
sTgtFile = ThisWorkbook.Path & "\List.xls"
On Error Resume Next
n = URLDownloadToFile(0, sSrcFile, sTgtFile, 1, 0)

'Open the file
Workbooks.Open sTgtFile
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion