Sample Code
Option Explicit
Sub ie_openNew_tab()
'-----------------------------
'Thanks for downloading the code. 
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Channel: Youtube.com/vbaa2z
'Download free codes from http://vbaa2z.blogspot.com
'Autor: L Pamai (vbaa2z.team@gmail.com)
'-----------------------------
    Dim IE As InternetExplorer
    Set IE = New InternetExplorer
    
    IE.Visible = True
    IE.Navigate "http://www.google.com"
     
     'wait for page to load
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
        IE.Navigate "https://www.youtube.com/watch?v=9NAePF58L2Y", CLng(2048)
        IE.Navigate "https://www.youtube.com/watch?v=V8s4976Ajfw", CLng(2048)
        IE.Navigate "https://www.youtube.com/watch?v=787tdgvG8oQ", CLng(2048)
        IE.Navigate "https://www.youtube.com/c/vbaa2z?sub_confirmation=1", CLng(2048)
        
    Set IE = Nothing
    
End Sub
 
No comments:
Post a Comment
Note: only a member of this blog may post a comment.