按时打开excel收罗网页,电子表格excel自动抓取网页数据

1. excel自动抓取网页数据

参考：

Sub A1下载数据()

ReDim A2(1 To 200000, 1 To 15): A = 0

For i = 1 To 5

Sleep 2000 + 1000 * Rnd

With CreateObject("WinHttp.WinHttpRequest.5.1")

URL = "方针网页"

.Open "get", URL, False

.setRequestHeader "Host", "xxxxx"

.Send

Q1 = .responseText

Q1 = Replace(Q1, """", "")

Q1 = Replace(Q1, Chr(9), "")

Q1 = Replace(Q1, Chr(10), "")

Q1 = Replace(Q1, Chr(13), "")

Q1 = Replace(Q1, "=odd>", "=>")

End With

'Sheet1.[A2] = Q1

B1 = Split(Q1, "</tr><tr class=><td>")

For j = 1 To UBound(B1)

B2 = Split(B1(j), "</td>")

B3 = Split(Replace(B2(1), "<td>", ""), ",")

A2(A + 1, 1) = Replace(B2(2), "<td>", "")

A2(A + 1, 2) = Replace(B2(0), "<td>", "")

For K = 0 To 9

A2(A + 1, 3 + K) = B3(K)

Next

A = A + 1

Next

Application.StatusBar = i

Next

MsgBox A

With Sheet1

If .AutoFilterMode = True Then .AutoFilterMode = False

.Rows("2:600000").ClearContents

If A > 0 Then .[A2].Resize(A, 15) = A2

.Rows(1).AutoFilter '数据筛选

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

End With

End Sub

1.

首先,在“数据”选项卡下点击“新建查询”,并点击“从其他源”---“自网站”,。

2.

在弹出的界面中,直接输入网站对应的地点,然后点击“确定”,

3.

期待理会网页数据即可,

4.

理会完成后,会呈现一个新的对话框,点击document,可以看到右侧的预览数据,然后点击“转换数据”,。

在获取之前先复制好网站地点，下面是我的一个演示，但愿可以或许帮到你。加载有些慢请耐性期待之后，点击寓目。

假如网站的数据天天有更新，你可以在查询到的表格中右击鼠标，刷新数据，这样excel就可以在靠山举办查询更新。

excel从云表上抓取数据方式：

1、单击【数据】--【获取外部数据】--【自网站】，单击进入。

2、在弹出的新建web页面，在地点栏中输入需要查询数据的网址。

3、页面打开后，会在页面上有一个黄色矩形框嵌套的箭头，单击一下，让它酿成小勾，这样我们就能选中需要引用的数据了。

4、选中之后，在页面的下端有一个【导入】按钮，单击便会举办数据导入了。

5、导入时excel会提醒数据导入的的区域，用户本身可以按照自身放需要举办选择区域，若不，单击确定就可以了。

6、网页上的数据都是及时更新的，同样，我们获取的数据也可以或许实现，选中需要更新的一个单位格或是一块区域，右键--【数据范畴属性】，将【答允靠山刷新】和【刷新频率】钱的小勾打上，而且还可以对时间举办调解。

7、这样，我们需要的数据就可以从网络上直接获取了。

在B1单位格输入=VLOOKUP(A1,Sheet1!A:B,2,0)

SHEET1为你的事情表1

在 Microsoft Excel 中开始 在“数据”菜单上，指向“导入外部数据”，再单击“新建 Web 查询”。

在“新建 Web 查询”对话框中输入想从中获得数据的网页的 URL 地点。可以键入 URL 地点，抖客教程网，也可以复制地点之后粘贴上去，可能单击“地点”列表旁边的箭头选择一个最近利用过的地点。单击“转到”。在欣赏器中开始 在欣赏器中，欣赏要查询数据的网页。单击“利用...编辑”按钮（大概显示为应用措施的图标之一，这取决于网页是怎么建设的）旁的箭头，再单击“利用 Microsoft Office Excel 编辑”。单击要举办导入的表格旁边的 选择表格 或单击页面左上角的 选择表格 以导入整个页面。假如页面上表格的旁边没有 选择表格，请单击对话框顶部的“显示图标”显示/埋没图标 以使其显示。Web 查询会自动与事情表一起生存。假如想生存查询，以便在其他事情表中运行，请单击“生存查询” 生存查询 。查询就会以 .iqy 的扩展名生存为文本文件的形式。若要为怎么返回数据而配置名目和导入选项，请单击“选项”并在“Web 查询选项”对话框中选择所需选项。单击“导入”。在“导入数据”对话框中，请执行下列操纵之一： 若要将网页上的数据返回到选定的事情表中，请单击“现有事情表”。在事情表中，单击要用于安排外部数据区域左上角的某个单位格，再单击“确定”。若要将数据返回到新的事情表中，请单击“新建事情表”，然后单击“确定”。Excel 会在事情簿中添加一张新事情表，而且自动把新事情表的左上角作为外部数据区域的开始。单击“确定”之后，一个旋转刷新图标 刷新指示器 将会显示在状态栏上，暗示查询正在运行。若要查抄查询的状态，请双击刷新图标。

1、单击数据--导入外部数据--新建Web查询。

2、勾选我可以识别此内容，答允播放，单击继承按钮。

3、在地点栏输入网站地点，转到此网站内里。

4、跳转到指定网页，点击箭头按钮，然后导入数据到Excel。Excel表格生成数据，至此完玉成部进程。

在SHEET1的A1中输入或复制粘贴下列公式 =INDIRECT("Sheet"&ROW(A2)&"!F37") 下拉填充 将别离获得从SHEET2开始一直到SHEET100等各事情表中F37单位格的值