VBA - Go To Website And Download File From Save Prompt
May 24, 2013
How to save a file onto the computer using VBA. The code template below that I found on another forum seems promising, except when I go to the desktop to access it, the .csv file has what looks like the page's source code instead of the actual file I want. This may be because when I go to the url, it doesn't automatically download the file; rather, I am asked to save the file to a certain location (since I don't know the path name of the uploaded file on the site).
Is there any way to alter this code to accommodate this, or will I have to use a different code entirely?
VB:
Sub Test()
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim WHTTP As Object
[Code] .....
View 9 Replies
ADVERTISEMENT
Jul 6, 2012
I am trying to open a website, then for excel to download the csv file, then for it to save it in a specific folder under a specific name and file format (excel).
I am successful at opening the website with the following code, but how to do the rest.
Sub Searchez()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://quote.morningstar.ca/Quicktakes/stock/keyratios.aspx?t=clwr®ion=USA&culture=en-CA&ops=clear" 'load web page google.com
IE.Visible = True
While IE.Busy
DoEvents
Wend
'IE.Navigate2 "javascript:SRT_keystuts.exportcsv()"
'this is the name of the download link as from when i hover my pointer over download link.
End Sub
View 1 Replies
View Related
Jul 7, 2009
how can i use VBA tp download a file from a webpage? I've found the following that would display the source code of a webpage. I need to download a zip file and save it to the desktop.What alterations do I have to make?
Code:
Sub Downloadfile()
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Call objHttp.Open("GET", "http:\yahoo.com", False)
Call objHttp.Send("")
Call MsgBox(objHttp.ResponseText)
End Sub
View 9 Replies
View Related
Oct 6, 2012
Ticker = "ABC"
I have made a url
[URL] ......
And try to open it
Workbooks.Open(url)
But I get the error
Object does not support this property or method
I am trying to download an xls file, copy the data to a worksheet with the name "ticker" and then close the xls download file
View 3 Replies
View Related
Jan 28, 2010
I have a program operating in excel 2007 that extracts a picture from a URL and puts it into a PPT slide. I now discover that PPT 2007 doesn't allow this.
So my intent now is to download the jpg into a local file and then import into the PPT.
This is from a couple of sites:
[url]
[url]
At the top of the code:
Option Explicit
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
in the excel cell if a URL picture needs to be inserted it starts with the prefix "picture=" then the http address.
This did not work.
So I then copied the code from the websites into a module (changing the destination file and URL to mine of course) and called the procedure and still nothing.
View 7 Replies
View Related
May 21, 2014
How to download the zip file from internet explorer and save it into c: using VBA codes.
I have tried many codes from the internet but none of them are working. i am facing problem for the popup box. the macro which i have found was not supporting to it.
Please find the source data from my web page.
[Code] ....
View 3 Replies
View Related
Nov 19, 2003
I ran into a problem with the following code
Dim URL As String
URL = Worksheets("References & Resources").Range("URLMSL")
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate URL
IE.Visible = True
My problem is that on most of the workstations here, it will open internet explorer, then open the file in Excel. I just want it to Save the file.
View 9 Replies
View Related
Nov 19, 2003
problem with the following code
Dim URL As String
URL = Worksheets("References & Resources").Range("URLMSL")
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate URL
IE.Visible = True
My problem is that on most of the workstations here, it will open internet explorer, then open the file in Excel. I just want it to Save the file.
View 9 Replies
View Related
Dec 29, 2008
For a sheet that many non-expert users will use on different systems I need a macro that let's them save, print and send the results of their work. So I made a macro that makes a copy of only 1 sheet of the workbook and saves it with a given name to a given location. The problem is that I want a location prompt to ask the user where they want the file saved, while giving/suggesting them a fixed filename. A lot of different users will make and use their sheets so I need a certain naming policy to manage all the files. (date, location, etc)
View 4 Replies
View Related
Feb 19, 2014
Is it possible to automatically download and import a CSV sheet from a website url [URL]... ?
View 1 Replies
View Related
Jun 10, 2009
I am trying to prompt the user for the directory to be saved in and file name to be saved as; then save the workbook in the input directory with the inputted file name.
View 3 Replies
View Related
Feb 23, 2014
I have a requirement to download a lot of historical data files from the archieve of an website. The url goes something like this: [URL]....
This downloads file for 21022014 ie. 21-Feb-2014. I need to be able to have a facility to have a selection criteria on my user form (in excel) where I specify a date range and the macro automatically downloads all the valid excel files available within that date range (files for Saturday, Sunday and some holiday dates will not be available in the website archive database) one after the other (like at single clcik of button) into a specific location (predefined viz.. c:/Users/EOD files/) on my laptop. Best would be if I am able to select the save location run time by using a 'Browse' like feature where I go and choose my local laptop folder...same type when we try uploading a file from our laptop to the web..
View 1 Replies
View Related
Jan 10, 2007
Currently I have information that includes numerous distributors information on one sheet. The code below separates each distributors information into a new tab and a new workbook, names the workbook and saves it in the specified file path.
I am trying to figure out a way to use an InputBox to popup and ask the user where all the new workbooks will be saved at. Thus, avoiding the need to change the code each time you want the new workbooks saved in a different folder .....
View 9 Replies
View Related
Nov 12, 2008
I have been working on automating IE. Part of my task involves using explorer to download a file from a given url and save it to disk. I've figured out how to launch explorer and start the download, but then a dialogue box appears asking whether to save the file and where to save it. how do I automatically get past this and save the file to e.g "quotes.xls"?
View 7 Replies
View Related
Dec 10, 2004
I have an excel spreadsheet that when opened and closed prompts to save changes, even when no changes have been made.
The spreadsheet is a copy of another spreadsheet which has then been modified. The original spreadsheet doesn't have this quirk.
There are no 'links' in the spreadsheets. Which was my first thought.
View 9 Replies
View Related
Feb 11, 2005
I have a spreadsheet that has hyperlinks in it and is mostly protected to prevent changes. Is there a way to prevent the "save changes" dialog box from appearing when this file is closed as I have to make this file available to others and don't want them to get this message or make save any changes.
View 7 Replies
View Related
Jun 2, 2014
I have the following code that I want to download everyfile at the listed ftp site to a folder on my computer. I was thinking about trying to make a key with dates in thisworkbook sheet1 starting in cell A1 and have it loop through.
Code:
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
[Code].....
View 1 Replies
View Related
Oct 6, 2011
I'd like a macro that will:
Save my workbook
Then
Open the SaveAs box with the path already pointing to a specific directory and with the Name and file format already entered (.xls)
This is basically to save time navigating through our folder structure (which is a real mess). I don't want to automatically saveas the file as the target folder will change each month and the last part of the file name will chance (month). So I'd like a bit of flexibility rather than total automation.
View 3 Replies
View Related
Nov 14, 2006
Is there a code I can use, through a private command button, that will exit the Excel program (not just the current workbook) without asking to save?
View 3 Replies
View Related
Jul 7, 2008
I am setting up a "save as" macro that saves a file by replacing another file in a folder. Even though the macro has been recorded by approving the replacement (the prompt appears "the file --- already exists. Do you want to replace the existing file?"), when I run the macro, I am again prompted about replacing the file. Is it possible to avoid the prompt so the file is automatically saved by replacing the named file?
View 9 Replies
View Related
Aug 8, 2006
How can I download a .TXT file and don't lose the formatting?
I found an example:
Option Explicit
Private Declare Function InternetGetConnectedState Lib "wininet" ( _
ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodial Lib "wininet.dll" ( _
ByVal dwFlags As Long, _
ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" ( _
ByVal dwReserved As Long) As Long..........................
View 4 Replies
View Related
Feb 22, 2014
In a workbook, I use a macro to extract a sheet and save it as xls.
What code should I use to prompt the user to define the location and name of the new file to be saved?
View 1 Replies
View Related
Jun 4, 2008
Is it possible to open a template, prompt the user to enter data and have the template save itself as the user defined data?
View 5 Replies
View Related
May 12, 2014
I have an excel file which contains 9 columns. Column A contains an article number i.e 12345 . Column B contains name of the product. Columns C and D contain Description and Specifications respectively. Columns E,F,G,H and I contain URL:s of images.
I want to do following.
1. Download all the images in a folder on my harddisk.
2. Copy the text in column C and place it under the text in column D.
note that I am a novice at excel and have never used macros/Javascript/VBA/etc
View 2 Replies
View Related
Aug 13, 2008
have a link such as www.abc.se/downloadfile?file=12345. When opening this link in a browser the DownloadFile window popups and the file can be downloaded.
I would like to be able to download the file without involving the DownloadFile pop up (since some users have auto open enabled thus the downloadfile pop-up is not always shown)
I have tried URLDownloadToCacheFile and similiar methods but they fail as they dont have the direct link to the file.
So my question now is how can I extract the direct url?
There should be a way to capture it since it will be used in the downloadfile dialog.
View 9 Replies
View Related
Jun 29, 2006
complete the attached code (Excel VBA) to automatically process a File Download dialog from Internet Explorer. I want to click "Save" which will produce the "Save As" dialog. Then I need to enter a default filename like (C:Temp) and click "Save" again. When this is working, I will hide Internet Explorer to make the operation completely transparent to the user. The URL is a sample chosen specifically for this test case.
Public Sub Report_Test()
Dim objIE As SHDocVw.InternetExplorer
Dim strURL As String
Dim varItem As Variant
' Establish connection to the Internet Explorer application.
Set objIE = CreateObject("InternetExplorer.Application")
' Set Internet Explorer visible.
objIE.Visible = True
View 3 Replies
View Related
Apr 1, 2014
I am using this code to generate a text to a directory, but I would like to know how to call a save as prompt if the directory doesn't exist?
[Code] ..........
If the folder macro does not exist, then it will prompt a message saying that the folder macro cannot be found, and the save as prompt will appear.
View 3 Replies
View Related
May 29, 2013
I've recorded this code and am looking to include it in a button. I would like for when a user clicks the button assinged macro that the active sheet is cloned and saved as a CSV file. The user should be prompted before saving on where (file location) they'd like to save the file.
Sub CloneWorksheet()
'
' CloneWorksheet Macro
'
'
Sheets("SDW&Customer Workshop scheduled").Select
Sheets("SDW&Customer Workshop scheduled").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and Settings1167916My DocumentsTestBook1.csv", FileFormat:= _
xlCSV, CreateBackup:=False
End Sub
View 9 Replies
View Related
Dec 20, 2012
I'm trying to download an Excel file from the internet and then extract data out of it. The problem is that I don't get any errors, yet the file downloaded is only 1kb in size. The extraction bit works, but the file is empty. The actual file is size 350KB.
Code:
Sub ExtractDataTest()
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim WHTTP As Object
On Error Resume Next
[Code] ....
View 1 Replies
View Related
Dec 20, 2012
For some reason the following Macro won't work:
Code:
Sub ExtractDataTest()
Dim FilePath$, Row&, Column&, Address$
'change constants & FilePath below to suit
'***************************************
Const FileName$ = "Dxo.xlsx"
Const SheetName$ = "Open"
[Code] .......
I get a run-time error '52' on line ("Bad file name or number"):
Code:
If Dir(FilePath & FileName) = Empty Then
And when location is 'C:' it works and I don't get an error.
View 2 Replies
View Related
