Vba 将所选内容从chrome复制到excel

Vba 将所选内容从chrome复制到excel,vba,google-chrome,Vba,Google Chrome,我想在Chrome和Excel之间创建一种快速复制和粘贴的方法。程序需要在给定的单元格中执行粘贴所选内容的任务。如果我们访问Excel,这相当容易,我们只需要使用Microsoft Forms Library,就可以将复制到剪贴板的内容粘贴到突出显示的字段中。我想延长这个过程。现在看来如下: 我用Chrome复制一些东西 我需要切换到Excel并访问宏,以便粘贴所选内容 到目前为止,我所拥有的: Option Explicit Public Clipboard As New MSForms

我想在Chrome和Excel之间创建一种快速复制和粘贴的方法。程序需要在给定的单元格中执行粘贴所选内容的任务。如果我们访问Excel,这相当容易,我们只需要使用Microsoft Forms Library,就可以将复制到剪贴板的内容粘贴到突出显示的字段中。我想延长这个过程。现在看来如下:

我用Chrome复制一些东西

我需要切换到Excel并访问宏,以便粘贴所选内容

到目前为止,我所拥有的:

 Option Explicit

 Public Clipboard As New MSForms.DataObject

 Sub pasteTable1()
    'Tools -> References -> Microsoft Forms 2.0 Object Library
    'of you will get a "Compile error: user-defined type not defined"
      Dim DataObj As New MSForms.DataObject
      Dim S As String
      DataObj.GetFromClipboard
      S = DataObj.GetText
      Debug.Print S 'print code in the Intermediate box in the Macro editor
      ActiveSheet.Paste Destination:=Worksheets("Arkusz1").Range("A1")


End Sub

是否可以跳过中间步骤,让Excel粘贴剪贴板中的内容而不必打开它?换句话说,我想有一种方法,一旦做出选择,自动粘贴剪贴板的内容

在这么多方面,这是一个多么复杂的问题啊。我自己的思考过程:运行chrome扩展的ALLL the securities关闭了对清单中所有网页的监听,设置为监听onMouseUp。鼠标启动一个循环:检查活动页面/选项卡上是否有突出显示的$'div'。each,$'span'。each等文本。如果是这样,请使用chrome.fileSystem将此文件写入文件夹中唯一命名的临时文件。让Excel使用计时器检查此文件夹的更改,并拉出文件数据,如果有更改,则对其进行处理。有谁有更好的黑客解决方案吗?啊,我想你的意思是一旦做出选择。如果您的意思是一旦复制完成,您就可以用下面的信息替换onMouseUp