エクセルマクロでIEを操作させたいのですが、
javaで書かれていると思われるページの項目をクリックさせることが出来ません。
いろいろネットを調べたつもりなのですが出来ないため、アドバイスよろしくお願いします。
環境:WinXP,IE6,EXCEL2003
あるURL(公開されていません)を読み込むと出てくる最初のログイン画面では、
ソースを見て、下記エクセルマクロでログインまでは可能でした。
Sub ログイン()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://○○○/Servlet"
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.ReadyState <> 4
DoEvents
Loop
objIE.document.forms(0).Item("id").Value = "xxxxxx"
objIE.document.forms(0).Item("pass").Value = "yyyyyy"
objIE.document.forms(0).submit '送信処理
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.ReadyState <> 4
DoEvents
Loop
'ここのクリックが出来ません
objIE.document.forms(0).Item("NewData").Click
End Sub
ログイン後、左右分割フレームのページが表示されます。
左:メニュー、右:情報表示エリアです。
(ログイン後はjava?でフレームページを開いているようです。
ソースにフレームで開いているような記載が見当たりません)
左メニューのソース(加工してあり動作しません)は下記です。
<HTML>
<HEAD>
<TITLE>情報表示</TITLE>
<LINK rel=stylesheet type=text/css href='http://○○○/txt.css'>
<LINK rel='SHORTCUT ICON' href='http://○○○/txt.ico'>
<SCRIPT language=JavaScript src='http://○○○/txt2.js'></SCRIPT>
</HEAD>
<BODY>
<FORM action='' method=POST target='CONTENTS' name=servletAct>
<INPUT type=hidden name=code value='12345'>
</FORM>
<SPAN ID=list2 onClick=showlist(this,'menu2')>+</SPAN><SPAN onClick=showlist(list2,'menu2') style='nowrap:true'>項目A(親)</SPAN>
</FONT></B><BR>
<DIV ID=menu2 STYLE='display:none;margin-top:0em;'>
<TABLE style='font-size:3.0mm;'>
<TR>
<TD nowrap width=15 align=right><IMG src=http://○○○/bl.gif></TD>
<TD nowrap><A href=javascript:document.NewData.submit()>項目A-1(子)</A></TD>
</TR>
<FORM action=http://△△△/CallServlet method=GET target=CONTENTS name=NewData>
<INPUT type=hidden name=url value='http://△△△/PTServlet'>
<INPUT type=hidden name=Para1 value='NEW'>
<INPUT type=hidden name=Para2 value=''>
</FORM>
</TABLE>
</DIV>
</BODY>
</HTML>
項目A(親)をクリックすると項目A-1(子)が表示されます。(折りたたみメニュー?)
項目A-1(子)をクリックするとフレームの右:情報表示エリアに情報が表示されます。
エクセルマクロで、項目A(親)をクリック、項目A-1(子)をクリックをやりたいです。
(ダイレクトに項目A-1(子)でもいい)
objIE.document.forms(0).Item("NewData").Clickでは出来ませんでした。
(オブジェクト変数またはWithブロック変数が設定されていませんのエラー)
アドバイスよろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
java でなくて、JavaScript で、似ていて非なるものですね。(^^;
ご質問は、そのログを取れる人しか分からないので、ずばりの解答は出来ませんが、アドバイスとしては、
objIE.document.forms(0).Item("NewData").Click
必ずしも、Item に名称が入っているとは限りません。
タグの一覧を出して、それで探します。
だいたいは、
objIE.document.forms(0).Item(*).Click
*の部分は数字になることが多いようです。
例えば、以下のようにして、空のシートに、タグなどを出して探すしかないと思います。順序を見ていけば、これしかないというところが出てきます。
例:
On Error Resum Next
With objIE
For Each k In .Document.all.forms(0)
i = i + 1
Cells(i + 1, 1).Value = k.sourceindex
If Err.Number = 0 Then
Cells(i + 1, 2).Value = k.Type
Cells(i + 1, 3).Value = k.tagNAME
Err.Clear
End If
Next k
End With
On Error Goto 0
この回答への補足
ありがとうございます。
頂いたコードを試してみましたが、セルに出力されないためフレームページの影響かページのソースが特殊なのかもしれません。
他に、
For i = 0 To 139
objIE.document.all(i).Click
Next
のようにして、0~総辺りで試してみましたがダメでした。
#140で、オブジェクト変数またはWithブロック変数が設定されていませんのエラー
引き続きアドバイス募集しておりますのでお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript jqueryを使ったスムーススクロールのコードを書いたのですが、HTMLコード内にある、a butt 2 2022/04/14 10:59
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- HTML・CSS CSSが効かずどのように指定すれば良いか分からないのでアドバイスお願い致します 2 2023/06/07 12:25
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
access2000:フォームで入力し...
-
セルの右クリックで出る項目を...
-
Excelで空白以外の値がある列の...
-
BIOSでAHCIに設定したいが、項...
-
複数のレコードを1つのレコード...
-
SUBSTRING 関数に渡した長さの...
-
空白をそのままインポートする...
-
ORACLEでLONG項目からCHAR項目...
-
2行目を表示できますか?
-
Accessで数値型にNULLをInsert...
-
SQLのSELECT文で*を使わない理由
-
SQLでの変数の扱いについて
-
APN設定について教えていただけ...
-
DBのタイプの指定とサイズにつ...
-
ピボットテーブルについて 列フ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
access2000:フォームで入力し...
-
VBAで複数の数式セルを最終行ま...
-
株に関する用語集
-
必須入力項目と入力必須項目
-
他テーブルで一致する列から名...
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報