質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Google Chrome OS

Google Chrome OSは、Google社が開発するオープンソースのオペレーティングシステムです。Linuxベースで、同社のWebブラウザーであるGoogle Chromeの利用を目的としています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Google

Googleは、アメリカ合衆国に位置する、インターネット関連のサービスや製品を提供している企業です。検索エンジンからアプリケーションの提供まで、多岐にわたるサービスを提供しています。

Q&A

解決済

1回答

6090閲覧

VBA(Excelマクロ)を使用して任意のブラウザで、URLからサイトを開きたい

退会済みユーザー

退会済みユーザー

総合スコア0

Google Chrome OS

Google Chrome OSは、Google社が開発するオープンソースのオペレーティングシステムです。Linuxベースで、同社のWebブラウザーであるGoogle Chromeの利用を目的としています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Google

Googleは、アメリカ合衆国に位置する、インターネット関連のサービスや製品を提供している企業です。検索エンジンからアプリケーションの提供まで、多岐にわたるサービスを提供しています。

0グッド

0クリップ

投稿2018/11/14 15:42

前提・実現したいこと

VBA(Excelマクロ)でエクセルのシート内にあるURLを押下して
任意のブラウザでサイトを開くシステムを作っています。
ブラウザ:IE、Googlechrome

《略式》
URL→クリック→別シートにある文字を確認する→IE又はGoogleかを確認する
→IE→IEでサイトを開く
→Google→GoogleChromeでサイトを開く
→それ以外→メッセージ表示

発生している問題

IE(TnternetExplorer)で、URLからサイトを開くことはできました。
しかし、GoogleChromeを起動されるとこまではできましたが、シート
に書かれているURLからサイトを開く方法が分からない状況

→どのようなコードを記述すればよいか、教えていただきたいです。

以上、宜しくお願い致します。

該当のソースコード

ソースコード '**************************************** '【機能】入力されたセルの位置確認 '**************************************** Public Sub URL_PG() '【変数】 Dim r As Long Dim c As Long Dim myURL As String '【コード】 '「URL」シート選択 Sheets("URL").Select '行 r = ActiveCell.Row '列 c = ActiveCell.Column '「ブラウザ」シート選択 Sheets("ブラウザ").Select '「URL」シートのセルの位置と同じ「ブラウザ」シートのセルの位置選択 Cells(r, c).Select '「ブラウザ」シート内のブラウザ名の確認 '「IE」の場合 If Cells(r, c).Value = "IE" Then '「IE」で開く処理へ Sheets("URL").Select myURL = Cells(r, c).Value Call OP1((myURL)) 'Googleの場合 ElseIf Cells(r, c).Value = "Google" Then 'GoogleChromeで開く処理へ Sheets("URL").Select myURL = Cells(r, c).Value Call OP2((myURL)) '「ブラウザ」シート内のブラウザ名が指定されている名称以外の場合(空白含む) Else 'メッセージボックスの表示 MsgBox "指定されたブラウザ名を入力してください" End Sub '**************************************** '【機能】ブラウザ:IEで、サイトを開く '【引数】 'myURL:IEで開くURL '**************************************** Sub OP1(myURL As String) '【変数】 Dim objIE As InternetExplorer '【コード】 'IEのオブジェクトを作成する Set ocjIE = CreateObject("InternetExplorer") With objIE 'IEを非表示 .Visible = False '指定したURLのページを表示する .navigate myURL '完全にページが表示されるまで待機する Do While ReadyState <> 4 'Webページが読み込み中 Do While Busy = True '一時的に制御をOSに移す DoEvents Loop Loop 'IEを表示する Visible = True End With 'IEオブジェクトを開放 Set objIE = Nothing End Sub '************************************************ '【機能】ブラウザ:GoogleChromeで、サイトを開く '【引数】 'myURL:Chromeで開くURL '************************************************ Sub OP2(myURL As String) '【変数】 Dim ocjGC As InternetExplorer '【コード】 'Chromeのオブジェクトを作成する Set ocjGC = CreateObject("WScript.Shell") 'Chromeのexeがあるフォルダの指定 objGCCurrentDirectory = "C:\Programe Files\Google\Chrome\Application" 'Chrome.exeの実行(Trueの場合) objGCRun """chrome.exe""", 1, True End Sub ### 試したこと 変数である「myURL」を使って、何とかできないか試しています。 ### 補足情報(FW/ツールのバージョンなど) なし

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

chrome.exe https://teratail.comhttps://teratail.com を開けます。

投稿2018/11/14 22:15

編集2018/11/14 22:17
Zuishin

総合スコア28656

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2018/11/18 14:40

回答してくださり、ありがとうございます。 うまく処理できました。
Zuishin

2018/11/18 14:47

ならば質問を閉じてください。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問