IE11用「クロネコヤマト荷物問合せ」VBA
- (2015-03-23 19:30:43)
そこでVBAを見直したが、何年も手を入れる必要がなかったため「どしてこんなところにこんなコードを書いているか?」とか「この一文は何をしているのか?」といった感じで、自分が作成したコードなのに全然思え出せない。
もともと人様のコードをコピペして集めたようなものだったから身につかない。
単に試行錯誤して変更した箇所:
※フォームナンバーが変更されたらしい
・Shell.Windows.Item(Shell.Windows.Count - 1).Document.forms(0)(FormNo + 3).Value _
・Shell.Windows.Item(Shell.Windows.Count - 1).Document.forms(0)(2).Click
・Shell.Windows.Item(Shell.Windows.Count - 1).Document.forms(0)(3).Click
※文字列「 1件目」が複数含まれるようになった?なお、「☆」はIE.Documentの意味。そのまま書くとなぜかこのブログがエラーする。
・For n = 80 To ☆.all.Length - 1
If IE.Document.all(n).InnerText = " 1件目" Then
※以前何のために書いたコードか思い出せない。とりあえずコメントアウトしないと動作しない
・'ElseIf IE.Document.all(m + 10).InnerText = "" Then
'Exit For