作者endoxans (艾德尚)
看板Office
标题[算表] asp网页表格无法以excel读取
时间Tue Jan 15 21:49:58 2019
软体:excel
版本:2016
用excel资料汇入的方式抓取asp的资料
https://www7.vghtpe.gov.tw/drugsh/asp/result.asp
好像只能抓出外层
内部资料都无法显示
想请问版上前辈是否有办法解决
(或者需要以爬虫程式才有办法
感谢解答~
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.26.109.8
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1547560200.A.C02.html
1F：→ soyoso: 如不行的话，就以巨集协助试试 01/15 21:59
2F：→ soyoso: google excel vba ie automation asp|dynamic web 01/15 21:59
3F：→ shengvia: 请问该网页要输入什麽查的到资料 01/15 22:17
4F：→ shengvia: 才 01/15 22:18
5F：→ soyoso: 原文网址是查询後结果的网址，可按左侧重新查询，回到查询 01/15 22:30
6F：→ soyoso: 页 01/15 22:30
7F：→ endoxans: 目前先一个一个查，来日研究VBA and python~XD 01/15 22:39
8F：推 waiter337: google selenium chrome vba 01/15 22:52
9F：→ waiter337: 百度那边也有资料 01/15 22:53
10F：→ waiter337: 还有chrome商店 selenium IDE 01/15 22:54
11F：→ waiter337: 你要抓内部 试试看上面这个 01/15 22:55
12F：→ waiter337: Katalon 也可以试试 但这个我没试过 01/15 22:57
13F：→ waiter337: 实作上可以参考水管 01/15 22:58
14F：→ waiter337: 但水管上的写法是比较久一点的版本 01/15 22:59
15F：→ waiter337: 要这样 01/15 23:00
16F：→ waiter337: Dim driver As selenium.ChromeDriver 01/15 23:01
17F：→ waiter337: Sub openWEBchrome() 01/15 23:01
18F：→ waiter337: Set driver = CreateObject("Selenium.ChromeDriver") 01/15 23:01
20F：→ waiter337: driver.Get url 01/15 23:02
21F：→ waiter337: driver.Wait 1000 01/15 23:03
22F：→ waiter337: driver.Quit 01/15 23:03
23F：→ waiter337: End Sub 01/15 23:03
24F：→ waiter337: 要安装软体 安装chromedrive 执行start chrome 01/15 23:05
25F：→ waiter337: 设定引用项目 01/15 23:05
26F：→ soyoso: 这个查询以ie automation来看的话 01/15 23:06
27F：→ soyoso: 查询网页来看的话，药品名称name为DN，国际条码为"IBC" 01/15 23:07
28F：→ soyoso: 健保码"NHIC"，UD码"UDN"，可以document.all、all.item 01/15 23:07
29F：→ soyoso: 或documnet.getelementsbyname将value带入储存格的值或字 01/15 23:07
30F：→ soyoso: 串 01/15 23:07
31F：→ soyoso: 开始搜寻为"btnDO81E0"，按下为click 01/15 23:07
32F：→ soyoso: 要复制表格的话body.innerhtml指定getelementsbytagname为 01/15 23:07
33F：→ soyoso: table，再以execwb来全选复制於储存格 01/15 23:07
34F：→ soyoso: 以ie的话则不用安装其他软体 01/15 23:08
35F：→ waiter337: 药品名称 name=DN 或 xpath=//input[@name='DN'] 01/15 23:11
36F：→ waiter337: 国际条码 name=IBC 或 xpath=//tr[3]/td[2]/input 01/15 23:12
37F：→ waiter337: 健保码 name=NHIC 或 xpath=//tr[4]/td[2]/input 01/15 23:12
38F：→ waiter337: UD码 name=UDN 或 xpath=//tr[5]/td[2]/input 01/15 23:13
39F：→ waiter337: 开始搜寻 name=btnDO81E0 01/15 23:13
40F：→ waiter337: 或xpath=//input[@name='btnDO81E0'] 01/15 23:13
41F：→ waiter337: 重新输入 name=btnReSet 01/15 23:14
42F：→ waiter337: 或xpath=//input[@name='btnReSet'] 01/15 23:14
43F：→ waiter337: 弹出警告确定 xpath=//input[@name='btnDO81E0'] 01/15 23:15
44F：→ waiter337: 抱歉 弹出警告确定 不是这个元素 01/15 23:16
45F：→ soyoso: 如不抓表格只要表格内的资料的话，split分割outerhtml再抓 01/15 23:18
46F：→ soyoso: 出 01/15 23:18
47F：→ waiter337: 弹出警告大概只能靠回圈搜索新元素物件 没弹出 sedkey 01/15 23:19
48F：→ waiter337: 按下确定来跳开 或者drive.Qiit关闭重开来回避 01/15 23:19
49F：→ waiter337: sendkey 01/15 23:20
50F：→ waiter337: 好像selenium或其他爬虫有支援python录制自动写巨集 01/15 23:22
51F：→ waiter337: 的功能 01/15 23:22
52F：→ waiter337: 就是你录制好你的动作,他会直接给你程式码 01/15 23:23
53F：→ waiter337: 然後你再丢到python里面就能跑了,水管上看有没有人教 01/15 23:23
54F：→ soyoso: 以弹出警告，测试可以execScript "window.alert = 01/15 23:32
55F：→ soyoso: function() {}" 阻止弹出 01/15 23:33
56F：→ waiter337: 感谢 原来有这招 01/15 23:34
57F：→ endoxans: 感谢神人们，小弟明天就来练练看 01/15 23:38