バグ付きなので参考程度に Excel VBA アクティブシート内の表をPowerPointへコピペ(転記)する複数の表を探す #デバッグ #バグ

VBA Excel

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '新規プレゼンのファイル作成新規の空ファイル作成 oApp.Presentations.Add WithWindow:=msoTrue 'スライドの追加 'レイアウトの種類 'Layout:=ppLayoutText 2 'Layout:=ppLayoutTitleOnly 11 'Layout:=ppLayoutTwoCo…

2020-11-26

XXXXXさんへ Q: Yahoo競馬の着順情報を取りたい A: DIV Class=XXXX を.ClassNameで取り出すテスト

VBA IE操作

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

2019-11-01

人力検索の回答下書き ExcelのA列をPowerPointのスライド１ページ単位で作成する

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '新規プレゼンのファイル作成新規の空ファイル作成 oApp.Presentations.Add WithWindow:=msoTrue 'ここからスライドをA列のデータがなくなるまで、追加する Dim n As Integer Dim strTITLE As String 'A列のデータをタイトルにする For n = 1 …

2019-06-06

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

Outlook VBA

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

2019-05-27

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

Excel VBA

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

2019-05-22

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

VBA Outlook

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

2019-02-27

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

…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(忙…

2018-12-29

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

VBA IE操作

…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 ’…

2018-12-12

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

VBA IE操作

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

2018-12-09

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

VBA IE操作

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

2018-10-23

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

VBA Outlook

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

2018-07-21

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

VBA IE操作

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

2018-07-11

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

Excel VBA VBS

…)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…

2018-07-10

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

VBA Outlook

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

2018-04-18

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

VBA IE操作

…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 …

2017-08-09

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

VBA IE操作

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

2017-08-08

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

IE操作 VBA

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

2017-08-05

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

IE操作 VBA JRA

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

2017-07-30

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

IE操作 VBA

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

2017-07-22

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

IE操作 VBA

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

2017-07-22

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

IE操作 VBA

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

2017-07-21

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

IE操作 VBA

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

2017-07-16

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

雑談

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

2017-07-15

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

IE操作 VBA

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

2017-07-15

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

IE操作 VBA

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

2017-07-12

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

IE操作

…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…

2017-03-22

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

VBA IE操作デバッグ

…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…

2016-12-06

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

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

2016-07-06

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

VBA IE操作

…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" 'ページの表示完了を…

2016-06-24

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

…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" 'コメントにしてエラーをテスト 'ペー…

三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

CreateObject の検索結果:

バグ付きなので参考程度に Excel VBA アクティブシート内の表をPowerPointへコピペ(転記)する複数の表を探す #デバッグ #バグ

XXXXXさんへ Q: Yahoo競馬の着順情報を取りたい A: DIV Class=XXXX を.ClassNameで取り出すテスト

人力検索の回答下書き ExcelのA列をPowerPointのスライド１ページ単位で作成する

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ken3 ホームページ目次

Googleを使用して検索する

CreateObject の検索結果:

Ken3 ホームページ 目次

Googleを使用して検索する

Ken3 ホームページ目次