Google finance

[David]

Hi Group,

I am trying to import in CSV from Google Finance a stock price history. I am
able to do this from Yahoo, but am unable to do it from Google.

The ticker is DD, weekly, from Jan 1, 1990 to Today.

The web address is
http://finance.google.com/finance/h...tdate=Jan+1,+1990&+1990&enddate=Jan+28%C+2009

Another problem that I may encounter is that the symbol name is not part of
the above. I is fairly easy to get what is on the screen into code, but I am
unable to get the whole table.

The link to the download is
http://finance.google.com/finance/h...,+1990&+1990&enddate=Jan+28%C+2009&output=csv

It is the above I believe has to be coded? Anyone else try and do this? In
Yahoo, this type of address has included the ticker symbol, maybe that what
to "cid=10261" represents? This may make impossible.

Thanks for your imput,
David

 

[ryguy7272]

This is NOT very elegant, but it seems to do the job:
Sub Macro1()

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://finance.google.com/finance/h...,+1990&+1990&enddate=Jan+28%C+2009&output=csv" _
, Destination:=Range("A1"))

.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5,
1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub

Regards,
Ryan---

 

[David]

Hi RYGUY.

I did figure it out finally and was able to use the symbol. The syntax was a
bear. I will work on getting the symbol in as a variable tomorrow.

Thank you for your help. I ended up brain storming it with a friend and
between the two of we got it. If you want the code, just respond again, but I
may not see it till tomorrow.

David

 

[ryguy7272]

Sure, please share. In the immortal words of Thomas Jefferson, 'information
is the currency of democracy'.

 

[David]

Hi,

I just started working on the variable substitute for the symbol, but I am
sure you can handle this. Two lines only inside the With statement.

Sub Macro1()
' Macro1 Macro
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://finance.google.com/finance/h...e=Jan+1,+1990&enddate=Jan+29,+2009&output=csv",
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
End Sub

 

[ryguy7272]

Ummm, ok, but I think you need to split that out, right. Use Data > Text to
Columns to get normalized results.

Regards,
Ryan---

 

[cperazzo]

Hi Group,

I am trying to import in CSV from GoogleFinancea stock price history. I am
able to do this from Yahoo, but am unable to do it from Google.

The ticker is DD, weekly, from Jan 1, 1990 to Today.

The web address is :http://finance.google.com/finance/historical?histperiod=weekly&cid=10...

Another problem that I may encounter is that the symbol name is not part of
the above. I is fairly easy to get what is on the screen into code, but Iam
unable to get the whole table.

The link to the download is:http://finance.google.com/finance/historical?histperiod=weekly&cid=10...

It is the above I believe has to be coded? Anyone else try and do this? In
Yahoo, this type of address has included the ticker symbol, maybe that what
to "cid=10261" represents? This may make impossible.

Thanks for your imput,
David

If you wanna save money visit www.meilleurtauxhypothecaire.com

 

[cperazzo]

This is NOT very elegant, but it seems to do the job:
Sub Macro1()

    With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://finance.google.com/finance/historical?histperiod=weekly&cid=10..." _
        , Destination:=Range("A1"))

        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4,1), Array(5,
1), Array(6, 1)), _
        TrailingMinusNumbers:=True
End Sub

Regards,
Ryan---

--
RyGuy












- Show quoted text -

If you wanna save money visit www.meilleurtauxhypothecaire.com