|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test()
- Dim r As Object, arr(1 To 3000, 9), p&, j&, i&, n&
- Cells.Clear
- [a1].Resize(1, 10) = Split("登记号 品种名称 企业名称 企业地址 产品来源 包装规格 规格 更新日期 与制剂共同审评审批结果 备注")
- With CreateObject("InternetExplorer.Application")
- DoEvents
- .Navigate ("http://www.cde.org.cn/yfb.do?PageNumber=1&pageMaxNumber=3000")
-
- .Visible = True '是否显示ie窗口
- While .readystate <> 4 '延迟等待页面加载完毕
- DoEvents
- Wend
- Set r = .document.all.tags("table")(5).Rows
- For i = 1 To r.Length - 1
- n = n + 1
- For j = 0 To 9
- arr(n, j) = r(i).Cells(j).innertext
- Next
- Next
- End With
- [a2].Resize(n, 10) = arr
- End Sub
复制代码 |
|