[分享]网页数据下载与控制

nmll316 · 发表于 2009-4-1 22:51

非常好！虽然暂时用不上，但我还是要顶！！！

jgzeng · 发表于 2009-4-3 12:50

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

logomer · 发表于 2009-4-3 23:05

请问一下楼主
我想要查询大连期货交易所的资料
网址:
http://www.dce.com.cn/PublicWeb/MainServlet?action=Pu00011_search
vba code:

Sub test()
Dim str As String, strURL As String
Strpost = "Pu00011_Input.trade_date=20090403&Pu00011_Input.variety=all&Pu00011_Input.trade_type=0"
strURL = "URL;http://www.dce.com.cn/PublicWeb/MainServlet?action=Pu00011_search"

With ActiveSheet.QueryTables.Add(Connection:=strURL, Destination:=Range("A1"))
      .PostText = Strpost       'post字串
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlAllTables
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .Refresh BackgroundQuery:=False

End With
End Sub

查询的结果只有出现原始的查询表单
并没有查询的结果
请问是那里出错呢？

ming2862 · 发表于 2009-4-6 08:20

多谢提供！太棒了。

azrael_qsl · 发表于 2009-4-9 12:08

感谢楼主的分享啊，我正想这方面的资料呢

yuch8663 · 发表于 2009-4-9 16:36

正想做这个，谢谢楼主的教程

涵涵 · 发表于 2009-4-10 00:00

Strpost = "action=Pu00011_result&Pu00011_Input.trade_date=20090403&Pu00011_Input.variety=all&Pu00011_Input.trade_type=0"
strURL = "URL;http://www.dce.com.cn/PublicWeb/MainServlet"

gdjxwz · 发表于 2009-4-14 22:20

回复90楼:
你所说的网站实际上是一个新开窗口的网页的控制问题。暂时回复一下，有时间再帮你试一试吧。

dennis_cwc · 发表于 2009-4-18 16:37

太好了，学习中，看看。。。

nzhyj · 发表于 2009-5-6 07:03

非常合用，收藏
谢谢楼主分享

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

[分享]网页数据下载与控制

评分

回复 90楼 logomer 的帖子

太好了，学习中，看看。。。

[分享]网页数据下载与控制

评分

回复 90楼 logomer 的帖子

太好了，学习中， 看看。。。

太好了，学习中，看看。。。