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

从excel复制并粘贴到在线表单

1 个答案: