实时天气预报

jaxxjf · 发表于 2012-2-26 20:22

请高手指点.好像不能使用

chuhaiou · 发表于 2012-2-26 21:29

本帖最后由 chuhaiou 于 2012-3-31 10:09 编辑

jaxxjf 发表于 2012-2-26 20:22
请高手指点.好像不能使用

要连网呀！再者你的2003是不是没有完全安装呢？
我还把它做在PPT中呢！
：

舒怡子 · 发表于 2012-2-27 11:08

chuhaiou 发表于 2012-2-23 16:29
你可能缺少控件吧，我用的就是2003

我都不敢动它，怕动了用不了。

yjb803 · 发表于 2012-2-27 11:09

路过。看看

hz317206 · 发表于 2012-2-27 14:52

谢谢楼主的分享

chuhaiou · 发表于 2012-2-28 17:20

本帖最后由 chuhaiou 于 2012-3-31 10:53 编辑

再发二个天气预报，大家看看改一下能否显示在窗体中

zzq0101 · 发表于 2012-2-28 18:40

学习了！
Sub 预报()
'
' 预报 Macro
'

Cells.Clear
  'http://weather.xcyh.org/101220608'

Range("A213").Select
ActiveCell.FormulaR1C1 = "青岛"
      Range("A213").Select
With Selection.Font
      .Color = -16776961
   ' .TintAndShade = 0
End With
Range("A213").Select
ActiveWindow.SmallScroll Down:=9
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://qq.ip138.com/weather/shandong/QingDao.htm", Destination:=Range("$A$215" _
      ))
      .Name = "QingDao"
      .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 = "4"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
End Sub

chuhaiou · 发表于 2012-2-28 19:01

zzq0101 发表于 2012-2-28 18:40
学习了！
Sub 预报()
'

代码本身就没有加密哟！我还以为你修改了程序呢。

ghhjjkklk · 发表于 2012-2-28 20:30

佩服啊。。楼主太有才了。

ylxmy007 · 发表于 2012-3-1 10:05

感谢分享，辛苦了

		自动登录	找回密码
密码			免费注册

[分享] 实时天气预报