「オーケー。これで下準備はばっちりだ。あとはオンライン操作処理に特化したコーディングをすればいいわけだね」
'サンプルオンラインシステム起動処理
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