使用 Excel VBA 控制 Web 浏览器

Question

我被分配了自动化基于 Web 的任务（针对 HTTPS 网站）的任务。用户当前正在用数据填充Excel工作表，他们现在希望以一种直接控制浏览器并填充数据的方式自动化Excel。

我发现 iMacros Scripting 版本作为执行此操作的可能解决方案，我想知道是否有任何其他类似的工具可用于控制浏览器和填充数据。

我还查看了 Selenium 客户端驱动程序，但我不确定如何在 Excel VBA 中使用它。

任何帮助将不胜感激。

谢谢，

Answer 1

您可以通过安装此处提供的工具来从 Visual Basic 编辑器中使用 Selenium：

http://code.google .com/p/selenium-vba/

有一个 Selenium IDE 插件可以自动在 VBA 中录制脚本，还有一个安装包可以在 Visual Basic 编辑器中运行 Selenium 命令。

以下示例启动 Firefox，打开第一列中的链接，将标题与第二列进行比较，并将结果放入第三列中。
使用的数据位于工作表中名为“MyValues”的范围内。

Public Sub TC002()
   Dim selenium As New SeleniumWrapper.WebDriver, r As Range
   selenium.Start "firefox", "http://www.google.com" 
   For Each r In Range("MyValues").Rows
     selenium.open r.Cells(, 1)
     selenium.waitForNotTitle ""
     r.Cells(, 3) = selenium.verifyTitle(r.Cells(, 2))
   Next
   selenium.stop
End Sub

Answer 2

此示例打开 stackoverflow 站点并显示 IE

Sub OpenIE()
'officevb.com
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "http://www.stackowerflow.com"

 'wait load
 While ie.ReadyState <> READYSTATE_COMPLETE
  DoEvents
 Wend

ie.Visible = True

End Sub

[] 的

Answer 3

我使用此代码从 Excel 读取数据并将其传递给 selenium 来执行“单击、选择、关闭等”等任务，并且您也可以将数据写入 Excel。

这是Python中的，我不知道VB，但我知道perl，如果你希望我也能在perl中给出相同的代码。

我希望这可能有帮助。

from xlwt import Workbook

import xlrd

testconfigfilename="testconfig.xls"

    if (len(sys.argv) > 1):

        testconfigfilename=sys.argv[1]       

    wb = xlrd.open_workbook(testconfigfilename);

    wb.sheet_names();

    sh = wb.sheet_by_index(0); 'Sheet 0 - selenium server configuration'



    seleniumHost = sh.cell(1,0).value

    seleniumPort = int(sh.cell(1,1).value)

    testBaseURL = sh.cell(1,2).value

    browser = sh.cell(1,3).value

    timeout = int(sh.cell(1,4).value)

    path = sh.cell(1,5).value

outputwb = Workbook()

    outputsheet = outputwb.add_sheet("result",cell_overwrite_ok=True) #get the first sheet in the result xls 

outputsheet.write(RowNumber,colNumber,"data")