Открыть несколько файлов *.html

 Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " + "C:\Документ1.html", vbNormalFocus
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " + "C:\Документ2.html", vbNormalFocus

var navOpenInBackgroundTab = 0x1000;
var oIE = new ActiveXObject("InternetExplorer.Application");
oIE.Navigate2("http://blogs.msdn.com");
oIE.Navigate2("http://blogs.msdn.com/tonyschr", navOpenInBackgroundTab);
oIE.Navigate2("http://blogs.msdn.com/oldnewthing", navOpenInBackgroundTab);
oIE.Navigate2("http://blogs.msdn.com/ericlippert", navOpenInBackgroundTab);
oIE.Visible = true;

    Dim o As Object
    Set o = CreateObject("InternetExplorer.Application")
    
    o.Visible = True
    o.navigate2 "C:\Документ1.html"
    o.navigate2 "C:\Документ2.html", 2048

Option Explicit
Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'сделать окно во весь экран
Global Const SW_MAXIMIZE = 3
 
Sub IE_из_файла_html()
 
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    IE.Visible = True
    IE.navigate2 "C:\18.09.2011 21.20.18.html"
    IE.navigate2 "C:\18.09.2011 21.15.40.html", 2048
    'IE.Activate
 
    'сделать окно IE во весь экран, для своей работы должна быть добавлена apiShowWindow Lib
    apiShowWindow IE.hWnd, SW_MAXIMIZE
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set IE = Nothing
 
End Sub

ie.fullscreen=true

Dim Opera As Variant
Opera = Shell(PathName:="C:\Program Files\Opera\opera.exe", WindowStyle:=vbNormalFocus)