-
三流君の [コンビニ系HPへ] [VBA系HPへ] [ASP系HPへ] [愚痴系HPへ]

Excel97 VBA から IEを起動

インターネットエクスプローラーの操作 関連項目
[No.50 IE起動 CreateObject("InternetExplorer.application")]
[No.52 InternetExplorer.application .document.body.innerText]
[No.53 文字列を探す、InStr関数の使い方]
[No.70 InternetExplorer.application .document.all(0).innerHTML]
[No.71 IE操作 リンク先を取出す .Document.links(i).href]

サンプル→036.LZH 13KB をダウンロードして、見てください。
Excel97 VBA CTRL_IE5.xls が入っています




Excelファイルを開くと、下記のように表示されます。
好きなURL,コメントを登録します

IE起動のボタンを押します。
IEが連続起動されます。
'------------------------------------------------------------ 'IE5.0 連続起動テスト 'お気に入りページを連続で開く '朝一番で、5・6ヶ所、巡回している人向け Sub IE_OPEN_TEST() Dim oIE As Object Dim nYLINE As Integer Dim time3 As Date '確認を取る、、、 If MsgBox("IEを起動します", vbYesNo) = vbNo Then Exit Sub End If 'IEのオブジェクトを作成する Set oIE = CreateObject("InternetExplorer.application") '見えるようにする、、、逆に見えなくて巡回もあり? oIE.Visible = True '見出しを抜かした2行目から、URLを開く nYLINE = 2 While Len(Cells(nYLINE, 1) & "") <> 0 Cells(nYLINE, 1).Select DoEvents 'セルに代入されているアドレスを表示する ,1で新しいウインドウ oIE.Navigate Cells(nYLINE, 1), 1 'ここで無効なアドレス(読めなかったとき)の処理を入れたい '今は、手抜き、、、 '3秒後を計算して、待つ 待たなくてもいいんだけど、、、 time3 = DateAdd("s", 3, Now()) Do While Now() < time3 DoEvents Loop nYLINE = nYLINE + 1 Wend oIE.Quit '一番始めの空のIEを閉じる、、、 '行儀良くクリアした時、不正な処理で落ちたことあり、、なぜ? 'oIE = Nothing End Sub '------------------------------------- 自動巡回ソフトを目標に、正月休みにトライしたのですが、 IEを開くのと、URL指定しかわからなかった。。。 次のステップは、ソース(HTML)をHDに保存し、 リンク先を読み込み、階層処理。。。


質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
感想や質問・要望・苦情など 三流君へメッセージを送る。
時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。
あなたのお名前(ニックネーム):さん
返信は?: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい

(感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[
三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)

2000/05/13 SQL Count関数を使ってみる
2000/05/11 Access97 標準関数Midなどが使えない
2000/05/09 SendObjectのエンコード
2000/05/08 クエリーで〜以外とは
2000/04/27 Imagingコントロールを使ってみた
2000/04/25 Excel97 VBA イベントなど
2000/04/24 Access97で複数のプリンタを切替えて使用
2000/04/20 書式付きエクスポート DoCmd.OutputToで、できます
2000/04/19 Access97でExcel形式へExport時に書式設定を行いたい
2000/04/13 Access97でOutlook97/98とリンクする方法
2000/04/13 VBA Nameステートメント
2000/04/04 Accessでキー取得
2000/04/04 AccessでFile参照ダイアログ?
2000/04/03 縦書用数値変換改良
2000/04/01 Access Err テーブルを消したい
2000/03/31 縦書き数値、どうしてますか?
2000/03/29 VBA 手抜きで、処理後、explorerを開く
2000/03/28 Access --> Word へデータ
2000/03/24 名前一覧Excelの機能で、同じことできました
2000/03/23 Excel97 VBA セルに付けた名前一覧を作成する
2000/03/21 Excel セルに名前付け
2000/02/25 iniFileを読む GetPrivateProfileString
2000/02/15 Excel VBA Rangeオブジェクトとサンプル
2000/02/14 Access97 SizeMode/OLEサイズ で画像調整
2000/02/10 Access97 Pictureプロパティとサンプル
2000/02/09 Access97 集計クエリーで重複値をハジク
2000/02/07 Access97 サブフォームへ値をセット
2000/02/04 Access97 コントロールソース、チョットした使用法
2000/02/01 Access97 フォームフッター
2000/01/18 Access97 now()関数で有効期限処理、、、

←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社(アスキー、インプレス等)が共同運営するコンピュータの本・専門店 種類が豊富で探し易い※在庫ありが48時間以内発送


[三流君(TOP)]へ戻る。