access 当数据库,EXCEL用来分析数据,自动化用VBA,人机互交窗体就用access的,价格读取使用EXCEL抓网页数据。顺便放送一个EXCEL抓价格的VBA代码。
第一列填想查的物品ID。物品ID国服市场中心上下。
Sub 国服吉他报价()
Dim rs As Integer
rs = 1
Do Until Cells(rs, 1) = "" '直到单元格为空为止,才结束
If Cells(rs, 1) <> "" Then Cells(rs, 2).Select
ActiveWorkbook.XmlImport URL:= _
"
http://www.ceve-market.org/api/marketstat?typeid=" & Cells(rs, 1).Value & "&usesystem=30000142", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Cells(rs, 2)
rs = rs + 1
Loop '循环
End Sub