この募集は2019年12月17日に終了しました。

エクセルVBAでWindows10IE11で起動した複数のIEを取得したいですの仕事 [IT・通信・インターネット]

エクセルVBAでWindows10IE11で起動した複数のIEを取得したいですに関する仕事・募集案件ページです。クラウドソーシングのランサーズで、Excelマクロ作成・VBA開発に関する最適な外注/発注先をお探しの方、副業案件・求人をお探しのフリーランスの方はまず会員登録がおすすめです。

Excelマクロ作成・VBA開発に関連した他の仕事を探す

Webシステム開発・プログラミングソフトウェア・業務システム開発ゲーム制作・開発サーバー・ネットワーク構築データベース設計・構築プロジェクトマネジメントその他 (システム開発) 株・FX・仮想通貨ツール開発スクレイピング・データ収集コード・バグ修正

見積もり募集の結果

募集期間

5日間

提案数

3件

当選人数

1 件

(募集人数1人)

実際の発注内容

依頼の予算

1 円 ~ 5,000 円

実際の支払い金額

1,000 円 ~ 2,000 円

製作期間

0日

実際の受注者

apfel

認定ランサー実績、報酬額、高評価などの条件を満たしたランサーです初心者にやさしい 6ヶ月以内に初心者クライアントの依頼に1回以上成約した、初心者にやさしいランサーです Windowsデスクトップアプリ、エクセル・AccessのVBA、Python、Gasはおまかせ

希望時間単価 ---
実績 985
評価満足率 100 %
プロジェクト完了率 98%

機密保持
本人確認
電話

・Excel、Access歴15年・C#歴10年・Windowsデスクトップアプリを中心に承っております。・Python歴5年・Microsoft Power Automate ■可能な業務・Excel、Access VBA作成・wpf等によるWindowsデスクトップアプリ作成（C#）・Google Apps Scriptによるスプレッドシート・Googl... 続きを読む

認定されているカテゴリースキル: Webシステム開発・プログラミング; Excelマクロ作成・VBA開発; ソフトウェア・業務システム開発; データ閲覧・検索・登録; データ収集・入力・リスト作成; データ整理・分類・カテゴリ分け; Excel; Access; GAS; Word; C#; ChromeExtension; ... もっと見る

対応可能な依頼のジャンル: 店舗（飲食店・居酒屋など）; IT・通信・インターネット; 人材紹介・人材派遣; 自動車・バイク; メーカー; ... もっと見る

発注者の声

大変迅速丁寧なご対応ありがとうございました。また機会がありましたらよろしくお願いいたします。以前にご評価を送信したはずなのですが、上手くできなかったようですのでもう一度評価をお送りさせていただきます。

この案件の内容を参考に募集する

見積もり募集の内容

依頼主の業種: IT・通信・インターネット

提示した予算: 1 円 ~ 5,000 円

依頼概要: 下記のようなマクロを作成して動かしたのですが、
グーグルは問題なく起動できて、データも取得できて
A1のセルに文字の書き込みもできました。

しかし連続して行ったAmazonについては
「For Each objWindow In objShell.Windows」が
素通り？してしまいましてウィンドウをとらえることができず、
A2のセルに書き込みができませんでした。

複数のタブ操作ではなく、複数のIEウィンドウを操作して
タイトル情報やURLを取得したり、指定のURLに
アクセスしたりすることは可能でしょうか？

どなたかご存じの方がみえましたらお願いいたします。
VBAにあまり詳しくないために分かりやすく説明していただけたら
大変助かります。

動作環境：WIndows10、IE11、Office365

Sub openIE()

Dim URL As String
Dim objIE As Object

Cells.ClearContents

URL = "https://www.google.co.jp/"
Set objIE = Nothing
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate (URL)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

Call getIE(objIE)

URL = "https://www.amazon.co.jp/"
Set objIE = Nothing
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate (URL)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

Call getIE(objIE)

End Sub
Sub getIE(objIE)

Dim objShell As Object
Dim objWindow As Object

Set objShell = CreateObject("Shell.Application")

For Each objWindow In objShell.Windows

If objWindow.document.Title Like "*Google*" Then
Range("A1").Value = "Google"
End If

If objWindow.document.Title Like "*Amazon*" Then
Range("A2").Value = "Amazon"
End If

Next
Set objShell = Nothing

End Sub