12,673
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==VBA 起動中のInternetExplorerを操作する== [IE]{{category VBA}} ===起動中のIEのツールバー、メニューバーを表示する=== *参考 **http://w…」
==VBA 起動中のInternetExplorerを操作する==
[IE]{{category VBA}}
===起動中のIEのツールバー、メニューバーを表示する===
*参考
**http://www.ken3.org/vba/backno/vba156.html
=====例=====
Dim shl As Object
Dim w As Object
Dim ie As Object 'InternetExplorer
Set shl = CreateObject("Shell.Application")
For Each w In shl.Windows
If TypeName(w.document) = "HTMLDocument" Then
Set ie = w
ie.Toolbar = 1
ie.MenuBar = True
End If
Next
[IE]{{category VBA}}
===起動中のIEのツールバー、メニューバーを表示する===
*参考
**http://www.ken3.org/vba/backno/vba156.html
=====例=====
Dim shl As Object
Dim w As Object
Dim ie As Object 'InternetExplorer
Set shl = CreateObject("Shell.Application")
For Each w In shl.Windows
If TypeName(w.document) = "HTMLDocument" Then
Set ie = w
ie.Toolbar = 1
ie.MenuBar = True
End If
Next
© 2006 矢木浩人
