質問編集履歴
3
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -193,8 +193,8 @@
|
|
|
193
193
|
|
|
194
194
|
初心者なので検索しながら色々試してみたのですが、検索結果のURLをどうExcelと紐づけて転記すればいいかわかりません。
|
|
195
195
|
コード内のコメントだけでなんとなく流れを把握してる状態です。
|
|
196
|
-
試した事は
|
|
196
|
+
試した事は
|
|
197
|
-
'⑤表示されたページから必要な情報を収集
|
|
197
|
+
```'⑤表示されたページから必要な情報を収集
|
|
198
198
|
Set txtInput(7) = objIE(0).document.getElementsByClassName("small")(0)
|
|
199
199
|
Cells(i, 11).Value = txtInput(7).innerText
|
|
200
200
|
Cells(i, 11).Value = Replace(Replace(Cells(i, 11), "(", ""), ")", "")
|
|
@@ -211,6 +211,7 @@
|
|
|
211
211
|
Set txtInput(12) = objIE(0).document.getElementsByClassName("fare")(2)
|
|
212
212
|
Cells(i, 16).Value = txtInput(12).innerText
|
|
213
213
|
End Sub
|
|
214
|
+
```、
|
|
214
215
|
ここの部分で検索結果をExcelに転記しているのかなと思い、URLに変えてやろうと思ったのですが検索結果のURLの部分のクラス名すら見つけれず。。
|
|
215
216
|
そもそもこの部分ではないのでしょうか？付け加えるべきとこも分からないぐらい初心者です。
|
|
216
217
|
もしよろしければヒントでも良いので教えて頂けると嬉しいです。
|
2
補足
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -192,6 +192,27 @@
|
|
|
192
192
|
### 試したこと
|
|
193
193
|
|
|
194
194
|
初心者なので検索しながら色々試してみたのですが、検索結果のURLをどうExcelと紐づけて転記すればいいかわかりません。
|
|
195
|
+
コード内のコメントだけでなんとなく流れを把握してる状態です。
|
|
196
|
+
試した事は、
|
|
197
|
+
'⑤表示されたページから必要な情報を収集
|
|
198
|
+
Set txtInput(7) = objIE(0).document.getElementsByClassName("small")(0)
|
|
199
|
+
Cells(i, 11).Value = txtInput(7).innerText
|
|
200
|
+
Cells(i, 11).Value = Replace(Replace(Cells(i, 11), "(", ""), ")", "")
|
|
201
|
+
Set txtInput(8) = objIE(0).document.getElementsByClassName("small")(1)
|
|
202
|
+
Cells(i, 13).Value = txtInput(8).innerText
|
|
203
|
+
Cells(i, 13).Value = Replace(Replace(Cells(i, 13), "(", ""), ")", "")
|
|
204
|
+
Set txtInput(9) = objIE(0).document.getElementsByClassName("small")(2)
|
|
205
|
+
Cells(i, 15).Value = txtInput(9).innerText
|
|
206
|
+
Cells(i, 15).Value = Replace(Replace(Cells(i, 15), "(", ""), ")", "")
|
|
207
|
+
Set txtInput(10) = objIE(0).document.getElementsByClassName("fare")(0)
|
|
208
|
+
Cells(i, 12).Value = txtInput(10).innerText
|
|
209
|
+
Set txtInput(11) = objIE(0).document.getElementsByClassName("fare")(1)
|
|
210
|
+
Cells(i, 14).Value = txtInput(11).innerText
|
|
211
|
+
Set txtInput(12) = objIE(0).document.getElementsByClassName("fare")(2)
|
|
212
|
+
Cells(i, 16).Value = txtInput(12).innerText
|
|
213
|
+
End Sub
|
|
214
|
+
ここの部分で検索結果をExcelに転記しているのかなと思い、URLに変えてやろうと思ったのですが検索結果のURLの部分のクラス名すら見つけれず。。
|
|
215
|
+
そもそもこの部分ではないのでしょうか？付け加えるべきとこも分からないぐらい初心者です。
|
|
195
216
|
もしよろしければヒントでも良いので教えて頂けると嬉しいです。
|
|
196
217
|
|
|
197
218
|
### 補足情報（FW/ツールのバージョンなど）
|
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
本サイトを使うのは初めてで、VBAに関しても初心者なのですがよろしければ教えて頂きたいです。
|
|
2
2
|
### 前提・実現したいこと
|
|
3
3
|
http://henkan.tokyo/article/461532061.html
|
|
4
|
-
上記のサイトの 「【Excel VBA】「Yahoo路線情報」の乗り換え案内から、複数分の移動時間・運賃を一括検索する」 というVBAを丸々使わせて頂いてるのですが、検索結果の時間、料金に加え
|
|
4
|
+
上記のサイトの 「【Excel VBA】「Yahoo路線情報」の乗り換え案内から、複数分の移動時間・運賃を一括検索する」 というVBAを丸々使わせて頂いてるのですが、検索結果の時間、料金に加えQ列にその入力して出た検索結果のURLを転記したいです。
|
|
5
5
|
|
|
6
6
|
|
|
7
7
|
###
|