Automatic weather
 

Is it possible to have a cell/field that would check the current weather and
put the temperature in that cell?

Automatic weather
 

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _
"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current weather
and
put the temperature in that cell?

Automatic weather
 

Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _
"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current weather
and
put the temperature in that cell?

Automatic weather
 

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

Automatic weather
 

is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon or
the average for the day. Same if I enter the date at 6 pm I want the average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

Automatic weather
 

If YOU find a web site (google for average temp) that does that you can
incorporate into the code. Contact me privately at my address below if you
desire custom work.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon
or
the average for the day. Same if I enter the date at 6 pm I want the
average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you
want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

Automatic weather
 

Sent him one using google weather.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
If YOU find a web site (google for average temp) that does that you can
incorporate into the code. Contact me privately at my address below if you
desire custom work.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon
or
the average for the day. Same if I enter the date at 6 pm I want the
average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you
want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.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 = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?