質問編集履歴

4

2017/04/15 08:35

投稿

Com
Com

スコア30

test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
  ページを進んでいくうちに、なぜか OuterHtml でタグの文字列を取得しようとすると、【HRESULT からの例外:0x800A01B6】とエラーが発生します。
8
8
 
9
- そこで、試しにエラーが発生する箇所で outerHtml と O を o と文字を文字に変換するとエラーが出ずに取得できることに気づきました。
9
+ そこで、試しにエラーが発生する箇所で outerHtml と記述してみたら(違いは O を o と文字を文字に変換)エラーが出ずに取得できることに気づきました。
10
10
 
11
11
  さらに、進めるとまた、同じエラーが出るので、次は outerHtml を OUTERHTML と全て大文字にすると対応できるといった感じになっています。
12
12
 

3

2017/04/15 08:35

投稿

Com
Com

スコア30

test CHANGED
File without changes
test CHANGED
@@ -122,8 +122,6 @@
122
122
 
123
123
  ###試したこと
124
124
 
125
- 課題に対してアプローチしたことを記載してください
126
-
127
125
 
128
126
 
129
127
  エラーの箇所で次のような確認をいたしました。
@@ -138,10 +136,8 @@
138
136
 
139
137
 
140
138
 
141
- ぞです。。。
139
+ たか、宜しくお願いいたします。
142
140
 
143
141
 
144
142
 
145
143
  ###補足情報(言語/FW/ツール等のバージョンなど)
146
-
147
- より詳細な情報

2

oDocumentの二重宣言を修正しました。

2017/04/15 00:44

投稿

Com
Com

スコア30

test CHANGED
File without changes
test CHANGED
@@ -30,7 +30,7 @@
30
30
 
31
31
 
32
32
 
33
- Dim oDocument As Object = IE.Document
33
+ oDocument = IE.Document
34
34
 
35
35
  ' テキストボックスを探して入力
36
36
 

1

Exit Forが抜けてました。

2017/04/14 03:55

投稿

Com
Com

スコア30

test CHANGED
File without changes
test CHANGED
@@ -82,9 +82,11 @@
82
82
 
83
83
  System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
84
84
 
85
+ Exit For
86
+
85
87
  End If
86
88
 
87
- System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
89
+ System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
88
90
 
89
91
  Next
90
92
 
@@ -100,7 +102,13 @@
100
102
 
101
103
  oDoc.Click
102
104
 
105
+ System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
106
+
107
+ Exit For
108
+
103
109
  End If
110
+
111
+ System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
104
112
 
105
113
  Next
106
114