Excel VBA 質問スレ Part72

2021/07/18(日) 08:42:15.37

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/09/12(日) 21:17:53.40

ttps://whois.nic.ad.jp/cgi-bin/whois_gw?key=182.22.16.251&codecheck-sjis=%E3%81%AB%E3%81%BB%E3%82%93%E3%81%AD%E3%81%A3%E3%81%A8%E3%82%8F%E3%83%BC%E3%81%8F%E3%81%84%E3%82%93%E3%81%B5%E3%81%89%E3%82%81%E3%83%BC%E3%81%97%E3%82%87%E3%82%93%E3%81%9B%E3%82%93%E3%81%9F%E3%83%BC&submit=
に表示されているネットワーク名「YAHOO-NET」を取得しようとしているのですが、
Cells(1, 2) = objIE.Document.getElementsByTagName("pre").innerText
ではメソッドがサポートされいないとエラー表示されます。
何がいけないのでしょうか？

**名無し募集中。。。** (ﾜｯﾁｮｲ 9e8c-xZL4) · 2021/09/12(日) 21:29:23.70

普段使ってないから問題点がこれ意外にもあるかわからないが
Cells(1, 2) = objIE.Document.getElementsByTagName("pre")(1).innerText
これでどう？

2021/09/12(日) 21:29:29.14

VBAとJavaScriptが、混ざっちゃった感じかな

2021/09/12(日) 22:10:03.90

n時間後にエンターキーを押すプログラムってどう作るんだ？初心者にもわかりやすく誰か教えて

2021/09/12(日) 22:16:01.50

「n時間後にアラームを設定して、鳴ったらENTERを押せ！」
と、命令する

2021/09/12(日) 22:27:13.14

>>986
ありがとうございます。
「オブジェクト変数がセットされていません」というエラーメッセージが出ており、検証はできておりませんが、いけそうな気がします。
ページ遷移したらobjIE.Documentに遷移先の情報が自動で設定されないのかもしれません。

**デフォルトの名無しさん** (JP 0Hc9-dGLa) · 2021/09/12(日) 22:28:25.73

>>988
基本はこうだけど、このままだとタイマーを仕掛けたのを忘れてて、ほかの作業をしてる時に急にEnterが押されてびっくりすると思うよ

Sub n時間後にEnterを押す()
　　n = 1　'n時間を指定
　　n時間後 = Now + TimeValue(n & ":00:00")　'n時間後が何時何分か計算する
　　Do
　　　　DoEvents
　　Loop Until Now >= n時間後　'n時間誤まで待つ
　　SendKeys "~"　'Enterを押す
End Sub

2021/09/12(日) 23:27:46.85

>>990
(1)じゃなかった
(0)だった

2021/09/13(月) 01:05:28.69

>>991
せめてOnTime使えよ

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-dGLa) · 2021/09/13(月) 01:09:51.01

OnTimeはあとからタイマーの設定を確認したり停始する方法がないから使い勝手が悪すぎるのがなあ

2021/09/13(月) 01:34:41.43

配列に保存しとくか
シートに書き出しておく
それを元に確認したりキャンセルする

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-dGLa) · 2021/09/13(月) 02:28:08.29

>>990
URLはここまででいいんだよ
https://whois.nic.ad.jp/cgi-bin/whois_gw?key=182.22.16.251

2021/09/13(月) 07:15:43.89

>>992, 996
ありがとうございます！

2021/09/13(月) 07:30:13.42

つぎ
https://mevius.5ch.net/test/read.cgi/tech/1631485799/l50

2021/09/13(月) 07:41:47.37

>>998
うむ、ご苦労

2021/09/13(月) 09:30:38.14

1000ならコロナ収束

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 57日 0時間 48分 23秒