CreateObject の検索結果:
…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…
…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…
…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をセット …
…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…
…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("d:\JRA_TEST\20220508\pptest.pptx") 'WScript.Sleep(1000) '1秒待つ ※これが無いと、下の.Runがうまく動作しなかった、なぜ？ 'あれ？無くても動いた、気になるけど、なくていいか。 oApp.ActivePresentat…
…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…
…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がないと処理…
…eStream = CreateObject("SAPI.SpFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.SpVoice") Set oVoice.AudioOutputStream = oFileStream oVoice.Speak strNo…
…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 …
…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…
…eStream = CreateObject("SAPI.SpFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.SpVoice") Set oVoice.AudioOutputStream = oFileStream oVoice.Speak strNo…
…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\日…
…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '新規プレゼンのファイル作成 新規の空ファイル作成 oApp.Presentations.Add WithWindow:=msoTrue 'スライドの追加 'レイアウトの種類 'Layout:=ppLayoutText 2 'Layout:=ppLayoutTitleOnly 11 'Layout:=ppLayoutTwoCo…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…
…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 …
…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…
…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…
…bjEXCEL = CreateObject("Excel.Application") 'エクセルのアプリケーションを作る objEXCEL.Visible = True '可視、見えるようにする。お約束／呪文？ objEXCEL.UserControl = True 'マクロ終了後、ユーザー操作可能とする。※最近見かけないのでなくていいかも objEXCEL.Workbooks.Add '新規のブック作成 objEXCEL.Sheets.Add '新規のシート追加 'サブフ…
…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(忙…
…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 ’…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 'ページの表示 '処理したいページを表示します。 objIE.Navigate "https://www.yah…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…
…d With 貼り付けの部分 'Outlook貼り付けのコマンドをコマンドバーから探す を Set oApp = CreateObject("Outlook.Application") で起動しているので、 With oApp.ActiveInspector '貼り付け .WordEditor.Windows(1).Selection.Paste End With にすると、動くのかな？検索しただけで、試していませんが、解決の糸口となれば幸いです。 三流プログラマー Ken3
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…
…)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…
…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") 'olFolderCalendar 9 予定フォルダ ※カレンダー '次は作業フォルダーの指定(.GetDefaul…
…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 …
…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ n = 0 For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTML…
…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…
