- Sub CFDA()
- Dim htm As String, htm2 As String, i As Long, j As Long, p As Long, v() As String, title, arr() As String
- title = Split("注册证号,原注册证号,注册证号备注,分包装批准文号,公司名称(中文),公司名称(英文),地址(中文),地址(英文),国家/地区(中文),国家/地区(英文),产品名称(中文),产品名称(英文),商品名(中文),商品名(英文),剂型(中文),规格(中文),包装规格(中文),生产厂商(中文),生产厂商(英文),厂商地址(中文),厂商地址(英文),厂商国家/地区(中文),厂商国家/地区(英文),发证日期,有效期截止日,分包装企业名称,分包装企业地址,分包装文号批准日期,分包装文号有效期截止日,产品类别,药品本位码,药品本位码备注", ",")
-
- [b1:ag1] = title
- With CreateObject("microsoft.xmlhttp")
- For p = 1 To 1000
- .Open "get", "http://app1.sfda.gov.cn/datasearch/face3/search.jsp?tableId=36&tableName=TABLE36&bcId=124356651564146415214424405468&curstart=" & p, False
- .send
- Do While Not .ReadyState = 4
- DoEvents
- Loop
- htm = .responsetext
- v = Filter(Split(htm, "'"), "content.jsp?tableId=36&tableName=TABLE36&tableView=进口药品&Id=")
- ReDim arr(UBound(v), 32)
- For i = 0 To UBound(v)
- arr(i, 0) = Split(Split(Split(htm, v(i))(1), ">")(1), "<")(0)
- .Open "get", "http://app1.sfda.gov.cn/datasearch/face3/" & v(i), False
- .send
- Do While Not .ReadyState = 4
- DoEvents
- Loop
- htm2 = Replace(Replace(.responsetext, """>", "%>"), "</a>", "")
- For j = 1 To 32
- arr(i, j) = Split(Split(Split(htm2, title(j - 1) & "</td>")(1), "%>")(1), "</td></tr>")(0)
- On Error Resume Next
- Next
-
- Next
- [a65536].End(3).Offset(1, 0).Resize(UBound(v) + 1, 33) = arr
- Next
- End With
-
- End Sub
复制代码 |