3

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

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

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

另外请记住，我在工作，所以我无法使用插件，不幸的是我不得不使用 Internet Explorer。

你的帮助会很受欢迎，

谢谢你

4

1 回答 1

0

是的，有可能。您可以使用 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
于 2013-07-22T20:24:55.237 回答