Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Login to intranet and download excel file using vba
Hi,
I have company wiki which contains some attachment in it. So first I need to login to the wiki and then download the excel file. I have tried this: Dim strValue As String Dim myValue As Variant Dim myHTMLElement As IHTMLElement Dim myHTMLElement1 As IHTMLElement strValue = "http://...wiki/" On Error GoTo err_clear myBrowser.Visible = True myBrowser.navigate strValue Do DoEvents Loop Until myBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = myBrowser.document ' Load all the details to the login page HTMLDoc.all.Item("os_username").Value = "username" myValue = InputBox("Password for your account:") If myValue = "" Then Application.Quit HTMLDoc.all.Item("os_password").Value = myValue 'Finds the login button and proceeds the click event For Each myHTMLElement In HTMLDoc.getElementsByTagName("input") If myHTMLElement.ID = "loginButton" Then myHTMLElement.Click Do While myBrowser.Busy: DoEvents: Loop Do Until myBrowser.readyState = READYSTATE_COMPLETE: DoEvents: Loop Workbooks.Open ("http://...wiki/download/List.xls") Exit For End If Next err_clear: If Err < 0 Then MsgBox Err.Description Err.Clear Exit Sub End If When I run the above code it just copies the login page my excel sheet. Could anyone suggest me what should be done? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Login to intranet and download excel file using vba
Google is your friend...
Check out using *URLDownloadToFile* -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. Is there any other way ? If I use *myHTMLElement.Click* instead of *Workbook.Open* then I get the download popup window from Internet explorer and clicking on save gives me the list I need but I need code to to all the work. Any help would be great. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Login into secure web site and download data into worksheet? | Excel Programming | |||
Intranet Excel File...Changing Name | Excel Worksheet Functions | |||
Open excel file from password protected Intranet site(IE) | Excel Programming | |||
Creating a User login Log file for an Excel workbook | Excel Programming | |||
Intranet Link to excel file | Excel Programming |