I have a code which get data from finance yahoo. When I run the code , it is giving User defined type not defined.
Private Sub UserForm_Click()
Dim URL2 As String: URL2 = "http://finance.yahoo.com/"
' to get data from the url we need to creat a win Http object_
' tools > references > select Windows Win Http Services 5.1
Dim Http2 As New WinHttpRequest
'open the url
[Code] ...........
Sub Dividend()
Dim QuerySheet As Worksheet
Dim DataSheet As Worksheet
Dim qurl As String
Dim i As Integer
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Set DataSheet = ActiveSheet
qurl = "LUX PXD XOM TOT "
Yahoourl = [url]& qurl & "%20&f=%20qd"
With ActiveSheet.QueryTables.Add(Connection:="URL;" & Yahoourl, Destination:=DataSheet.Range("A2"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Range("A1"). CurrentRegion.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, other:=False
End Sub
I am trying to import competitor data into excel using google finance, but when I try to run the web query I get the message that "this web query returned no data." I have no problems when using yahoo finance and other websites so I think it has something to do with google, but I don't know what it is. I have been searching for some time now without any luck. My end goal is to make this a dynamic web query and incorporate it into a VBA code, but I need to get the web query to work first. Below is the text of the web query.
WEB
1
http://www.google.com/finance?q=COH#
Selection=cc-table
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
I'm working on getting company data from yahoo into excel. I can do this manually going to Data > From web etc using site: [URL] ... for example then just import from there.
I recorded this macro:
Sub OriginalImport()
'
' Macro2 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
[Code] .......
This works fine. But i want to be able to manually select the stock code, start month, date and year and end month, date and year through excel (this is already setup easy) and have this update the URL that is pasted into here: [URL] ....
In cell A1 i have used this formula: [URL] ......
This spits out something like this: [URL] .....
That will automatically update the correct URL name to enter into the correct section of the macro. But here's where i hit a snag I've tried:
With ActiveSheet.QueryTables.Add(Connection:= _
= Range("A1") _
, Destination:=Range("$A$2"))
But it doesn't like the =Range("A1") bit. Once i solve how to get this URL into the connection web-search space then i can control what my macro searches for. What do i have to do to the
= Range("A1") _
bit to make this macro work??
how to download data from SAP to excel?
View 8 Replies View RelatedI wanted to know how to download live data (stock data from a a website) through VBA.
View 1 Replies View RelatedI have a sheet with 22,000 rows 6 columns of sales data from my Amazon sales each order has between 3-6 rows. When the data comes in from Amazon some of those rows wont have my sku in the sku cell. Since i use a pivot table to summarize all my sales I need a way to pull the sku from the order number that has it. I have attached a picture of my problem.
View 6 Replies View RelatedFor each account i download there are hundreds of pages of journals and entries, in the header of each page is information such as currency, the entries do not have have the CUR code (ie AUD, USD,CAD etc)
What i need to do is;
1. copy the CUR code to each entry line so that when i sort the data i have the CUR code to each entry
2. Copy the data to a "master" spreadsheet in it's unique tab if Column A begins with N and M.
I have a spreadsheet with several stock symbols in a1:a25
I want to look up the last price and put it into b1:b25 for each stock in a.
I have tried all aspects of http://download.finance.yahoo.com/d/...k symtol"&f=l1 as a query but can not get it to work without specifying the symbol in the url for each symbol.
I am assuming that I need a macro of query that can look up the range to provide the prices.
The reason is that the list of symbols changes daily and I need to look them up daily.
I am about to take a corporate finance course. The textbook uses a ton of basic (complex to me) equations to calculate interest rates, bond premiums, dividend reinvestment scenarios, etc.
I know that Excel has a bunch of specific functions to calculate interest, NPV, etc. but I am NOT interested in using those because I would like to have Excel "do the math" once I enter the formulas (or parts of formulas) correctly.
how to enter the equations below into Excel without using built-in formulas (I'm also not looking to use the Equation editor because I actually to calculate the answers, not just have the visual look/feel of the equation).
1R2 = [(1 + .0194)(1 + .03)]1/2 - 1
If done correctly, 1R2 in the above should equal 2.47%. I am totally fine doing parts of this in separate cells if necessary.
And something more complicated like the below. I wrote out the word "delta" because I don't know how to create the "triangle" symbol for delta on this forum post. According to the text, for securities with semiannual receipt (compounding) of interest, it is represented as:
-D = (delta P / P) / ((delta r sub b) / (1 + (r sub b)/2)))
Or in English, I believe that can be expressed as "negative D equals the quotient of delta P divided by P (in the numerator) divided by the following: delta r sub b divided by the quantity 1 plus r sub b divided by 2"
And finally
V sub b = 1000 / [1 + (.10/2)]2(4) + 50 times the following compound bracketed expression [1 - (1 / [1 + (.10/2)]2(4)] divided by (.10/2)]
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] ....
rows 1 and 2 are used for my parameters.
row 1 being used for descriptions: Ticker Symbol, Start Date, End Date, and pulling in the close price and volume for each ticker symbol with the selected date range. row 2 being used for entering the parameter info.
row 2 Would read (as an example)
MSFT, 1/1/2002, 1/1/2003, close price, volume.
For each ticker in column A, add a separate wksheet named the ticker symbol and pull in the corresponding info.
So the final result for MSFT, would be an added wksheet named MSFT, with the colums headers being the close and volume, and the rows being the date parameters set in row 2.
all using yahoo finance.
I have a spreadsheet that each month, we populate a new row of data. The rows are already set up in the spreadsheet, but we just populate the new row.
We are calculating a rolling 12 month total. Each month, we have to modify the formula below to pick up the last 12 months.
For example, next month we will populate data into cell M91, then we need to manually modify our formula to read M80:M91. Wondering if there is a way to have the formula below to look at a range, such as M100:M1, and count the last 12 months? This would eliminate us having to change this each month on several spreadsheets.
In Summary: I would like to replace the M79:M90 to count the last 12 months instead of changing the formula each month.
Here is the formula:
=(FVSCHEDULE(1,M79:M90/100)-1)*100
All this macro is supposed to do is execute a data download every ten seconds until there is a value in C11 and then send an email and close.
What seems to be happening is that it downloads, emails, closes... but then in ten seconds the sheet reappears and does it all again.
I need to flow data from the Download tab to the Disb08 tab based on the date, that column F of the Download tab = "Outgoing Money Transfer" and that the 4 digit number in row 2 of the Disb08 tab is matched against Column G in the Download tab. When all those match, then the value from column J of the download tab would flow over.
View 2 Replies View RelatedI have Excel 2007. I have a spreadsheet with email addresses in it surrounded by other text. I want to automatically highlight in yellow each row containing the words gmail, yahoo, hotmail and so on.
I CTRL-H then enter the info as you see it in the pic attached. When I click Replace All it says "that function is not valid". It works like a charm for every other word I test it with.
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 RelatedI have looked through the XL2007 security settings and can't find any way to list a (known secure) hyperlink as trusted so that it will download without manual intervention.
View 11 Replies View RelatedI'm trying to use macros in order to download subs directly from the Excel sheet. The idea is put the name of the film or television series in an exce cell. When you set enter, the vba programme search the subtitles into the web site (such as Search in 6.626.100 subtitles | SubtitleSeeker.com : Seek & Find Subtitles, or Subtitulos de Series - Comunidad hispana de traduccion de Subtitulos) and then download the right sub into a local folder.
I have found information about API for windows, and I used a code to download a statical file (without searching), but how to download files after queries.
I don't know why my Sum/Offset formula is not functioning correctly. =SUM(OFFSET(Download!H2,0,MATCH($B$3,Data!A1:P1,0)))
I'm trying to attain the sum of each name from the Download sheet tab but my formula returns a 0 instead of 2,181(the correct answer). The rows on the Download sheet are varies so I thought the Offset formula would be best. Could you review my spreadsheet and formula? Can this formula accommodate an exclusion criteria? example sum all the count except for the one with the maximum time from column D?
I know how to insert pictures into Excel, but how do I download them from Excel into my computer.
View 1 Replies View RelatedI 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].....
how can i create a macro to open the page
[url]
and download all the form into excel automatically?
I have a list of 2000 hyperlinks (http) that I need to download, I'm working on a corporate network so I can't just use a mass download client. Cany anyone give me some guidance creating a macro to save the target of the hyperlink as a file then move on to the next hyperlink until the list is exhausted.
I need to do seems quite simple, I want to grab the source of a webpage into a string (where I'll then to some fiddling about with it to strip it down to the information which I need). Currently I'm trying to do it using the webbrowser object and meddling around with the .document properties, but I can't figure it out.
UserForm1.WebBrowser1.Navigate UserForm1.address.Value
grrr = UserForm1.WebBrowser1.Document.body.innerText
UserForm1.sourceoutput.Value = CStr(grr)
microsoft toolbar buttons as I'm not especially artistic, but would like more choice when creating custom buttons ?
View 3 Replies View RelatedI have created some code that directs me to a web page, and i use send keys to navigate my way to the input field. In this input field I am trying to put a cell value in a range use send keys to download the file, and the repeat the process for the next cell.
Here is my code so far, it does everything right up until pasting the copied cell into the input section of the web page - the issue is it is pasting nothing
VB:
Shell "C:Program FilesMozilla Firefoxfirefox.exe " & "https://website.com", vbMaximizedFocus
Application.Wait Now + TimeValue("00:00:05")
SendKeys "{TAB}"
' Input username
[Code] .....
Are there any alternative places to download MOREFUNC.XLL? The link at the Morefunc for Excel site is broken, and the forums seem currently busted as well.
View 2 Replies View Relatedhow 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
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