CreateObject の検索結果:
…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…
…bjEXCEL = CreateObject("Excel.Application") 'オブジェクトの作成 objEXCEL.Visible = True 'Excelを見えるようにする objEXCEL.Workbooks.Add 'Excelのブックを新規に作成(追加) 'Excelのシートを追加、シート名を氏名に変更する objEXCEL.Sheets.Add 'シートを追加する 'レコードセットを開く(QDATA) rs.Open "QDATA", CurrentP…
…w.youtube.com/watch?v=mOZqePSW0kY www.youtube.comWindows Vista の IE7保護モードだと、 Set objIE = CreateObject("InternetExplorer.application") で失敗する、そんなテスト動画です。続きの対策 手前味噌の方法は http://www.ken3.org/cgi-bin/group/vba_ie7.asp で逃げ手を考えてみましたがイマイチしっくりきてません。
http://www.youtube.com/watch?v=IMDbGEOXp_w www.youtube.comSet objIE = CreateObject InternetExplorer.application の テストです 解説は http://www.ken3.org/cgi-bin/group/vba_ie.asp です。
…et oApp = CreateObject("Excel.Application") > oApp.Visible = True > > On Error Resume Next > oApp.UserControl = True > > oApp.Workbooks.Open FileName:= _ > "C:\Documents and Settings\xxxxx\デスクトップ\等級基準表検討資料5級.xls" > > oApp.Range("所属").Value …
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 …
…手前味噌解説の OutlookのVBAをVBSで動かしたい CreateObject と olXXXXの定数を調べる http://d.hatena.ne.jp/ken3memo/20101018/1287345173 も見てください。)終わりのあいさつセットアッププログラムで自動に参照設定できたら苦労しないんだけど、 たまにバージョン違いや参照設定が外れていて、 受け取ったツールが動かない時は、自分で貼りなおしてみては?何かの参考となれば幸いです 三流プログラマー Ken3
…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…
…jACCESS = CreateObject("Access.Application") objACCESS.Visible = True 'Accessを表示ONあたりまえか objACCESS.UserControl = True 'Excelで操作するんだけど、ユーザーのTrueにしておく 'AccessのMDBを開く 'もちろん、次はファイルを開かないとね ファイル名 フルパスを渡す objACCESS.OpenCurrentDatabase "D:\vba\QA10…
…のところ2つかなぁ。CreateObject("Outlook.Application") で Outlookを起動この部分、 ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = Application.GetNamespace("MAPI") で、 エラー: オブジェクトがありません。:'Application' コード: 800A01A8 ソース: MicroSoft VBScript 実行時エラーまぁ、当然 Applicatio…
…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 0 objIE.Left = 0 objIE.Width = 1024 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "https://login.yahoo.co.jp/config/login" 'YAHOO ログイン DoEvents '1秒待ち Applicat…
…bjSHELL = CreateObject("Shell.Application") nCNT = objSHELL.Windows.Count '現在のShell Windowsの数 Debug.Print objSHELL.Windows.Count これの数が実際よりも多かったんだよなぁ、 While 1 で動かしていたけど、もっと早く気がつかないと(なんで気がつかなかったんだろうなぁ?) (パーツ屋に違法OSを売りつけられたと勘違いしないで、この時点で気がつかないと…
…bjSHELL = CreateObject("Shell.Application") nCNT = objSHELL.Windows.Count '現在のShell Windowsの数 Debug.Print objSHELL.Windows.Count これの数が実際よりも多かったんだよなぁ、 While 1 で動かしていたけど、もっと早く気がつかないと(なんで気がつかなかったんだろうなぁ?) (パーツ屋に違法OSを売りつけられたと勘違いしないで、この時点で気がつかないと…
http://www.youtube.com/watch?v=giTWBGG43Mg www.youtube.comSet objSHELL = CreateObject("Shell.Application")後、 For Each objWINDOW In objSHELL.Windows でループさせ、 objWINDOW.Topと.Leftを表示した簡単なテストですカテゴリ: 科学と技術タグ: 三流君 テスト結果 Ken3
…Vista IE7でCreateObject("InternetExplorer.application")後.Navigateしたら空白のIEができてしまい失敗したそんな画像です。 Windows Vista IE7 + Excel2007 で起動(.Navigate)の失敗ソースコードほか http://ken3-info.blog.ocn.ne.jp/code_gomibako/2008/04/windows_vista_i_d9bc.html を見て笑ってください。カ…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くなるまでループ Dim Wait_Time As Date '秒数を計算するため …
… oShell = CreateObject("WScript.Shell") For n = 1 To 14 oShell.Run "%ComSpec% /c Md e:\Public\TEMP\" & yyyymmdd(n) ,,True scopy = "e:\広告BACK2009\" & yyyymmdd(n) & "\OLD\ranking\*.* e:\Public\TEMP\" & yyyymmdd(n) & " /S" oShell.Run "%ComSpec…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする 'Only XL 97 supports UserControl Property 'On Error Resume Next oApp.UserControl = True yyyymmdd(1) = "2008-04-01" yyyymmdd(2) = "2008-04-15" yyyymmdd(3) = "2008-05-04" …
…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("E:\テスト.ppt") oApp.ActivePresentation.SlideShowSettings.Run For p=1 To 4 '偶数ページの時、何かする? If (p mod 2) = 0 then '偶数ページの時、テストでメモ帳(notepad)を起動 '…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.Rea…
…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る >という処理をしたあと、そのobjIEを最小化したいのですが、適切なコマンドが見当たりません。 VB API ウインドウ最小化 で検索すると、CloseWindowが見つかります。 で、その関数を呼ぶだけでOKかなぁ。。。 ※単純に新規にCreateObjectで起動したIEの.hWndの値を渡しただけです。 Option Explicit…
… 見つけるテスト 'CreateObject("Shell.Application") で '通常のフォルダー表示ファイルエクスプローラーとIE(インターネットエクスプローラー) 'を.FullNameで区別する Dim objShell As Object Dim objIE As Object Dim n As Integer 'これで、エクスプローラーのウインドウを取得する Set objShell = CreateObject("Shell.Application")…
…んだろうけど。。。 CreateObject("Excel.Application")でエクセルを起動するあとは、昔、AccessからExcelの起動を行ったサンプルがあったので ( No.002 AccessからExcel出力 http://www.ken3.org/vba/backno/vba002.html ) から、下記のコードを抜き出して、テストしてみました。 Sub test() Dim oApp As Object 'アプリケーションを入れる箱 Set oApp…
…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("E:\テスト.ppt") oApp.ActivePresentation.SlideShowSettings.Run For p=1 To 3 WScript.Sleep(5000) '5秒待つ oApp.SlideShowWindows(1).View.Next '次のページ…
…t objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したURLに飛ぶ objIE.Navigate "http://www.ken3.org/cgi-bin/test/test068.html" '表示終了まで待つ ※表示待ちができていない。 Do While objIE.Busy = True '何もしないループ(笑) DoEven…
…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 'strURL = "e:\work\index.html" 'ローカルでテスト strURL = "http://ken3-info.blog.ocn.…
…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 strURL = "http://ken3-info.blog.ocn.ne.jp/objie/2010/04/0428_javascript.html"…
はてなの 質問 http://q.hatena.ne.jp/1266074604 にどこかで見たURLが載っていたので、質問に答えてみた。(少しふざけてますが、サンプルは真剣に作りました。。。)サンプルプログラム http://www.ken3.org/vba/backno/vba097.html その人三流で情報のまとめ方がなっていないですよね今回押したいボタンには nameとかidが付いていないんですよね。 >>|html| ここ |
…t objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.GoHome 'ここで、新しいウインドウを開いたり、イロイロコードを書くぞ。 'やりっぱなしだけど、不思議なことに放置されたIEを操作して、 '新しいWindowを開くと、↓が走るよ。 End Sub 'objIE_NewWindow2 のイベントを拾う Private Sub objIE_NewWindow2(p…
…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る ページを表示 objIE.navigate "URL文字列" '文字列でURLを渡す 全選択(CTRL+A) objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択 コピー(CTRL+C) objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー'Excelに貼り付け …