用代码实现下载文件,如图片等小文件,如果是大文件的话,速度太慢,不建议用此类方法
具体的实现代码如下
Option Explicit
Public Function getimage()
Dim strurl As String
strurl = "http://p5.so.qhimgs1.com/t0161ac92c369a8cefb.jpg" '下载网址
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "GET", strurl, False
xmlhttp.send
Do While xmlhttp.readystate <> 4
DoEvents
Loop
Dim b() As Byte '用字节数组来接收,防止出错
b = xmlhttp.responsebody
Open ThisWorkbook.Path & "\1.jpg" For Binary As #1 '保存为1.jpg
Put #1, , b()
Close
End Function
表格数据的获取,可以直接用“数据”-“获取外部数据”-“自网站”,也可用代码实现,其代码如下
Sub test()
Cells.Delete
Dim qt As QueryTable
Set qt = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://money.hexun.com/toolcase_stock/index.html#Menu=3_1", Destination _
:=Range("$A$1"))
With qt
.Name = "index.html#Menu=3_1"
.WebSelectionType = xlSpecifiedTables '选择类型
.WebFormatting = xlWebFormattingNone '格式,此处为选择格式
.WebTables = "13" '选择的表格
.Refresh BackgroundQuery:=False
End With
End Sub