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

Question

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

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

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

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

你的帮助会很受欢迎，

谢谢

Answer 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