[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
304: 2019/08/19(月)22:51 AAS
>>298だけど、ごめん俺が間違えてた
>>256で良い
vbaはpushとか無いから超めんどい書き方にするしかない
305: 2019/08/19(月)23:08 AAS
言い訳すな
306(1): 2019/08/19(月)23:15 AAS
この場合はFor Eachなんか使わない方が分かりやすいって
という僕が通りますよ
Sub リーグ戦2()
Dim チーム, i1, i2, i2初期値
チーム = Array("あ", "い", "う", "え", "お")
i2初期値 = 1
For i1 = 0 To 4
For i2 = i2初期値 To 4
Debug.Print チーム(i1) & "vs" & チーム(i2)
Next
省3
307: 2019/08/19(月)23:18 AAS
実用じゃなくてForの説明のための例文だからじゃね？
308: 2019/08/19(月)23:28 AAS
>>306
配列の範囲を決め打ちするなら、こう書けば変数が一つ減らせる
For i1 = 0 To 3
For i2 = i1 + 1 To 4
309: 2019/08/19(月)23:38 AAS
そのうちほのぴが石田ばりにシャウトしてくれることを夢見てるよ
310(3): 2019/08/20(火)04:35 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel365
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
やりたいことはハイパーリンクからchromeを開いてhtml取得して保存してchromeは閉じるというループ処理
【詳細】
excelシートA列にあるハイパーリンクをchromeで開く
開いたWebサイト上で右クリックのソースコードを表示させ、htmlを取得しテキストまたはexcelシートに貼り付け保存
chromeを閉じる
(htmlの保存はできれば開いている同じexcelファイルにシートを増やしていきたい)
省4
311: 2019/08/20(火)05:45 AAS
データ取得の内職か？
312(1): 2019/08/20(火)06:16 AAS
>>310
とりあえず
スクレイピング vba
とかで検索してみては？
まるなげすぎてさすがに面倒
313: 2019/08/20(火)09:12 AAS
エクセルでクローラー作るん？
314: 2019/08/20(火)09:40 AAS
>>312
たしかにｗすまんです
早朝過ぎてPC開けてなかった
ハイパーリンクを開くところまではわかっていてその後のhtml取得ループをこれから作ろうと思っている
あとで途中までコード書く
315(1): 2019/08/20(火)09:43 AAS
>>310
いちいちブラウザを開かなくても、URLからページのソースを直接ダウンロードできるよ
316(1): 2019/08/20(火)10:28 AAS
>>315
どもです
ググったらその方法もあったのでそれも合わせて検討中です
Pythonでやるか？考えてるのでvbaでやることになって詰まったら具体的に書きます
317(1): 2019/08/20(火)14:18 AAS
＞ハイパーリンクを開くところまではわかっていて…
ウケる
とっとと死ね丸ハゲ野郎
あ、丸投げ野郎
318: 2019/08/20(火)14:32 AAS
>>317
あまりわたしを怒らせないほうがいいぞ
このハゲ！
とりあえずhtmlのbody要素のinnerHTMLを取得するのは分かったが
chromeで開かずにする方法やリンクが存在しないときなどのエラー処置に悩む。
319(2): [hage] 2019/08/20(火)16:13 AAS
おらよ
Sub HAGE()
Dim Hage
Hage:
Hage = MsgBox("私はハゲです", 4)
If Hage = vbNo Then GoTo Hage
End Sub
感謝しろよハゲ
320(1): 310 2019/08/20(火)17:34 AAS
>>319
このハゲー！違うだろ！
この書き方には問題がたくさんある。
(1) 変数定義で型はちゃんと明示しろ→"As VbMsgBoxStyle"を足した
(2) 4という意味不明のマジックナンバーは混乱のため不可→"vbYesNo)"にした
(3) GoTo文はスパゲティプログラムの温床。→"Do Loop文"にした。
もう一度言う。
こ の ハ ゲ ー ！
https://youtu.be/7lxqO9oV9dY
--------------------------------------------
省6
321: 2019/08/20(火)18:13 AAS
この場合はWhileではなくUntilを使わないとマーの意図が読み取りづらくなる
あと変数にいちいち代入するのは無駄
Sub Tumaran()
Do
Loop Until MsgBox("つまらん", vbYesNo) = vbYes
End Sub
322: 2019/08/20(火)18:14 AAS
>>319,320
キャンセルされた時の判定がないからダメ
323: 2019/08/20(火)19:32 AAS
ハゲはキャンセルで回避出来るのか
上下前次1-新書関写板覧索設栞歴
あと 679 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.011s