Wie man vba-code zum öffnen von internet explorer in der neuen session?

Ich bin kämpfen, um dies getan, seit Monaten, wie man VBA-code zum öffnen von internet explorer in der neuen Sitzung ich habe eine Anwendung mit vielen Anmeldungen, die ich brauche, um Sie zu öffnen gleichzeitig mit der Automatisierung , die ich verwendet habe

  set ie=new InternetExplorer

aber es öffnet sich der ie in der alten session, die ich öffnen möchten neue Sitzung für jeden login bitte helfen Sie mir, ich googelte viel für Sie, aber am Ende ohne Lösung.
das ist mein code

 Function GetIE() As InternetExplorer

  Dim WScript
Dim objShellWindows

 Set objShell = CreateObject("Shell.Application")
 Set objShellWindows = objShell.Windows
 Set WScript = CreateObject("WScript.Shell")


 Dim ieStarted
 ieStarted = False

  Dim ieError
  ieError = False

    Dim seconds
      seconds = 0

  While (Not ieStarted) And (Not ieError) And (seconds < 30)

If (Not objShellWindows Is Nothing) Then
    Dim objIE As InternetExplorer
    Dim IE


    For Each objIE In objShellWindows

        If (Not objIE Is Nothing) Then

            If IsObject(objIE.Document) Then
                Set IE = objIE.Document

                If VarType(IE) = 8 Then

                    If IE.Title = EmptyTitle Then
                        If Err.Number = 0 Then
                            IE.Write LoadingMessage

                            objIE.navigate Sheet1.Login.Text
                        ieStarted = True
                        Set GetIE = objIE


                      Else

                       MsgBox ErrorMessage
                            Err.Clear
                            ieError = True

                            Exit For
                        End If
                    End If
                End If
            End If
        End If

        Set IE = Nothing
        Set objIE = Nothing
    Next
End If

Application.Wait Now + TimeValue("00:00:1")
seconds = seconds + 1
Wend

 Set objShellWindows = Nothing
 Set objShell = Nothing



   End Function

mit diesem code im in der Lage, um den browser zu öffnen, aber leider ist meine Webseite, ist das öffnen in outlook bereits geöffnet ist, pls help

InformationsquelleAutor nothingisimpossible | 2013-01-06

5

Offenbar die -nomerge argument verhindern, dass session verschmelzen.
```
Shell("iexplore.exe -nomerge http://www.yoursite.com")
```
UPDATE

Wie pro Ihren Kommentar, die Sie benötigen, um das IE-Objekt. Sie können in der Lage sein, mit dieser zu arbeiten:
```
Dim wshShell
Set wshShell = WScript.CreateObject("WScript.Shell")

wshShell.Run "iexplore -nomerge http://www.google.com"

Dim objShell
Set objShell = CreateObject("Shell.Application")

Dim objShellWindows
Set objShellWindows = objShell.Windows

Dim i
Dim ieObject
For i = 0 To objShellWindows.Count - 1
    If InStr(objShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        Set ieObject = objShellWindows.Item(i)
        If VarType(ieObject.Document) = 8 Then
            MsgBox "Loaded " & ieObject.Document.Title
            Exit For
        End If
    End If
Next

Set ieObject = Nothing
Set objShellWindows = Nothing
Set objShell = Nothing
Set wshShell = Nothing
```
dies öffnet ein browser in einer neuen Sitzung aber ich konnte nicht ie-Objekt für es, überprüfen Sie bitte den code habe ich beigefügt. brauche ich, um die Funktionalität zu arbeiten, als "wenn wir uns öffnen Sie eine Neue Sitzung aus dem Menü Datei"
Sie könnten in der Lage sein, um anzupassen Antwort. Ich werde sehen, wenn ich es vereinfacht und werde zu aktualisieren meinem Beitrag, wenn ich kann.
danke, dass du so viel code in den link, den Sie gegeben haben, funktioniert perfekt, außer ich muss meine Startseite leer, für es zu arbeiten:(
mit dem code, den Sie gegeben haben, im immer das Objekt der explorer bereits geöffnet ist, bevor diese exlorer
Leider bin ich kein VBA-Programmierer und ich wirklich nur gehackt das zusammen. Haben Sie vielleicht zu suchen für Ihre IE-Instanz von URL, oder überprüfen Sie das Fenster Eigenschaften für Hinweise über die Fenster liegt bei Ihnen.

InformationsquelleAutor Cᴏʀʏ

Verwendung von Excel 2010 - Das ist, was ich mit einer Befehlsschaltfläche. Ersetzen google.com mit der website, die Sie öffnen möchten, in einem anderen browser.

Private Sub commandname_Click()

'Opens an Explorer with a web site 

Dim IE As InternetExplorer

  Set IE = CreateObject("InternetExplorer.Application")

  IE.navigate ("http://WWW.GOOGLE.COM")

  IE.Visible = True

End Sub

InformationsquelleAutor Melissa D

1

Diese Antwort funktioniert bei mir nach der änderung:
```
Dim IE As InternetExplorer
```
zu
```
Dim IE As Object
```
InformationsquelleAutor hod

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.