Automatic weather

  • Thread starter Thread starter Damian
  • Start date Start date
D

Damian

Is it possible to have a cell/field that would check the current weather and
put the temperature in that cell?
 
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/loca...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
 
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?
 
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
 
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.
 
Back
Top