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 回答