エクセルvbaのIE制御について

最近の書き込み件数：今日 0件、昨日 0件
未読分：4件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#4 2014年12月18日(木)08時39分
From: 大雪

返事削除変更

Coding/VBA/IEの操作/IE9以降でのframe操作 - ClockAhead 記憶の欠片
http://wiki.clockahead.com/index.php?Coding%2FVBA%2FIE%A4%CE%C1%E0%...
(当初の質問でも書きましたが)Microsoft HTML Object Libraryに参照設定して固有型の変数で受けて、事前バインドで呼び出すコードに
書き換えればいいと思うのですが。

で、その時は上手く行かなかったとの回答がありましたが
(コードの提示がありませんでしたので)どんなコードからどの様なコードに書き換えたのか分かりませんし、
OKWaveのフォーカスの質問の返答を拝見しても、IEに関する理解が怪しいと思われるところがあります。

Message#3 2014年12月17日(水)23時50分
From: 砂糖位置

返事削除変更

TagNameは、HTMLタグ名、つまり「input」「form」「div」等のことです。もしかして、属性名と混同されていませんか？

　提示されているソースが存在するのであれば、

Set tag=doc.document.getElementsByTagName("input")
For k=0 To tag.Length-1
If (tag.Item(k).getAttribute("name")="abc") Then
Set input_tag=tag.Item(k)
Exit For
End If
Next

input_tag.Value="test"

これで抽出できるはずです。ただし、name属性が本当に、提示された箇所のみだった場合だけです。そこは確認してください。

Message#2 2014年12月17日(水)23時49分
From: 砂糖位置

返事削除変更

どのようなページで、どのようなコードを記述しているのでしょうか。

Set doc=ie.document.frames(1)
Set tag=doc.document.getElementsByTagName("input")

フレームならば、このような記述になると思うのですが、上手くタグがとれないのでしょうか。

こういった場合、URLと具体的なコードがないと、対処がしづらいと思います。

Message#1 2014年12月17日(水)23時45分
From: ikarisinto

返事削除変更

エクセルvbaのIE制御について質問です。【その4】

続きまして、bodyの中は、下記です。
「abc」のテキストボックスに文字を入れたい
（その次にボタンを押したい）のですが、まず第1の問題は、テキストボックスへの入力が
上手くいきません。よろしくお願いします。

<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=ISO-8859-1">

<link rel="stylesheet" HREF="SSM.css" TYPE="text/css">
<title></title>
<script src="/JSSM_CLIENT.js"></script>
<script>document.charset="ISO-8859-1";</script>
<SCRIPT>
function fnOteBlanc() {

sVin = document.FormIdentification.abc.value;
sVinTemp = '';

for(i = 0; i < sVin.length; i++) {
// alek le 20.03.2001 - ajout oter les : code ASCII > 129 (debut)
if ((sVin.charAt(i) != ' ')&&(sVin.charCodeAt(i) < '129')) sVinTemp = sVinTemp + sVin.charAt(i);
// if(sVin.charAt(i) != ' ') sVinTemp = sVinTemp + sVin.charAt(i);
// alek le 20.03.2001 - ajout oter les (end)
}

document.FormIdentification.abc.value = sVinTemp;

}
// JML 01.10.2001 DEB
function rechercheAuto() {
if (document.FormIdentification.RECH_AUTO.value == "yes") {
document.FormIdentification.Bouton_Rechercher.click();
}
}
// JML 01.10.2001 FIN
</SCRIPT>
</head>

<body class="FondEcran" onLoad="ApresLoad11();afficher_menu(1);MajAide('AICM21.htm');rechercheAuto();">

<form NAME="FormIdentification" method="POST" action="/abc/jsp/eeServlet" target="_parent">

<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" class="TitrePage" colspan="5">code check</td>
</tr>
<tr>
<td class="number">1</td>
<td class="DataT">abc</td>
<td class="DataT"><input TYPE="text" SIZE="20" NAME="abc" maxlength="20" ONCHANGE="fnOteBlanc()" value=""></td>
<td class="number">2</td>
<td class="DataT">counter

<input TYPE="text" SIZE="5" NAME="def" maxlength="6" value="">

</tr>

<td class="DataT">
<input type="submit" value="Submit" name="Bouton_Rech" onClick="return(b_Continuer11());">
</td>
<tr>
</table>
</form>
</body>
</html>