从excel复制并粘贴到在线表格中

Posted 2023-03-17

【中文标题】从excel复制并粘贴到在线表格中

【英文标题】：Copy from excel and paste into online form

【发布时间】：2012-10-28 15:14:53

【问题描述】：

首先我要为我不是最擅长电脑的事实道歉，

我有一个相当大的 Excel 表格，我必须将每行 10 列复制并粘贴到在线表格中。

是否可以为此创建一个宏，如果可以，我该怎么做。

另外请记住，我在工作，所以我无法使用插件，很遗憾我不得不使用 Internet Explorer。

你的帮助会很受欢迎，

谢谢

【问题讨论】：

例如 - excely.com/excel-vba/ie-automation.shtml。如果您搜索“VBA 自动 IE”，请在 Google 上找到更多信息

【参考方案1】：

是的，这是可能的。您可以使用 IE 使用 vba 自动执行此操作。

Sub xtremeExcel()
  Dim HTMLDoc As HTMLDocument
  Dim oBrowser As InternetExplorer
  sURL = "*******Paste URL Here************"
  Set oBrowser = New InternetExplorer
  oBrowser.Silent = True
  oBrowser.navigate sURL
  oBrowser.Visible = True
  Do
  Loop Until oBrowser.readyState = READYSTATE_COMPLETE
  Set HTMLDoc = oBrowser.document
 'Use firebug to identify the textbox or object you need. and you can set its value like 
 'HTMLDoc.GetElementByID("abcd").value="xyz"

End Sub