能否动态显示：插入网页动态趋势图

baycide

想要取得网页上的一些动态数据，因为每次要打开好几个网页，想在EXCEL里直接取得，网页图片的网址是固定的，图片是动态的趋势图，因为每天都要看，想直接在表格直接看，这样比较方便些！

之前有做过像这样的表格，希望能有高手指点如何能够动态的显示已插入的网页动态图，最多只要按一下按钮刷新一下数据就可以重新取得数据！

zz5151353

試一試請把代碼放到

THIS WORKBOOK 下

Private Sub Workbook_Open()
    Range("H1").Select
    ActiveSheet.Pictures.Insert( _
        "http://www.kitco.cn/cn/metals/silver/t24_ag_cny_gram_450x275g.gif").Select
    Range("H16").Select
    ActiveSheet.Pictures.Insert( _
        "http://www.kitco.cn/cn/metals/platinum/t24_pt_cny_gram_450x275g.gif").Select
    Range("A16").Select
    ActiveSheet.Pictures.Insert( _
        "http://www.kitco.cn/cn/metals/gold/t24_au_cny_gram_450x275g.gif").Select
    Range("D10").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("E12").Select
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With
End Sub

存檔後跳出 EXCEL 再打開這檔案

itxianfeng

谢谢，这段搜索网上数据的代码真是短小精悍，很实用，而且容易理解，收藏了。

[ 本帖最后由 itxianfeng 于 2009-5-20 15:58 编辑 ]

baycide

好像只是增加了Private Sub Workbook_Open() 这个代码
实现的功能就是一打开工作簿就能刷新！    这功能挺强，又学到一招，谢谢！
对了，能不能我按F9 就能实现这一刷新功能呢！

baycide

还有一点，我制作的插入网页GIF趋势图，是因为我不知道如何有什么办法可以在EXCEL中时时的显示网页上的这个图，所以才用的宏将图做插入网页图的动作记录下来
希望能有更强的方法将不同网页上的图动态显示，学习！！！ 谢谢

baycide

重新整理了一下！    已经有结果的！

zhoulxi

很不错，我正在找这样的VB，谢谢两位啊。
楼主做的也不错了。

270912979

厉 害、、、、、