网页表格自动导入excel

某某GMT

约定的童话 发表于 2021-4-25 16:00
你这工程量不小啊

大神，还有没有可能解决啊。这个问题特别奇怪哦

约定的童话

某某GMT 发表于 2021-4-26 08:40
大神，还有没有可能解决啊。这个问题特别奇怪哦

楼上大佬已经说得很明白了

某某GMT

约定的童话 发表于 2021-4-26 09:53
楼上大佬已经说得很明白了

看来是没戏了，只能手动了，谢谢帮助。

perfect131

某某GMT 发表于 2021-4-26 08:40
大神，还有没有可能解决啊。这个问题特别奇怪哦

可以用Selenium试试，sheet1网址，sheet2代入数值
Sub kong()
    Dim cd As New ChromeDriver
    Dim keys As New Selenium.keys
    Dim surl, w
    w = 2
    surl = Sheet1.Cells(w, 1)
    cd.Start
    cd.Get surl
    cd.Wait 100
    cd.FindElementByXPath(" //*[@id='canvasContainer']/div[1]/div[2]").Click
    cd.SendKeys (keys.Control + "a" + keys.Control)
    cd.SendKeys (keys.Control + "c" + keys.Control)
     Worksheets("sheet2").UsedRange.ClearContents
    Sheet2.Range("A1").Select
    ActiveSheet.Paste
    Stop  '这里可以看一下打开的网页
    cd.Quit
End Sub

perfect131

1. Sub kong()
   
2.     Dim cd As New ChromeDriver
   
3.     Dim keys As New Selenium.keys
   
4.     Dim surl, w
   
5.     w = 2
   
6.     surl = Sheet1.Cells(w, 1)
   
7.     cd.Start
   
8.     cd.Get surl
   
9.     cd.Wait 100
   
10.     cd.FindElementByXPath(" //*[@id='canvasContainer']/div[1]/div[2]").Click
    
11.     cd.SendKeys (keys.Control + "a" + keys.Control)
    
12.     cd.SendKeys (keys.Control + "c" + keys.Control)
    
13.      Worksheets("sheet2").UsedRange.ClearContents
    
14.     Sheet2.Range("A1").Select
    
15.     ActiveSheet.Paste
    
16.     Stop  '这里可以看一下打开的网页
    
17.     cd.Quit
    
18. End Sub

复制代码

测试效果附件图

某某GMT

perfect131 发表于 2021-4-26 11:32
测试效果附件图

兄弟这个好啊，本来已经不抱希望了，但是来了另一个思路。虽然不是我当时想的那样，但这样也能在自己电脑上实现需求，就是这个软件我跟着教程安装了，总是报错。
有需要的朋友，在本站搜索：vba中使用Selenium

perfect131

某某GMT 发表于 2021-4-28 08:35
兄弟这个好啊，本来已经不抱希望了，但是来了另一个思路。虽然不是我当时想的那样，但这样也能在自己电脑 ...

报错的如果是 “运行错误”33 ，我的帖子有解决方案可以参考

前进者

标记一下，以便学习备用！

zpy2

某某GMT 发表于 2021-4-25 14:45
兄弟，我是先做个自动同步的，这个数据，我会在通过表格进行分析计算。
如果单纯导出，我就没必要这么麻 ...

先做个自动同步的？？

你意思就是 少一步 导出的操作？

每天导出几次？

zpy2

zpy2 发表于 2022-5-2 14:32
先做个自动同步的？？

你意思就是 少一步 导出的操作？

网页

不用腾讯的，自己的网页，应该可以的。虽然，没那么高级。