CreateObject の検索結果:
…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に貼り付け …
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property 'On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 o…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property 'On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 o…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 oA…
…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") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.yahoo.co.jp/" '.Navigate メソッドで Yahooを表示する。 'ページの表示完了を待ちます。 While objIE.ReadyState <> …
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 oA…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 oA…
…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "http://www.cmegroup.com/trading/equity-index/international-index/nikkei-225-dollar_quotes_s…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 oA…
…et oApp = CreateObject("Excel.Application") などで起動しているので、頭に変数oApp.を付け oApp.Rows("4:5").Select oApp.Range("B4").Activate oApp.Selection.Copy oApp.Rows("6:" & y - 1).Select oApp.Range("B6").Activate oApp.Selection.PasteSpecial Paste:=xlPasteFo…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'テンプレートファイルをcopy 2009-11-28 追加 oA…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE 'AccessのデータをExcelへ代入する。 'ループ処理 y …
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 'テンプレートファイルを開く oApp.Workbooks.Open Filename:=strXLSFILE Exit_コマンド0_Click: Exit Sub Err_コマ…
…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True Exit_コマンド0_Click: Exit Sub Err_コマンド0_Click: MsgBox Err.Description Resume Exit_コマンド0_Clic…
AccessなどからCreateObject("Excel.Application")でExcelのオブジェクトを作り、 データをセットする、転記する。そんな感じの処理サンプルが多いのかなぁ。三流君 VBAで Access から Excel 連携 Excel.Application http://www.ken3.org/cgi-bin/group/vba_access_excel.asp ※カッコつけて、連携と書いてますが、どちらかと言えば一方通行のデータの流し込み、差し込…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing '初期化する(フラグ代わりも兼ねて、後でIs Nothingでチェックしたいので) '後ろから探す(素直に前から探してよ(笑)) '.Windowsでエクスプローラーとインターネットエクスプローラー(FullNameがIEXPLORE.EXE)にさわれる For n = objShell.Windows.Count To 1 Step -1 'MAX…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.kosho.or.jp/public/book/detailsearch.do" '.Navigate メソッドで表示する。 '↑上記のページの表示が完了するまで待ちます…
…t objIE = CreateObject("InternetExplorer.applicati on") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束)この三流サンプルを見た被害者が(読者が)他の掲示板などでご迷惑をかけているみたい なので、 正式な方法?行儀のいいキレイな参照設定する方法、操作を動画で説明します。※三流なゴミコードをアップしてネットのみなさんにご迷惑をおかけしてスミマセンでし た。。。 IEの操作を …
…et oApp = CreateObject("Excel.Application") とかで、Excelを起動していると思います。この Set XXXX がExcelとやりとりする変数なので(ここでは、oApp)、 XXXX.Application.DisplayAlerts = False XXXX.ActiveWorkbook.SaveAs Filename:="ファイル名" と頭に 使っている変数XXXX.を追加するだけで、Excel側のプロパティやメソッドが使えると…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くなるまでループ Dim Wait_Time As Date '秒数を計算するため …