三流君 ken3のmemo置き場

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

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

CreateObject の検索結果:

JRA三連複のオッズ取得 JRAのHPから三連複のオッズをExcelに取り込む デバッグ

…ocument = CreateObject("htmlfile") 'Set oDocument = New HTMLDocument '参照設定したとき 'oDocument.write "<html><body>test</body></html>" 'HTMLをセット 'Stop strHTML = Replace(strHTML, "script", "") 'scriptを止めるTEST oDocument.write strHTML '取得したHTMLをセット …

JRAオッズ取得 ワイドのオッズを取得 MSXML2.XMLHTTPとCreateObject("htmlfile")を使用してデバッグ

…XMLHTTP と CreateObject("htmlfile")を使用して JRAオッズ取得 ワイドのオッズ取得に挑戦してみました。#JRA #競馬 #オッズ取得 #ワイドオッズ #IEサポート終了 #MSXML2.XMLHTTP #htmlfile #デバッグ #ExcelVBA #MSExcel下記、いつもの解説動画です。 とても※長いので休憩を取りながら、ソースコードと一緒にみてください。 途中コーヒー休憩、ブレイクタイム必要です。ぉぃぉぃ。 www.youtube…

ExcelからOutlook HTMLMail作成 WordEditor時 末尾にデータを追加したい時 カーソル移動のテスト

… Set ol = CreateObject("Outlook.Application") Set mail = ol.CreateItem(0) mail.Display 'ol.ActiveInspector.WindowState = 1 mail.Subject = "【ご連絡】社内承認状況について" mail.BodyFormat = 2 Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection sel…

Outlook予定表に書込み 登録後カレンダー表示 CalendarViewModeを1日単位の日ビュー表示にする

…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") Dim aITEM 'As Outlook.AppointmentItem '予定、アポ 'CreateItemで予定の作成 Set aITEM = oApp.CreateItem(1) 'olAppointmentItem=1 1予定・アポを指定 aITEM.Display '編集画面表示 いら…

パワポでノートを読み上げるマクロボタンを設置する PowerPoint VBA SAPI.SpVoice Speak

…objSAPI = CreateObject("SAPI.SpVoice") objSAPI.Speak strNOTE '.Speakに文字列を渡す Set objSAPI = Nothing End Sub 2.追加したマクロを実行する図形やアイコンを追加して 挿入・動作でマクロ実行3.あとは、確認した図形やアイコンを必要個所にコピーする4.気になった点 ノート読み上げマクロにして受講生に配布だと、 4.1 最近、マクロのセキュリティの問題など、別なことに注意が必要かなぁ…

Access OLE型で登録された Wordアートの文字列を取り出し 文字を読み上げる

…objSAPI = CreateObject("SAPI.SpVoice") objSAPI.Speak strMOJI '.Speakに文字列を渡す Set objSAPI = Nothing End Sub 2.Word ワードアート内の文字列を取り出すWordアートもシェイプの一部として扱われているみたいなので(勘違い?最近から?) WordVBA TEST Sub test() Debug.Print Application.Name Dim n As Integer…

Excel複数画像ファイルリスト から パワポのスライドに図・画像を貼り付ける パワポ図を作成

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '新規プレゼンファイルの追加 https://www.youtube.com/watch?v=5ZQMhv0s9qs ppApp.Presentations.Add '新規プレゼンの追加 Dim objSlide As Object 'スライドオブジェクト Dim objPicture As Object '図 Picture Dim r…

VBScriptに画像ファイルをドラッグAndドロップして パワポのスライドに図・画像を複数貼り付ける

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '新規プレゼンファイルの追加 https://www.youtube.com/watch?v=5ZQMhv0s9qs ppApp.Presentations.Add '新規プレゼンの追加 Dim objSlide 'スライドオブジェクト Dim objPicture '図 Picture For n = 0 to nMAX - 1 '配列…

XXXXXさんへ Outlook VBA 送信時にフラグのセット について

…et oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 strSenderAddress = Item.SendUsingAccount.CurrentUser.Address 'VBA161でFLG関係のテスト objMAIL.FlagStatus = olFlagMarked 'olFlagMarked (2)をセット参照設定時は定数で obj…

Excel英単語から機械音声付きの縦スライドPowerPointを作る 自動転記マクロのテスト

…Set oPP = CreateObject("PowerPoint.Application") oPP.Visible = True '可視にする '新規プレゼンファイルの追加 https://www.youtube.com/watch?v=5ZQMhv0s9qs oPP.Presentations.Add WithWindow:=msoTrue '新規プレゼンの追加 '縦のスライドにする https://www.youtube.com/watch?v=pcjlxaZWgn…

Excel wav作成 機械音声変換 言語の指定を409英語にして音声ファイル.wavを作成してみた

…eStream = CreateObject("SAPI.spFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.spVoice") Dim US '言語の指定 2022/05/16 テストで英語USにしてみた。 Set US = oVoice.GetVo…

Excel VBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得

…ocument = CreateObject("htmlfile") 'Set oDocument = New HTMLDocument '参照設定したとき 'oDocument.write "<html><body>test</body></html>" 'HTMLをセット 'Stop strHTML = Replace(strHTML, "script", "") 'scriptを止めるTEST oDocument.write strHTML '取得したHTMLをセット …

XXXXXさんへ YouTubeのテキストエリアの書き出しの件 スクレイピング pythonで検索してみては? IE非推奨サイトが増えてきて寂しいなぁ

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Top = 0 objIE.Left = 0 objIE.Visible = True '見えるようにする(お約束) Call SetForegroundWindow(objIE.hwnd) '前面にIEを表示 Dim n As Integer Dim i As Integer '添え字 i番目などで使用 Dim strWORK…

VBSからPowerPoint を起動して スライドショーの実行 SlideShowSettings.Run 自動実行もどきを作成してみた

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("d:\JRA_TEST\20220508\pptest.pptx") 'WScript.Sleep(1000) '1秒待つ ※これが無いと、下の.Runがうまく動作しなかった、なぜ? 'あれ?無くても動いた、気になるけど、なくていいか。 oApp.ActivePresentat…

VBSで JRAオッズ自動取得Excelマクロ を10分間隔で タスクスケジューラ を使い起動したテスト

VBS

…et oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.UserControl = True '東京 '1.2 ファイルを開く sFileName = "c:\JRA_TEST\20220501\20220501単勝オッズ東京.xlsm" oApp.Workbooks.Open sFileName WScript.Sleep 500 '1.3 マクロの実行 oApp.RUN "ie…

CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例題でJRAオッズを取得してみた

…ocument = CreateObject("htmlfile") で作成したhtmlfileドキュメントオブジェクトに html文字列を書き込む、そんなデバッグ風景です。下記、いつもの あのあの そのその 解説動画です www.youtube.com https://www.youtube.com/watch?v=RjZZUq40gxY 目次 00:00 0.IEが無くなるので CreateObject("htmlfile") 00:26 1.DoEventsがないと処理…

Excel VBA 短い台詞から.wavファイル 機械音声を作成してみた

…eStream = CreateObject("SAPI.SpFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.SpVoice") Set oVoice.AudioOutputStream = oFileStream oVoice.Speak strNo…

複数ファイルをドラッグAndドロップでvbsへ投げ Excelでファイル名一覧 や Wordに複数画像ファイルの貼り付け VBSのコマンドライン引数 Arguments を利用

VBS

…xcelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.Workbooks.Add '新しくブックを追加 'A1セル~単純にファイル名を代入する For n = 0 to nMAX - 1 '引数配列は0からなので-1までループ excelApp.Cells(n + 1, 1) = Wscript.Arguments(n) 'A列にファイル名をセットする Next MsgBox …

ExcelからWord #データ差し込み 処理を #デバッグ してみた Excel VBA IsDate("1200-10") が True になるので小細工してみた・・・

…t wdapp = CreateObject("Word.application") wdapp.Visible = True 'テンプレートワードのパス取得 Dim path As String path = ThisWorkbook.path & "\マクロ用.docx" 'エクセルのデータを1行ずつ処理 For i = 2 To cmax 'テンプレートワードを開く Dim wddoc As Word.Document Set wddoc = wdapp.Documen…

VBA PowerPoint 全てのスライドを選択しながら スライドノートを音声に変換して埋め込む #VBA #PowerPoint #ノート #音声埋め込み

…eStream = CreateObject("SAPI.SpFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.SpVoice") Set oVoice.AudioOutputStream = oFileStream oVoice.Speak strNo…

XXXXXさんへ Excel VBA 1行単位 A列からE列 5つのデータをPowerPointの1スライド 縦に5個並べたテキストボックスにセットする

VBA

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '2.ExcelからPowerPointへデータを流し込む '2.1 Excelからテンプレ.pptxを開く Const strOpenFileName = "D:\2021\テンプレ000.pptx" '元のテンプレートファイル名 Dim strSaveFileName As String '保存ファイル名をD:2021\日…

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

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

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

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

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

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

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 添付ファイル写真の取り出し はてなの質問にチャレンジしてみた。テストしてみた

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

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

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

…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さんへ VBA IEで二つのページを表示 .Navigate2 メソッド &H800指定で新規タブ 隣のタブ

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

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)