- 583 名前：名無しさん＠お腹いっぱい。 mailto:sage [2012/01/11(水) 15:28:03.88 ID:aWCCUq4y0]
- UWSC初心者なのでサンプルを見ながら応用しているのですが、
伺いたいことがありカキコします。
エクセルのセルA1のURLをIEで開き、ある時間が経ったらA2のURLをIEで開く・・・
そんなプログラムを検討しているのですが、当方エクセルがありません。
そこで、Open Officeで製作したxlsファイルで同様の事ができないかググッているのですが、
なかなか見つかりません。
下記のプログラムを応用したいのですが、Open Officeへ変更できないものでしょうか・・・
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
Excel.WorkBooks.Open(FileName :="C:\abc.xls")
Excel.Range("A1").select
URL = EXCEL.selection.value
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate(URL)
|
 |
