• ベストアンサー

FollowHyperlink 　ブラウザの基準は

ＩＥ８です。 エクセルで Sub test() ActiveWorkbook.FollowHyperlink "http://www.yahoo.co.jp/" End Sub を実行すると 既に開いているブラウザが上記のURLに更新されちゃったり 新規のブラウザが立ち上がったり 動作がまちまちなのですが 何を基準に決まるのでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • DOUGLAS_
  • ベストアンサー率74% (397/534)
回答No.2

#1 DOUGLAS_です。 ＞[タブ ブラウズの設定] ＞によって決まるという事ですね。 　これは「確認」でしょうか？ 　前回答の操作を行なっていただいて、その後、まだなお、mqokvsbvcさんの環境では ＞既に開いているブラウザが上記のURLに更新されちゃったり ＞新規のブラウザが立ち上がったり ＞動作がまちまちなのです か？ 　症状からして、恐らく、mqokvsbvcさんの場合は、 ・[現在のタブまたはウィンドウ(C)] が有効になっているのではないかと存じます。 　ですから、 １）既にブラウザが開いている場合は、 ＞既に開いているブラウザが上記のURLに更新されちゃったり ２）まだブラウザが開いていない場合は、 ＞新規のブラウザが立ち上がったり するのではないかと存じますが、いかがですか？

mqokvsbvc
質問者

お礼

ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • DOUGLAS_
  • ベストアンサー率74% (397/534)
回答No.1

１）ＩＥの メニューバーから、[ツール(T)] - [インターネット オプション(O)] で [インターネット オプション] ダイアログ を開いてください。 ２）[全般] タブ - [タブ] セクション - [設定(T)] をクリックして、[タブ ブラウズの設定] ダイアログ を開いてください。 ３）[他のプログラムからのリンクを開く方法] セクション にある３つのラジオボタンの内、 ・[新しいウィンドウ(O)] が有効になっていると ＞新規のブラウザが立ち上がったり ・[現在のウィンドウの新しいタブ(B)] が有効になっていると、既に開いているブラウザに新しいタブが開きます。 ・[現在のタブまたはウィンドウ(C)] が有効になっていると ＞既に開いているブラウザが上記のURLに更新されちゃったり します。

mqokvsbvc
質問者

お礼

[タブ ブラウズの設定] によって決まるという事ですね。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Hyperlink.Followはブラウザを指定

    Hyperlink.Followはブラウザを指定して開くことはできませんか？ ブラウザはＩＥを使ってるのですが 二つのウインドウを開いている場合、 ウインドウＡのＩＥで開くようにすることは可能でしょうか？ Sub Sample() Application.FollowHyperlink "http://www.yahoo.co.jp/" End Sub をすると、どうやら現在位置版最前面にあるウインドウで開かれるようです。

  • ＵＲＬを開く

    エクセルＶＢＡでＵＲＬを開くときは ActiveWorkbook.FollowHyperlink "http://www～" だったのですが アクセスＶＢＡではどうすればいいのでしょうか？ 同じコードをアクセスＶＢＡに貼り付けて実行してみましたが 「実行時エラー９１」と言うエラーになります。 多分「ActiveWorkbook」の部分がエラーになっていると思います。 よろしくお願い致します。

  • アクセス　自身のデータベース名を取得するのは「CurrentDatabase」ではない？

    Sub test() MsgBox CurrentDatabase End Sub を実行すると 「変数が定義されていません。」となってしまいます。 エクセルで言う MsgBox ActiveWorkbook.Name を行ないたいのですがどんなコードを書けばいいのでしょうか？ よろしくお願いします。

  • エクセルVBAでアクセスの更新クエリを実行

    エクセルVBAでアクセスの更新クエリを実行する方法はありますか？ アクセスもエクセルも常に起動している状態です。 エクセルからアクセスの更新クエリを実行するコードを教えてください。 アクセスで実行するとしたら Sub test1() DoCmd.OpenQuery "更新クエリ" End Sub というコードになります。 できれば、ADODBを使ったやり方がいいのですが、 エクセルからアクセスのプロシージャーのtest1を呼ぶしかないのでしょうか？

  • Passwordプロパティ

    Sub test() Debug.Print ActiveWorkbook.Password End Sub を実行すると ******** が返ってくるのですが パスワードはかけてないファイルでも、かけてるファイルでも 必ず「********」が返ってくるのですか？ だとしたら意味のないプロパティな気がするのですが・・・・

  • ファイル名のみを取得するには？

    Sub 取得() MsgBox ActiveWorkbook.Name End Sub を実行すると 「エクセル.xls」 と取得されますが 拡張子を除いたファイル名だけを取得するにはどうすればいいでしょうか？ 「エクセル」だけを取得したいです。 よろしくお願いします。

  • Excel ： OpenTextメソッドが正常に動作しないのはなぜ？

    下記のようなマクロを作りました。 Sub sample() FileName = ThisWorkbook.Path & "\test.txt" Workbooks.OpenText FileName:=FileName, Comma:=True ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:=xlCSV ActiveWorkbook.Close End Sub test.txt には次のテキストが書かれています。 "あ"," あ " 上記のマクロを実行すると、テキストの中身は次のようになってしまいます。 """あ"",""",あ,"""" 本来であれば、テキストの内容には変化が全くないはずだと思います。 原因が不明なのですが、マクロの動作確認をしたところ、 OpenTextメソッドでテキストを開いたときにすでに、 カンマの位置で区切られてセル内に入っていませんでした。 どのようにすればOpenTextメソッドは希望する動作をしてくれるのでしょうか？

  • エクセルVBAでBOOKのダウンロード日時を取得したいのです。

    社内のイントラネットに貼り付けたエクセルのBOOKを、社員が各自の端末にダウンロードした日時を、そのダウンロードされたBOOKのマクロで取得したいのです。 ためしに、以下のようにしてみました。 Sub test01() MsgBox "FileDateTime:" & FileDateTime(ThisWorkbook.FullName) End Sub これでは、常にそのBOOKを起動した日時が取得されるだけでした。 Sub test02() MsgBox "作成者は：" & ActiveWorkbook.BuiltinDocumentProperties(3).Value _ & vbCrLf & "最終更新者は：" & ActiveWorkbook.BuiltinDocumentProperties(7).Value _ & vbCrLf & "作成日時は：" & ActiveWorkbook.BuiltinDocumentProperties(11).Value _ & vbCrLf & "更新日時は：" & ActiveWorkbook.BuiltinDocumentProperties(12).Value End Sub これは、イントラに貼り付けたオリジナルのBOOKの作成日時、更新日時等のデータでした。 ダウンロード日時を取得することはできないのでしょうか？ やりたいことは、改定等があった場合、いつまでも古いバージョンを使いつづけられないようにダウンロード日から例えば３０日間を使用期限に設定するというようなことです。

  • ラウザ経由でエクセルVBAを実行するとエラーになる

    ブラウザからエクセルを表示してコードを実行するとエラーになる htmlでエクセルのファイルにリンクさせてあるのですが、 ブラウザからエクセルファイルを表示してコードを実行するとエラーになります。 エクセル単体で実行すれば問題ありません。 ちなみにhtml側は、 同一フォルダに<a　href="test.xls">テスト</a>と記述して、ファイル名がテスト.htmlです。 －－－－－ WinXP、エクセル2003、IE6、です 各々バージョンアップ不可です、これらの対応は却下です。 以下にコードを記載します。 ファイル名がtest.xlsで、sheet1に記載。 sheet1は最初に保護されている状態で、パスワード無しです。 －－－－－－－－ '標準モジュール sub test() activesheet.unprotect range("a2").select end sub ーーーーー 'sheet1にコマンドボタン1を設置してある。標準モジュールに記述 private sub commandbotton1_click() userform1.show end sub ----------------- 'userform1にコマンドボタン2を設置してある。userform1に記述 private sub commandbotton2_click() call test end sub -------------- でsheet1のコマンドボタン1を実行すると、 実行時エラー'91': オブジェクト変数またはwithブロック変数が設定されていません となります。 activesheet.unprotect　の行で停止します。 －－－－－ こうすればブラウザからでも出来るよという回答をお願いします。 上の記述ではunprotectが書いてありますが、 別に保護解除が目的ではなく、なぜブラウザ経由ではエラーになるのか？というコード上の矛盾点みたいななのを知りたいのです、 よろしくお願いします。

  • vbaでIEの操作

    こんばんは。やりたいことができないので教えてください。 vbaで指定のｕｒｌを開きたいです。 エクセル2003とIE8です。 Sub test001() Dim ObjIE As Object Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.navigate "http://jp.msn.com/" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop End Sub これでIEを立ち上げてURLを開けるのですが これでは新しいウインドウで開いてしまいます。 現在IEを立ち上げていて、上記のコードを実行すると 新たなタブで開きたいですが解決策はありますか？ ObjIE.Visible = True　が原因かと思い、これを抜かしてみましたが そうすると何も起こりません。 ＶＢＡで既に開いているIEの新しいタブでＵＲＬを開く方法をご教授ください！よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する