如何把下面代码中360浏览器改成用GOOGLE浏览器打开。

suzl1980

Sub Inputall()

Set IE = CreateObject("InternetExplorer.Application")

With IE

    .Visible = False            '网页设置为不可见
    .Navigate "http:/www.baidu.com/" '导航到查询网址并提交
    Do Until .ReadyState = 4    '等网页完全打开
        DoEvents
    Loop

    Call WaitTime(30)

    Dim RowTotal As Integer
    RowTotal = Cells(Rows.Count, "A").End(xlUp).Row

    Dim i As Integer
    For i = 2 To RowTotal

        .Document.all("BatchScanNum").Value = RowTotal - 1
        .Document.all("BarCode").Focus
        .Document.all("BarCode").Value = Cells(i, "C")
        SendKeys "{ENTER}"

        Call WaitTime(4)

    Next i

    Set IE = Nothing

End With

shenghua8

其一，从 Cells(Rows.Count, "A").End(xlUp).Row 可以看出，这个过程用于 Excel ，所以楼主发错版块了。
其二，从 CreateObject("InternetExplorer.Application") 可以看出，这个过程既未指定使用 360浏览器，也未指定使用 Google浏览器，而是根据 Internet Explorer 应用程序（即IE浏览器）建立对象。

既然是根据IE进行编程，最好用IE打开。
360其中一种浏览器、谷歌浏览器、火狐浏览器等，内核与IE不同，有些程序不能兼容。

.

fwa103

shenghua8 发表于 2015-9-25 16:38
其一，从 Cells(Rows.Count, "A").End(xlUp).Row 可以看出，这个过程用于 Excel ，所以楼主发错版块了。
...

为何CreateObject("InternetExplorer.Application")是在打开ie的前提下才能使用，否则提示不能创建对象呢？