「これがそのサンプルコード。単純にIEを起動して画面遷移するだけ」
'サンプルオンラインシステム起動処理
Private Function getOnline()
As InternetExplorer
Dim ie As
InternetExplorer
'IE起動→オンライン画面へ遷移
Set ie =
CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2
"http://macrogirls.net/sample/webonline.html"
waitNavigation ie
Set getOnline = ie
End Function