2017年07月 / 06月≪ 12345678910111213141516171819202122232425262728293031≫08月

インフォメーション

FC2ブログで画像等を一括アップロードするソフトを地味に配布してます。
FC2ブログ用ファイルアップロードの最新版はこちら
(ベクター)FC2ブログ用ファイルアップロード

--.--.-- (--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


 |  --:--  |  スポンサー広告  |  Top↑

2010.09.02 (Thu)

OpenOffice.org BasicでIE操作

OpenOffice.org BasicでIE操作できたらしばらくExcelいらないんじゃないかと思ったのでやってみた。

こんな感じでセルに入れたURLを上から開いていくだけの処理。
uw000028.jpg


Sub OpenUrls
Dim IE As Object
Dim i As Integer
Dim oSheet As Object
Dim oCell As Object
oSheet = ThisComponent.Sheets(0)

IE = CreateObject("InternetExplorer.application")
IE.Visible = true
For i = 0 To 2
oCell = oSheet.getCellByPosition(0, i)
IE.Navigate(oCell.String)
Do
'ミリ秒指定
Wait(1000)
Loop Until Not IE.busy AND IE.readystate=4
'表示されたら3秒待つ
Wait(3000)
Next i
MsgBox("OK?")
'IE終了
IE.Quit
End Sub


問題なく出来た。ちゃんとIEが起動してURLを開いていったよ。
IEオブジェクトの操作はUWSCと同じに使えるし、特に問題ない。
これであれですね。大量データと連動したなんかとかやりやすそう。
Quit後にNothing入れたほうがいいのかな?


 |  16:45  |  OpenOffice  |  トラックバック(0)  |  コメント(0)  |  Top↑

Comment

コメントを投稿する

URL
コメント
パス  編集・削除するのに必要
非公開  管理者だけにコメントを表示
 

Trackback

この記事のトラックバックURL

この記事へのトラックバック

 | BLOGTOP | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。