求助将网页表格转换为Excel表格

lf2250891

想问问各位大神，怎么可以把下面的这个网站查询到的信息用VBA转换为excel表格，并且可以随时手动刷新获取新的数据，不用VBA也可以，只要能达到一样的结果也可以。



https://www.chinamoney.com.cn/ch ... 000&reference=1





网站内容如下

perfect131

直接复制粘贴
https://club.excelhome.net/thread-1628424-1-1.html

lf2250891

perfect131 发表于 2024-1-1 12:51
直接复制粘贴
https://club.excelhome.net/thread-1628424-1-1.html

我替换网址后使用tableTest运行会提示type mismatch,    Set Table = tables(0)会高亮提示错误。使用alltableTest完全没有任何提示但也没有输出结果，请问是怎么回事呢

perfect131

lf2250891 发表于 2024-1-2 12:58
我替换网址后使用tableTest运行会提示type mismatch,    Set Table = tables(0)会高亮提示错误。使用allt ...

你的代码呢？

lf2250891

perfect131 发表于 2024-1-2 14:19
你的代码呢？

1. ''''对应表格复制
   
2. Sub tableTest()
   
3.     Set WinHttp = CreateObject("winhttp.WinHttpRequest.5.1")
   
4.     Set HTML = CreateObject("htmlfile")
   
5.     Set oWindow = HTML.ParentWindow
   
6.     Url = "https://www.chinamoney.com.cn/chinese/bkcurvclosedyhis/?bondType=CYCC000&reference=1"
   
7.     With WinHttp
   
8.         .Open "GET", Url, False
   
9.         .send
   
10.         strText = .responsetext
    
11. ''            Debug.Print strText
    
12.     End With
    
13.     HTML.body.innerhtml = strText
    
14.     Set tables = HTML.getElementsByClassName("tableFull")
    
15.     Set Table = tables(0)
    
16.    
    
17.     '''写入剪切板 第一种
    
18.     oWindow.ClipboardData.SetData "text", Table.outerHTML
    
19.    
    
20.     '''写入剪切板 第二种
    
21. '    Set clipboard = New MSForms.DataObject
    
22. '    clipboard.SetText Table.outerHTML
    
23. '    clipboard.PutInClipboard
    
24. 
    
25.     ActiveSheet.Range("a1").Select
    
26.     ActiveSheet.Paste
    
27.    
    
28.     Set WinHttp = Nothing
    
29.     Set HTML = Nothing
    
30.     Set oWindow = Nothing
    
31. End Sub
    
32. ''''所有表格
    
33. Sub alltableTest()
    
34.     Set WinHttp = CreateObject("winhttp.WinHttpRequest.5.1")
    
35.     Set HTML = CreateObject("htmlfile")
    
36.     Set oWindow = HTML.ParentWindow
    
37.     Url = "https://www.chinamoney.com.cn/chinese/bkcurvclosedyhis/?bondType=CYCC000&reference=1"
    
38.     With WinHttp
    
39.         .Open "GET", Url, False
    
40.         .send
    
41.         strText = .responsetext
    
42. ''            Debug.Print strText
    
43.     End With
    
44.     HTML.body.innerhtml = strText
    
45.     Set tables = HTML.getElementsByTagName("table")
    
46.     aa = 1
    
47.     For i = 0 To tables.Length - 1
    
48.         Set Table = tables(i)
    
49.         
    
50.         '''写入剪切板 第一种
    
51.         oWindow.ClipboardData.SetData "text", Table.outerHTML
    
52.         
    
53.         '''写入剪切板 第二种
    
54.     '    Set clipboard = New MSForms.DataObject
    
55.     '    clipboard.SetText Table.outerHTML
    
56.     '    clipboard.PutInClipboard
    
57.    
    
58.         ActiveSheet.Cells(1, aa).Select
    
59.         ActiveSheet.Paste
    
60.         oWindow.ClipboardData.SetData "text", ""
    
61.         aa = ActiveSheet.UsedRange.Columns.Count + 2
    
62.     Next
    
63.     Set WinHttp = Nothing
    
64.     Set HTML = Nothing
    
65.     Set oWindow = Nothing
    
66. End Sub
    

复制代码

我是直接把贴里代码的连接给替换后重试

lf2250891

perfect131 发表于 2024-1-2 14:19
你的代码呢？

1. 
   
2. Sub tableTest()
   
3.     Set WinHttp = CreateObject("winhttp.WinHttpRequest.5.1")
   
4.     Set HTML = CreateObject("htmlfile")
   
5.     Set oWindow = HTML.ParentWindow
   
6.     Url = "https://www.chinamoney.com.cn/chinese/bkcurvclosedyhis/?bondType=CYCC000&reference=1"
   
7.     With WinHttp
   
8.         .Open "GET", Url, False
   
9.         .send
   
10.         strText = .responsetext
    
11. ''            Debug.Print strText
    
12.     End With
    
13.     HTML.body.innerhtml = strText
    
14.     Set tables = HTML.getElementsByClassName("tableFull")
    
15.     Set Table = tables(0)
    
16.    
    
17.     oWindow.ClipboardData.SetData "text", Table.outerHTML
    
18.    
    
19. 
    
20. 
    
21.     ActiveSheet.Range("a1").Select
    
22.     ActiveSheet.Paste
    
23.    
    
24.     Set WinHttp = Nothing
    
25.     Set HTML = Nothing
    
26.     Set oWindow = Nothing
    
27. End Sub
    
28. ''''ËùÓбí¸ñ
    
29. Sub alltableTest()
    
30.     Set WinHttp = CreateObject("winhttp.WinHttpRequest.5.1")
    
31.     Set HTML = CreateObject("htmlfile")
    
32.     Set oWindow = HTML.ParentWindow
    
33.     Url = "https://www.chinamoney.com.cn/chinese/bkcurvclosedyhis/?bondType=CYCC000&reference=1"
    
34.     With WinHttp
    
35.         .Open "GET", Url, False
    
36.         .send
    
37.         strText = .responsetext
    
38. ''            Debug.Print strText
    
39.     End With
    
40.     HTML.body.innerhtml = strText
    
41.     Set tables = HTML.getElementsByTagName("table")
    
42.     aa = 1
    
43.     For i = 0 To tables.Length - 1
    
44.         Set Table = tables(i)
    
45.         
    
46.         '''дÈë¼ôÇÐ°å µÚÒ»ÖÖ
    
47.         oWindow.ClipboardData.SetData "text", Table.outerHTML
    
48.         
    
49.         '''дÈë¼ôÇÐ°å µÚ¶þÖÖ
    
50.     '    Set clipboard = New MSForms.DataObject
    
51.     '    clipboard.SetText Table.outerHTML
    
52.     '    clipboard.PutInClipboard
    
53.    
    
54.         ActiveSheet.Cells(1, aa).Select
    
55.         ActiveSheet.Paste
    
56.         oWindow.ClipboardData.SetData "text", ""
    
57.         aa = ActiveSheet.UsedRange.Columns.Count + 2
    
58.     Next
    
59.     Set WinHttp = Nothing
    
60.     Set HTML = Nothing
    
61.     Set oWindow = Nothing
    
62. End Sub
    

复制代码

perfect131

lf2250891 发表于 2024-1-2 21:17

哪有这么简单，先正确获取源码才能 复制粘贴，或者用 ie获取动态源码 复制粘贴

CTRL+U 可以看到  网页静态源码，并没有 表格内容 ，说明这个是 js渲染后输出的表格


所以你要用 IE获取动态源码 复值粘贴
参考 39楼 44 楼
https://club.excelhome.net/forum ... 628424&pid=11091361
2 楼 静态源码 跟 动态源码的区别
https://club.excelhome.net/forum ... 681359&pid=11406374

学点html js 自动化就会了




仅供参考，

想要更快更稳那就找到接口 POST GET就可以， 一页能获取 一百多条数据 ，有偿就找我


https://club.excelhome.net/forum ... 680641&pid=11400419