ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：VBAでＩＥのページを（メニュー選択）進める）

VBAでＩＥのページを進める方法

2014/02/18 21:06

このQ&Aのポイント

エクセルのVBAを使用して、ＩＥのページを進める方法を教えてください。
現在、VBAでＩＥのページを進めるコードを作成していますが、うまく動作しません。
objtag.Clickの部分でエラーが発生しており、正しい方法がわかりません。

007itochan
お礼率45% (178/389)

Visual Basic
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

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

ベストアンサー

todo36
ベストアンサー率58% (728/1234)

2014/02/19 13:11 回答No.1

クリックするのは、<li>の中にある<a>だから、 objtag.getElementsByTagName('A')[0].click もしくは objtag.firstChild.click

質問者

お礼 2014/02/19 13:49

感謝　解決

関連するQ&A

VBA IE制御　テーブルコピー

下記コードは、http://www.ken3.org/vba/backno/vba177.htmlからお借りしているものです。（一部ヤフーのデザインに変更があったため、変更しています。）実行してみると、本来７行４列である表が、１行目にすべて入り込んでしまいます。見直してみても、間違ってはいないように見えるのですが、原因はどこかわかりますでしょうか？よろしくお願いいたします。 Sub ie_make_table_test() Dim objIE As Object 'ＩＥオブジェクト参照用 Dim objTAG As Object 'TAGのオブジェクトを代入 Dim strURL As String 'URLの文字列 Dim strTAGNAME As String 'タグの名前保存用 Dim y As Integer Dim x As Integer Dim objTableItem As Object 'TABLE内のITEM検索用 Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '文字列で指定したＵＲＬに飛ぶ strURL = "http://table.yahoo.co.jp/" 'ベースURL strURL = strURL & "t?c=2004&a=10&b=4&f=2005&d=10" '期間 strURL = strURL & "&e=14&g=d&s=4753.t&y=0&z=4753.t" '銘柄コードなど??? objIE.Navigate strURL 'URLへ '表示終了まで待つ Do While objIE.Busy = True DoEvents Loop '新規ブックを追加する Workbooks.Add 'No.177で修正ブックを新規に１つ作る '.document から.getElementsByTagName("TABLE")でオブジェクトを取り出す For Each objTAG In objIE.document.getElementsByTagName("TABLE") 'TABLEの中、テキスト文字で[値上がり率]があるか、子TABLEは無しかチェック If InStr(objTAG.InnerText, "値上がり率") > 0 _ And InStr(objTAG.InnerHTML, "TABLE") = 0 Then '値上がり率在り、TABLE無しか '新規シートを追加する Sheets.Add 'No.177で修正、新規シートを作成する 'カウンタの初期化 y = 0 '行カウンタ 'テーブル内のITEMでループする For Each objTableItem In objTAG.all strTAGNAME = objTableItem.tagName 'テーブル、タグ名 If strTAGNAME = "TR" Then y = y + 1 '行カウンタを+1 x = 1 '列カウンタを１(左端にする) End If '↓No.177でTHもセットするように変更 TD or THの時 If strTAGNAME = "TD" Or strTAGNAME = "TH" Then 'テキストデータをセットする Cells(y, x) = objTableItem.InnerText x = x + 1 '列カウンタを+１(次にする) End If Next End If Next End Sub
VBAで起動しているIEの操作

IEでOKWAVEを開いていたら　イミディエイトウィンドウに　タイトルを表示するのに次の　記述をしましたが　エラーになりました。実行時エラー '-2147467259 (80004005)': 'Document' メソッドは失敗しました: 'IWebBrowser2' オブジェクトなぜでしょうか？ IEは１１です。エクセルは2013 OSは　windows７　ホームプレミアム vbsは次の通り Sub okwave() Dim colSh As Object Dim win As Object Dim strTemp As String Dim objIE As Object Set colSh = CreateObject("Shell.Application") For Each win In colSh.Windows If TypeName(win.document) = "HTMLDocument" Then If InStr(win.document.Title, "okwave") > 0 Then Set objIE = win Exit For End If End If Next Debug.Print objIE.document.Title End Sub
IEの操作（Busy）でエラーになる

下記コードを実行するとBusyの所でエラーになってしまいます。何が悪いのでしょうか？教えて下さい。 Excel2000で起動しました。 Sub tst031() Dim fff As String 'ファイルパス Dim objIE As Object 'オブジェクト Dim Myhtml As Variant 'HTMLタグデータ Dim objTAG As Object '制御htmlファイル fff = "http://oshiete.goo.ne.jp/" 'Webページ表示 Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate fff '画面表示待ち Do While objIE.Busy = True DoEvents Loop For Each objTAG In objIE.document.body.all Debug.Print objTAG.tagName Next objIE.Quit 'MsgBox Myhtml End Sub
ｖｂａ　ｉｅ操作　ボタンを押したい

こんばんは。度々すいません。またまたIE操作で詰んでしまいました。以前、http://hiroba.chintai.net/qa7798169.htmlで質問してご回答いただいたのですが違うサイトにも応用しようとしたところ、うまくいきませんでした。 https://www.jaccs.co.jp/icmclub/icm_login.htmlのログインボタンを押下したいのですが Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.navigate "https://www.jaccs.co.jp/icmclub/icm_login.html" objIE.Visible = True Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then Debug.Print myObj.alt myObj.Click Exit For End If End If Next Set objIE = Nothing End Sub をするとエラーにもならないけどボタンも押せません。でもmyObj.Clickは通過しているようです。なぜボタンを押せないのでしょうか？ご教授よろしくお願いします。
vba　ie操作　検索後のタイトルが取得できない

vba　ie操作ヤフーファイナンス　検索後のタイトルが取得できないｗｉｎ８、エクセル２０１０です。ヤフーファイナンスで会社名を検索して、その後のコードを取得したいのですがその場合、タイトルに企業コードがあるので、その文字を取得しようとしたら、検索前のページが取得されてしまいます。 ------------------------------------------------------------ Dim objIE As New InternetExplorer Sub test() Dim str企業名 As String Dim myObj As Object str企業名 = "ホテルオークラ" Set objIE = CreateObject("InternetExplorer.application") With objIE .navigate "http://finance.yahoo.co.jp/" .Top = 0 .Left = 0 .Width = 1000 .Visible = True End With Call IE_wait For Each myObj In objIE.document.all.tags("input") If myObj.ID = "searchText" Then myObj.Value = str企業名 Exit For End If Next For Each myObj In objIE.document.all.tags("input") If myObj.ID = "searchButton" Then myObj.Click Call IE_wait Exit For End If Next Debug.Print objIE.document.Title Set objIE = Nothing End Sub ----------------------- Sub IE_wait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.readyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub ------------------------------------------------------------ というコードなのですが検索語の２ページ目は「(株)京都ホテル【9723】：株式-株価 - Yahoo!ファイナンス」というタイトルなのに１ページ目と同じ「Yahoo!ファイナンス - 株価やニュース、企業情報などを配信する投資・マネーの総合サイト」が返ります。なぜ次のページのタイトルが取得できないのでしょうか？画面上ＩＥブラウザには２ページ目が表示されています。
Aa

Microsoft Internet Controlsの参照設定 Option Explicit Sub テキストボックス操作() Dim ie As InternetExplorer Dim txtInput As HTMLInputElement Dim txtOutput As HTMLInputElement Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://book.impress.co.jp/appended/3384/4-2.html" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop Set txtInput = ie.document.getElementById("Text1") MsgBox txtInput.Value Set txtOutput = ie.document.getElementById("Text2") txtOutput.Value = "VBA からの書き込み" End Sub Sub ラジオボタンの操作() Dim ie As InternetExplorer Dim radio1 As HTMLInputElement Dim radio2 As HTMLInputElement Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://book.impress.co.jp/appended/3384/4-6.html" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop For Each radio1 In ie.document.getElementsByName("Radio1") If radio1.Checked = True Then MsgBox radio1.Value Exit For End If Next For Each radio2 In ie.document.getElementsByName("Radio2") If radio2.Value = "女" Then radio2.Checked = True Exit For End If Next End Sub Sub ハイパーリンクをクリック() Dim ie As InternetExplorer Dim anchor As HTMLAnchorElement Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://book.impress.co.jp/appended/3384/4-7.html" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop For Each anchor In ie.document.getElementsByTagName("A") If anchor.innerText = "やきそばパン vs 揚げパン" Then anchor.Click Exit For End If Next End Sub Sub ボタンをクリックボタン2() Dim ie As InternetExplorer Dim button As HTMLInputElement Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://book.impress.co.jp/appended/3384/4-8.html" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop For Each button In ie.document.getElementsByTagName("INPUT") If button.Type = "button" And button.Value = "ボタン２" Then button.Click Exit For End If Next End Sub
同じページでｇetElementsを複数回使用する

タイトルが文字数の関係でおかしいのですがエクセルＶＢＡで　ＩＥのＨＰに　値を代入して、送信するのですが同じページで　oObjDoc.getElementsByName（）やoObjDoc.getElementsByＩＤ（）などで、値を代入したいのですが、この構文の２回目の所で　エラ検出の　debugに　「書き込めない」　などのエラーが出ます。（当然、実際もスルーされます）初期化がまずいのか　判断しかねています。一般的なＩＤ、ＰＳＷ代入ページから来ました Sleep 500 Set oObjDoc = Nothing Set pitem = Nothing Set oObjDoc = objIE.document Set pitem = oObjDoc.getElementById("order_type") value = "通常注文" 実際は3パターン Dim order As Object For Each order In pitem If InStr(1, order.innerText, value) > 0 Then pitem.value = order.value Exit For End If Next pitem.Click Set pitem = Nothing Sleep 500 id = "変更" '上記の入力を確定させるためだと思う　変更クリック Set pitem = oObjDoc.getElementById(id) For Each pitem In objIE.document.getElementsByTagName("input") If pitem.value = id Then Exit For End If Next pitem.Click 'オーダーの内容 If TradeForm.ordertype_btn1 = True Then value = "3" Else value = "1" End If Set aradio = oObjDoc.getElementsByName("side") Debug.Print aradio.Length For i = 0 To aradio.Length - 1 Debug.Print i Debug.Print aradio(i).Name 2回目で　エラー70　書き込みできません。 Debug.Print aradio(i).value If "side" = aradio(i).Name And　aradio(i).value = value Then aradio(i).Checked = True Exit For End If Next Set pitem = Nothing で、aradio.Length　は　2を返して　 Set aradio = oObjDoc.getElementsByName("side") はＨＰ内容と一致、動作しているようですで、１回まわって　２回目（これが答えなのですが）の　i=1　で　次 aradio(i).Name 　が　取れません。 debug.printは　 2 0 side 3 1 ところが前の id = "変更" '変更クリック Set pitem = oObjDoc.getElementById(id) を　全部レムれば　プログラムは　通ります。 debug.print　が　書き込めない　と言うエラーも　今まで始めてみました。どれかの初期化が　抜けているのでしょうかよろしくどうぞ
vba IE操作で　こういう事ってできない？

vba IE操作で　こういう事ってできないのでしょうか？ Dim objIE As InternetExplorer Sub test() Dim myObj As Object Dim myStr As String Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://employment.en-japan.com/search/search_list.cfm?area=23&startRow=1&m=1&job=100000" objIE.Visible = True Call iewait For Each myObj In objIE.Document.all.tags("a") If myObj.outerText = "詳細を見る" Then myObj.Click Call iewait Debug.Print objIE.LocationName objIE.GoBack Call iewait End If Next objIE.Quit Set objIE = Nothing End Sub Sub iewait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub このコードを実行して、１ページ目の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し１ページ目に戻り、次の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し・・・と言う処理を繰り返したいのですが、１回目のmyObj.Clickを通った後（Call iewaitの後かも？）に、 myObjの値が変数なしになってしまい、２回目のIf myObj.outerText = "詳細を見る" Thenで書き込みできません。(Error 70) になります。１ページ目のリンクをクリックして、戻ってまた１ページ目のリンクをクリックして・・・と言う処理をしたい場合どうすればよろしいでしょうか？
VBA　IEを操作。ファイルダウンロード

IEを操作して、ファイルをダウンロードしようと思います。色んなサイトからとってきて、使わせてもらっています。 '---------------------------------IEを開くときに使う Sub IE_OPEN(webUrl As String) Dim objShell Dim writesheet As Worksheet Dim n As Long Dim ID As String, Password As String Set objShell = CreateObject("Shell.Application") Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate2 webUrl Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop Dim objINPUT Set objINPUT = ie.document.getElementsByTagName("INPUT") 'ループで頭からテキストが次へを探す For n = 0 To objINPUT.Length - 1 '※ type="submitボタンなので、.InnerTextじゃなくて、.Valueです ※※注意 If InStr(objINPUT(n).Value, "ログイン") > 0 Then '文字列の中から見つけたら Worksheets("Sheet1").Activate Do While ie.Busy Loop objINPUT(n).Click '見つけたINPUTタグのオブジェクトをクリック Do While ie.Busy Loop Exit For End If Next Set objINPUT = Nothing 'オブジェクト変数解放 End Sub '------------------------------IEを開く（この段階では既に開いてあります。） Private Sub CommandButton1_Click() Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop ie.document.all.ah_ehName.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex) 'ID Do While ie.Busy Loop Dim objINPUT Dim n As Long Set objINPUT = ie.document.getElementsByTagName("INPUT") For n = 0 To objINPUT.Length - 1 If InStr(objINPUT(n).Value, "ダウンロード") > 0 Then objINPUT(n).Click Do While ie.Busy Loop Exit For End If Next Do While ie.Busy = True DoEvents Loop SendKeys "%S", True'保存 Do While ie.Busy = True DoEvents '何もしないループ（笑） Loop SendKeys "%O",True'ファイルを開く？ Do While ie.Busy = True DoEvents Loop 'ie.Quit End Sub ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝－面倒なので、IEはPublic変数としてモジュールに書いています。（色んなモジュールを経由する必要があるため、このような手段を取りました） SendKeysをIEに送るというのが出来ずに困っています。ダウンロードというボタンを押してのダウンロードなので、ダウンロード用のURL等は分かりません。 Excel2003を使っています。どうにかSendkeysで出来ないでしょうか？もしくは、もう少し分かりやすい方法は無いでしょうか。（ファイルを保存しますか？のダイアログの「保存」をクリックして　所定の場所におき、開きたい。　そのまま開くのでもいいけれど、動作が不安定になるのは困る）以上、よろしくお願い致します。
VBAで配列のNULL判定

VBAで下記のように配列に設定したNULL値を判定しようとしました。 Dim str() ReDim Preserve str(2) str(0) = "aaa" str(1) = Null str(2) = "bbb" 以下(1)、(2)の分岐処理ではNullと判定されませんでした。どのように判定すれば良いでしょうか？ (1) If str(1) = Null Then Debug.Print "Null値です" End If (2) If str(1) = "" Then Debug.Print "Null値です" End If
VBAのIE操作でclickがうまくいきません

自動ログインのマクロを他の人のパソコンで使おうとしたとき、正常に動くパソコンと途中で動かないパソコンがありました。インターネットを起動してリンク画像をクリックしたいのですが、数台のパソコンでクリックのところが何も動作せずエラーも出ないまま次の行に行ってしまいます。 VBAの参照設定やバージョン、インターネットオプションの詳細設定など色々見てみたのですが原因がわかりません。もし同じような症状が出た方がいらっしゃればご教授頂けたら有難いです。 Sub test() Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate ("http://www.google.co.jp/") set tep = .document.getElementsByTagName("img") For Each tmp2 In tmp If tmp2.alt = "Click" then tmp2.Click'←ここが反応してくれません Exit For End If Next End With End Sub
VBAでgetElementByTagName

ＶＢＡでＩＥを動かそうとしている初心者です。 For Each a In ie.Document.getElementByTagName("A") で実行時エラー'438':オブジェクトは、このプロパティまたはメソッドをサポートしていませんとなるのですがなぜでしょうか Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True '画面へ移動する ie.Navigate "http://www.forest.impress.co.jp/" waitNavigation ie Dim a As Object Dim urls As New Collection For Each a In ie.Document.getElementByTagName("A") urls.Add a.href Next
WinXP,7のIE8にて新規セッションで起動

VBAを使用してWebサイトにログインを行いたいのですが、ログインをする際に必ず新規セッションでウィンドウを起動してログインするようにするにはどのようなコードを組めばいいのでしょうか？下記のようなコードで現在は動かしているのですが、explore.exe -noframemergingで起動すれば新規セッションでIEを開けるとのことだったのですが、上手く組み込むことができません・・・。どのようにすれば上手く動くのでしょうか・・・。申し訳ありませんがどなたかご教授願います。 '========================================= sub ろぐいん() '変数 Dim IE As Object Dim UserID As String Dim UserPass As String 'ID,PASS設定 UserID = "ID" UserPass = "PASS" 'IE起動 Set IE = CreateObject("InternetExproler.Application") IE.Visible = True '接続 IE.navigate "http://" '文字入力 IE.document.gatelementbyid("ID").Value = UserID IE.document.gatelementbyid("PASS").Value = UserPass '送信 Call IEButtonClick(IE, " 送信 ") Set IE = Nothing End Sub 'クリック Public Function IEButtonClick (ByRef IE As Object, ButtonValue As String) Dim ObjInput As Object For Each ObjInput In IE,document,getelementsbytagname("INPUT") If ObjInput,Value = ButtonValue Then ObjInput,Click Exit For End If Next End Function '=========================================
ｖｂａコードが遅い

当方access2003、XP、メモリ２G、コア２ＤＵＯなのですが Sub 取得() Dim DB As DAO.Database Dim T As TableDef Set DB = CurrentDb Debug.Print "開始：" & Now For Each T In DB.TableDefs 'ここでやたら時間がかかる Debug.Print T.Name & "取得時間：" & Now Next End Sub これを実行すると、 For Each T In DB.TableDefs を通る時に5秒くらい時間がかかりますがそういうものなのでしょうか？
VBAでエクセルからツイッターに投稿

VBAでエクセルからツイッターに連続投稿したいのですが難しいでしょうか？？試しに作ってみたVBAです。 'モバイルなら投稿できるかも・・・？ Sub tweet() Dim ie As InternetExplorer Dim txtAreaInput As HTMLTextAreaElement Set ie = CreateObject("internetExplorer.Application") 'IEを開く○ ie.Visible = True ie.Navigate "https://mobile.twitter.com/compose/tweet" 'ツイッターを開く○ Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読み込みを待つ○ DoEvents Loop Range("B2").Select '画像ファイルのセルをコピー○しかし連続となるとやり方わからないです。 Selection.Copy Set txtAreaInput = ie.Document.getElementsByName("textarea")(0) 'セルを選択× txtAreaInput.Value = ActiveSheet.Cells(2, 1).Value ObjIE.Document.all("camera-input").Click '画像パスを開く×そもそもカメラボタンが消えている？？ SendKeys "^v{ENTER}" '画像ファイルのパスをペーストしエンター×効かない？？ For Each Anchor In ie.Document.getElementsByTagName("A") 'ツイートを投稿×ボタンが押せない If Anchor.innerText = " ツイート " Then Anchor.Click Exit For End If Next End Sub
vbaの繰り返し処理について

vbaです。 Sub Test1() Dim Str As String Dim Pnt1 As Long Dim Pnt2 As Long Str = Range("A1") Pnt1 = InStr(Str, "重 http://") If Pnt1 <= 0 Then Exit Sub Pnt2 = InStr(Pnt1, Str, "要") If Pnt2 <= 0 Then Range("B1") = Mid(Str, Pnt1 + 2) Else Range("B1") = Mid(Str, Pnt1 + 2, Pnt2 - (Pnt1 + 2)) End If End Sub という式でA1からA2.A3と下にURLが入っており空欄になるまで同じ処理をしたいのですがどのように変更すれば作動しますでしょうか？
VBでのIE操作

VBでのIE操作をしようとして色々調べています。色んなサイトを見ながら途中までは何とかできましたが、どうしてもリンク先を表示できません。お分かりになる方いましたら、お力添えいただければ幸いです。状況： Excel2007使用　　IE7　　VB初心者です。やりたい内容： VBでIEを立ち上げる ↓ ページからリンクをクリックする（ページ上に画像が貼り付けてあって、そこにURLくっついててハイパーリンクになっている。）（セキュリティの関係でハイパーリンク先を初期で表示することはできない。） ↓ 表示されたページに検索したい項目を入力 ↓ 結果をエクセルに反映する。以上の作業をVBで組もうと思ってます。よろしくお願いします。 Option Explicit Sub ie_test() 'IEの起動 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True '処理したいページを表示します。 objIE.navigate "処理したいページ" 'ページの表示待ち While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True DoEvents Wend '開かれたIEを探す。 Dim objSHELL As Object Dim objWINDOW As Object Dim newIE As InternetExplorer Dim wait_time As Date Dim yCNT As Long Dim i As Integer '表示待ち wait_time = DateAdd("s", 2, Now()) Do While Now() < wait_time DoEvents Loop 'リンクの貼ってある画像をクリック For i = 0 To objIE.document.images.Length - 1 If InStr(objIE.document.images.Item(i).outerHTML, "image/btn131b1.gif") > 0 Then objIE.document.images.Item(i).Click End If Next '表示待ち wait_time = DateAdd("s", 2, Now()) Do While Now() < wait_time DoEvents Loop 'シェルのオブジェクトを作成する Set objSHELL = CreateObject("Shell.Application") Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1) Set objSHELL = Nothing '新しいウィンドウのログインボタンを押す Dim objINPUT As Object 'Inputタグ格納用 For Each objINPUT In newIE.document.all.tags("INPUT") If objINPUT.Value = "ログイン" Then objINPUT.Click Exit For End If Next '調べる項目 For yCNT = 3 To 1002 ' If Trim(Cells(yCNT, 1)) = "" Then Exit For 'A列が空白になったらループを抜ける 'ページが表示されたので処理を行います。 newIE.document.all("phone_no").Value = Cells(yCNT, 1) 'A列の文字を参照する newIE.document.all("exec").Click ※ここでオブジェクト変数。。。のエラーが発生する※ '表示待ち wait_time = DateAdd("s", 2, Now()) Do While Now() < wait_time DoEvents Loop '表示されたウインドウからデータをセットする Cells(yCNT, 2) = newIE.document.body.innerText '検索の結果をエクセルに反映 '新しいIEを閉じる newIE.Quit Set newIE = Nothing '前のIEを閉じる objIE.Quit Set objIE = Nothing Next yCNT End Sub 初心者なので色々調べたのですがわかりませんでした。。。
VBA どこでもセル選択

教えて頂いたＶＢＡなのですがもう一つ Sub Macro1() Dim Ws01 As Worksheet Dim Counter As Long, i As Long, j As Long Dim INP As String Set wS = Worksheets("Sheet4") wS.Cells.ClearContents For i = 3 To ActiveSheet.UsedRange.Rows.Count INP = "" For j = Selection(1).Column To Selection(Selection.Count).Column If Cells(i, j) = 1 Then INP = INP & Cells(2, j) & "," End If Next j Counter = Counter + 1 If INP <> "" Then wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1) End If Next i End Sub -------------------------------------------------------------- For i = 3　のところを3としないでどのセル（行）にも対応させたいのですがどうすればいいでしょうか？
vbaで正規表現

正規表現のコードなんですが、上手く動きません。何故でしょうか… Sub Test() Dim reg As Object Dim ans As Object Dim c As Range Set reg = CreateObject("VBScript.RegExp") For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) With reg .Pattern = "^【[(1)-(20)](\d*/\d*)" Set ans = .Execute(c.Value) End With If ans > 0 Then If Len(ans(0).submatches(0)) > 0 Then Debug.Print c.Address & "|" & ans(0).submatches(0) End If End If Next End Sub
エクセルVBAで、IEからコピーするには

エクセル2000,win2000,IE6です。次のような、コードを書きました。 Sub t03ccc() Dim objIE As Object 'IE オブジェクト参照用 Dim objShell As Object 'Shell オブジェクト参照用 Dim objWindow As Object 'Window オブジェクト参照用 Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows '起動中のタイトルを探して。 If Left(objWindow.document.Title, 7) = "Office系" Then Set objIE = objWindow 'オブジェクトを代入 Msg = "Office系" Exit For End If Next If Msg <> "Office系" Then MsgBox "・・・スクリーニング結果一覧・・・がありません" Exit Sub End If objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択 objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー Sheets("Sheet3").Select Rows("1:200").ClearContents Range("A1").Select ActiveSheet.Paste '''' objIE.Quit Set objIE = Nothing Set objShell = Nothing Set objWindow = Nothing End Sub これで、エクセルとIEしか開いてないときは巧くいくのですが、エクスプローラーを同時に開くと実行時エラー438が出ます。よろしくお願いします。

VBAでＩＥのページを進める方法

VBAでＩＥのページを（メニュー選択）進める

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

お礼 2014/02/19 13:49

関連するQ&A

VBA IE制御　テーブルコピー

VBAで起動しているIEの操作

IEの操作（Busy）でエラーになる

ｖｂａ　ｉｅ操作　ボタンを押したい

vba　ie操作　検索後のタイトルが取得できない

Aa

同じページでｇetElementsを複数回使用する

vba IE操作で　こういう事ってできない？

VBA　IEを操作。ファイルダウンロード

VBAで配列のNULL判定

VBAのIE操作でclickがうまくいきません

VBAでgetElementByTagName

WinXP,7のIE8にて新規セッションで起動

ｖｂａコードが遅い

VBAでエクセルからツイッターに投稿

vbaの繰り返し処理について

VBでのIE操作

VBA どこでもセル選択

vbaで正規表現

エクセルVBAで、IEからコピーするには

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

VBAでＩＥのページを進める方法

VBAでＩＥのページを（メニュー選択）進める

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

お礼 2014/02/19 13:49

関連するQ&A

VBA IE制御 テーブルコピー

VBAで起動しているIEの操作

IEの操作（Busy）でエラーになる

ｖｂａ ｉｅ操作 ボタンを押したい

vba ie操作 検索後のタイトルが取得できない

Aa

同じページでｇetElementsを複数回使用する

vba IE操作で こういう事ってできない？

VBA IEを操作。ファイルダウンロード

VBAで配列のNULL判定

VBAのIE操作でclickがうまくいきません

VBAでgetElementByTagName

WinXP,7のIE8にて新規セッションで起動

ｖｂａコードが遅い

VBAでエクセルからツイッターに投稿

vbaの繰り返し処理について

VBでのIE操作

VBA どこでもセル選択

vbaで正規表現

エクセルVBAで、IEからコピーするには

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

VBA IE制御　テーブルコピー

ｖｂａ　ｉｅ操作　ボタンを押したい

vba　ie操作　検索後のタイトルが取得できない

vba IE操作で　こういう事ってできない？

VBA　IEを操作。ファイルダウンロード

カテゴリ
一覧

専門家に質問してみよう
専門家登録