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/historical?histperiod=weekly&q=MSFT&startdate=Jan+ 1%2C+1990&enddate=Jan+29%2C+2009&output=csv",
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
End Sub



"ryguy7272" wrote:

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

--
RyGuy


"David" wrote:

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" wrote:

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=10261&startdate=J an+1%2C+1990&+1990&enddate=Jan+28%C+2009&output=cs v" _
, 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


"David" wrote:

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/hi...=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/hi...9&output=cs v

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