New Tab (CTLR+T) ile yeni adres ekleme

[cellswhite]

Arkadaslar merhabalar,

Site icerisinde kodlardan yararlanarak bir calisma yapmaya çalıştım , çalışma hatasız işliyor bir sıkıntı yok , ama şöyle bir revizyon yapılabilinirmi yapılması mümkünse mevcut kodu revize nasıl edebiliriz,

    Dim IE As Object
    Dim  HTML_Tables As Object, MyTable As Object
        For k = 25 To 2 Step -1
            
            If Cells(k, 3) <> Empty Then
                Cells(k, 3).Select
                URL = Cells(k, 1)
                sifre = Cells(k, 2)
                
                [b]'''Sizlerden destek istedigim konu su: her seferinde yeni IE açmasinde New Tab[CTRL+T] yaparak yeni adresi oraya tanimlamasini istiyorum 
                ''' Destek verebilirseniz cok sevinirim,[/b]
                
   Set IE = CreateObject("InternetExplorer.Application")  '' [b] Sıkıntılı alanım burası[/b]
    
    With IE
        .Navigate URL
        .Visible = True
        
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop
         DoEvents: DoEvents
        Application.Wait Now + TimeValue("00:00:01")
         With .Document.All
            Application.Wait Now + TimeValue("00:00:01")
            .UserName.Value = "admin"
            .Password.Value = sifre
            IE.Document.forms(0).submit
        End With
    End With
            End If
    Next
    Set HTML_Tables = Nothing
    Set MyTable = Nothing

 

[cellswhite]

selamlar ,
Konuya bakma fırsatı olan oldu mu?

 

[TEGCreative]

Merhaba ; http://www.makeuseof.com/tag/using-vba-to-automate-internet-explorer-sessions-from-an-excel-spreadsheet/

Bu makaleyi incelemenizde fayda var. Kolay gelsin.

 

[cellswhite]

Teşekkurler aradıgım buydu ,
Sevgiler

 

[cellswhite]

Selamlar,
Yeni TAB açarak sayfayı açması ok ama , aşağıdaki elementlere bunları yazdıramıyorum , inceleyip edit edebilmeniz mümkünmüdür
Teşekkurler,
.username.value="admin"
.Password.Value = sifre

 

[cellswhite]

Selamlar ,

Dim IE As Object
Dim shellWins As New ShellWindows  
Dim IE_TabURL As String
Dim intRowPosition As Integer

intRowPosition = 2

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate Sheet1.Range("A" & intRowPosition)
With IE.document.all
            .UserName.Value = "admin"
            .Password.Value = Sheet1.Range("b" & intRowPosition)
            IE.document.forms(0).submit
End With

While IE.Busy
  
    
    DoEvents
Wend

intRowPosition = intRowPosition + 1

While Sheet1.Range("A" & intRowPosition) <> vbNullString
    IE.Navigate Sheet1.Range("A" & intRowPosition), CLng(2048)

    While IE.Busy
        DoEvents
    Wend
    '''' Burayi yazdiramiyorum yeni acilan sayfada sikintim var
With IE.document.all
            .UserName.Value = "admin"
            .Password.Value = Sheet1.Range("b" & intRowPosition)
            IE.document.forms(0).submit
End With


    intRowPosition = intRowPosition + 1
Wend

Set IE = Nothing