…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…

Outlook VBA 受信メールを .Move 移動先Folderオブジェクトで移動させる ループに注意

…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…

エクセルのマクロ記録で写真の挿入を記録して .Pictures.Insert を探ったお話

…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…

Outlook VBA 添付ファイル写真の取り出し はてなの質問にチャレンジしてみた。テストしてみた

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "https://www.boatrace.jp/owpc/pc/race/beforeinfo?rno=2&jcd=23&hd=20190226" '表示終了まで待つ .Busy(忙…

XXXXXさんへ IE操作 シートの値でURLを作り処理を行う

…t objie = CreateObject("InternetExplorer.application") objie.Visible = True '見えるようにする(お約束) objie.Navigate "http://www.yahoo.co.jp" Do While objie.Busy = True Or objie.readyState DoEvents Loop Dim mi As HTMLDocument Set mi = objie.Document ’…

XXXXXさんへ ページが変わるたびにset mi=objie.documentとしなくてもよいのでしょうか？

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 'ページの表示 '処理したいページを表示します。 objIE.Navigate "https://www.yah…

XXXXXさんへ VBA IEで二つのページを表示 .Navigate2 メソッド &H800指定で新規タブ 隣のタブ

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

デバッグ JRA HP表示変更で単勝オッズの取り込みに失敗 F12で要素を確認して修正する

…d With 貼り付けの部分 'Outlook貼り付けのコマンドをコマンドバーから探す を Set oApp = CreateObject("Outlook.Application") で起動しているので、 With oApp.ActiveInspector '貼り付け .WordEditor.Windows(1).Selection.Paste End With にすると、動くのかな？検索しただけで、試していませんが、解決の糸口となれば幸いです。 三流プログラマー Ken3

XXXXXさんへ VBA Outlook グラフ送信について

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

XXXXXXさんへ JRA サイトから レース結果を取り込む

…)Set sh = CreateObject("Outlook.Application")For i = 2 To sh.Range("A1").End(-4121).RowSet m = ol.CreateItemFromTemplate("C:\work\test.oft")m.TO = sh.Cells(i,"A").Valuem.Subject = sh.Cells(i,"D").Valuem.Attachments.Add "C:\work\" & sh.Cells…

XXXXXXさんへ Excel VBA コードを VBSで動作させる時にエラーが発生する件

…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") 'olFolderCalendar 9 予定フォルダ ※カレンダー '次は作業フォルダーの指定(.GetDefaul…

XXXXXXさんへ Outlook 予定表 分類を探る olApptItem.Categories

…t objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したＵＲＬに飛ぶ(テストのHTMLを表示する) objIE.Navigate "http://www.ken3.org/vba/test155.html" '表示終了まで待つ Do While objIE.Busy = True '何もしないループ（笑） DoEvents Loop …

XXXXXさんへ IE操作「Webページからのメッセージ」(Javascriptのalert)を消す方法

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ n = 0 For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTML…

Excel UserForm Mode モードレスとIEを前面 おまけの WithEvents IE

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら…

Excel Formから起動済みのIEを選択 Bodyの値を取得するテスト

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

テスト JRA単勝オッズをレース別に複数蓄積する

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

JRA 単勝オッズ取得 いただいた要望 開催日とレースの指定にチャレンジ

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

JRA 単勝オッズ取得 コードまとめ と Sleep DoEventsの違いをテスト

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

JRA HP から 単勝オッズの取り込み 開催場所でループ

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

コピペで作るプログラム と 変数とループを使ったプログラム

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

IE操作 Web上の表 取り込み rowspan の対応を少し考えてみた

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

ライブ配信でIE操作の参照設定など JRAオッズ取得できなかったけど・・

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows strTemp = "" strTemp = objWindow.document.body.innertext ' strTemp = objWindow.document.getElementsByTagName("div").innertext If InStr(strTemp…

XXXXXさんへ If TypeName(objWindow.document) = "HTMLDocument" のチェックを残してみては？

…t objIE = CreateObject("Internetexplorer.Application") '新しいIEオブ ジェクトを作成してセット objIE.Visible = True 'IEを表示 objIE.navigate "http://inquiry.daihatsu.co.jp/gradeweb/" 'IEでURLを開く Do While objIE.Busy Or (objIE.readyState <> 4): DoEvents: Loop objI…

XXXXXさんへ IE操作 msgBox を 入れて、デバッグする 三流な方法？

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "http://ie.vba-ken3.jp/test/20161101j1j2.html" '表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が４以外…

XXXXXさんへ VBA IE操作 1ページに複数のテーブルがある場合

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェ クトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.Top = 0 objIE.Left = 0 '処理したいページを表示します。 objIE.Navigate "http://ie.vba- ken3.jp/test/20160706/test20160706.html" 'ページの表示完了を…

XXXXXさんへ IE操作 img src の ファイル名を取得したい

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.Top = 0 objIE.Left = 0 '処理したいページを表示します。 objIE.Navigate "http://www.ken3.org/cgi-bin/test/test029-2.asp" 'コメントにしてエラーをテスト 'ペー…

VBA IE操作 オートメーションエラー .Busy .ReadyStateで表示を待ちましょう

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 テストページへ移動 objIE.Navigate strURL DoEvents 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.Read…

XXXXXさんへ IE操作 .getElementsByTagNameで集め .NextSiblingで次を取得してみては？

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows Debug.Print "タイトル:" & objWindow.document.Title Debug.Print "URL:" & objWindow.document.URL Next Set objShell = Nothing End Sub または、 6/5 VBA IE…

XXXXXさんへ TypeNameでエラーの件 未解決でお力になれずスミマセン。

…bjShell = CreateObject("Shell.Application") Set objIE_I = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If InStr(objWindow.d…

XXXXXさんへ 新規に起動したIEを見つけるサンプル