エクセルやワードのIEへのリンクは新規ウィンドで開かれますよね?
リンクが複数あれば、複数ウィンド、リンクが一つでも複数回クリックすれば同じアドレスのIEが複数立ち上がってしまいます。
閲覧した後、じゃまにならないように閉じてから次のリンクを開くようにしていますが、いちいち閉じるのがめんどくさいので次のリンクをクリックしたら前に開かれていたウィンドと入れ替わりに開くような設定はありませんか?
Firefoxにあるようなタブ形式はイマイチですし・・
エクセル側、IE側どちらの設定でも構いません。
よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
Web サイトやPCのスペックによって、若干、うまく行かない可能性はありますが、このようなVBAで良いかと思います。本来は、全部のハンドルを取って行うべきかもしれませんが、スンナリ開かなくなるような気もしました。
ハイパーリンクでクリックするシートのモジュールに貼り付けてください。(シート・タブを右クリックすると、"コードの表示"がありますので、それをクリックします)
作動検査:Office 2003/IE 6.0)
'------------------------------------------------------------------------
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim objShell As Object
Dim objWin As Object
Dim cnt As Integer
Dim hwnd As Long
Const FCLASSNAME As String = "IEFrame"
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
If TypeName(objWin) = "IWebBrowser2" Then
If cnt = 0 Then
cnt = cnt - 1
objWin.Quit
End If
cnt = cnt + 1
End If
Next
Quit:
hwnd = FindWindow(FCLASSNAME, vbNullString)
SetForegroundWindow hwnd
Set objShell = Nothing
End Sub
この回答への補足
回答ありがとうございます。
お返事が遅くなってしまいました。
VBAとかスクリプトの類は全くわからないので、まずVBAの使い方/組み込み方を勉強するためのわかりやすいサイトを教えていただいていただけませんでしょうか?少しずつ勉強してみたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Chrome(クローム) Chromeで複数タブを開いた状態で閉じ、再度開いた場合のタブの回復は? 2 2022/04/02 01:44
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- ノートパソコン 現在、fu....さんWindows11proを使用しているのですがエクセルの起動が少し遅く色々試し 7 2023/04/01 10:30
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Windows 10 ファイルエクスプローラーでフォルダを閉じる操作について 2 2022/10/15 11:06
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
access2021 VBA メソッドまたは...
-
Access レポート印刷するときに...
-
ACCESS VBA でのエラー解決の根...
-
アクセスの更新クエリでカレン...
-
実行時エラー3131 FROM 句の構...
-
Accessのリンクテーブルのパス...
-
アクセス レポートを開いたとき...
-
Vba Userformを前面に出すについて
-
CSVファイルの「0落ち」にVBA
-
Accessのスプレッドシートエク...
-
Accessのクエリで、replace関数...
-
Accessで作ったデータベースをw...
-
Accessのフォーム上のテキスト...
-
Accessのテキストボックスの入...
-
windowos 11 Microsoft Edgeを...
-
access2019 チェックボックスと...
-
Access Error3061 パラメータが...
-
Access VBA [リモートサーバー...
-
accessデータを指定したExcel、...
-
Accessで独自メニューバーまた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
Accessのリンクテーブルのパス...
-
Access VBA [リモートサーバー...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
CSVファイルの「0落ち」にVBA
-
【Access】Dcount関数の複数条...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
実行時エラー3131 FROM 句の構...
-
Vba Userformを前面に出すについて
-
Accessでフォームに自動入力し...
-
Accessレポートのチェックボッ...
-
Accessのテキストボックスの入...
-
Access 複数条件検索の設定が上...
-
accessのフォームに設置したボ...
おすすめ情報