ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/
Excel VBA 質問スレ Part60
■ このスレッドは過去ログ倉庫に格納されています
2019/03/16(土) 20:39:09.64ID:6HWXzj9o
60デフォルトの名無しさん
2019/03/20(水) 12:33:29.40ID:KyvcPrHu2019/03/20(水) 13:54:52.74ID:2xsXzlGP
>>57
応答なしにならないか?
応答なしにならないか?
2019/03/20(水) 15:56:43.40ID:1jasQYq3
だから、どういう状況で10時間ぶっとおしが必要なんだよwwwwww
マジでExcelを何に使ってるのか気になるわ。
マジでExcelを何に使ってるのか気になるわ。
2019/03/20(水) 16:27:03.42ID:xEZ65DiY
馬鹿の考えることをまともに相手をしてはいけない
2019/03/20(水) 20:36:03.66ID:nDF65YVh
結果セットは小さいけど重いDBクエリを繰り返すとかだったらわかる
2019/03/20(水) 20:53:54.94ID:EpI850Tv
10時間動かし続けるとなると思いつくのは
出勤時間中にwebサイトやフォルダ監視し続けて何かをキッカケに何かするみたいなのかな
出勤時間中にwebサイトやフォルダ監視し続けて何かをキッカケに何かするみたいなのかな
2019/03/20(水) 22:28:30.85ID:ad3N4bFR
エクセルでやることなんですかねそれ...
2019/03/20(水) 22:53:02.96ID:1jasQYq3
ExcelVBAでパワーポイント動かしたいんですけど、
とか言われても、もう驚かんわ。
とか言われても、もう驚かんわ。
2019/03/20(水) 23:11:09.25ID:7O8FfDv3
馬鹿はそこでマクロと言い出す
更には、「教えて」「助けて」で始まり
「急いでます」「作って」と要求する
更には、「教えて」「助けて」で始まり
「急いでます」「作って」と要求する
2019/03/20(水) 23:20:32.29ID:dyVQ1wUM
>>67
やろうと思えば出来んでもないのか
やろうと思えば出来んでもないのか
2019/03/20(水) 23:21:49.19ID:dyVQ1wUM
なんだお前ら、勿体無いな
10時間動かすなんて奇抜な事をしてくれるんだから、全力で応援するべきだろう
かなり貴重なサンプルが手に入る可能性があるのに、バカだの言って切り捨てるのはあまりに勿体無い
10時間動かすなんて奇抜な事をしてくれるんだから、全力で応援するべきだろう
かなり貴重なサンプルが手に入る可能性があるのに、バカだの言って切り捨てるのはあまりに勿体無い
2019/03/20(水) 23:38:22.03ID:9h7AJaIR
2019/03/20(水) 23:45:57.48ID:dyVQ1wUM
73デフォルトの名無しさん
2019/03/21(木) 02:02:16.06ID:+l8n8fiW 肛門に穴があいたんですけど、
とか言われても、もう驚かんわ。
とか言われても、もう驚かんわ。
2019/03/21(木) 06:33:27.17ID:LeqqYBVH
>>73
痔瘻でつか?
痔瘻でつか?
2019/03/21(木) 07:23:06.55ID:u3u8nbsq
2019/03/21(木) 10:02:44.62ID:TiVPJMex
パワーポイントでVBAって何すんの?
パワーポイントって発表用のアプリだろ。 それでVBAって需要なんてあまりあるとは思えんが
パワーポイントって発表用のアプリだろ。 それでVBAって需要なんてあまりあるとは思えんが
2019/03/21(木) 10:04:16.17ID:XMapNPTs
シートの内容をスライドに埋め込むとか
2019/03/21(木) 10:26:55.37ID:VaVZDR1N
プレゼンが定例業務としてある会社もあるんじゃね
2019/03/21(木) 10:29:58.00ID:epreAi+X
例えば、気象庁のホームページからクエーリーでデータを取得し
パワポにデーター貼り付けながら、加工してそれをアニメーションで
かっこよく表示していくとか、考えれば応用はいくらでもあるだろう
パワポにデーター貼り付けながら、加工してそれをアニメーションで
かっこよく表示していくとか、考えれば応用はいくらでもあるだろう
2019/03/21(木) 10:37:01.43ID:epreAi+X
言葉が足りなかった、プレゼン用ではなく、情報表示モニター用にな
いくらでも機能はつけられる
いくらでも機能はつけられる
2019/03/21(木) 11:18:23.86ID:TiVPJMex
なんかどれも一般個人には無縁のものばかりだな
2019/03/21(木) 11:20:14.60ID:TiVPJMex
まあパワーポイント自身、個人で使うことなんてないのか
でも企業でも極一部の部署しか使わないものばかりじゃん
でも企業でも極一部の部署しか使わないものばかりじゃん
2019/03/21(木) 11:39:33.97ID:cL16VMj6
パワポVBAで何か作ってみたいという逆需要で、発表後喋ってる間にスターウォーズのエンドロールみたいなのを流すのを昔作ったことあるなw
それ以降、私の開発現場では(個人的にも)パワポVBAは全く需要なし
WordVBAも、補助ツールとして数年に一回作るくらいかな
それ以降、私の開発現場では(個人的にも)パワポVBAは全く需要なし
WordVBAも、補助ツールとして数年に一回作るくらいかな
2019/03/21(木) 11:42:12.40ID:XMapNPTs
スライドシェアとか見てもかったるいだけだからな
大昔の改行しまくりのテキストサイト思い出す
大昔の改行しまくりのテキストサイト思い出す
2019/03/21(木) 11:45:36.88ID:epreAi+X
なんか、ExcelのVBAでパワポを操作するのと、パワポのVBAを同一で語ってるやついるか?
ちなみにWordのVBAはいくつか作って今も使ってるけど、まあ対比で言えばExcelの
100分の1程度だな
ちなみにWordのVBAはいくつか作って今も使ってるけど、まあ対比で言えばExcelの
100分の1程度だな
2019/03/21(木) 12:40:04.02ID:epreAi+X
2019/03/21(木) 12:46:45.76ID:epreAi+X
>>84
まあ、言葉もわからんカスが書き込みするスレだよな
まあ、言葉もわからんカスが書き込みするスレだよな
2019/03/21(木) 12:51:57.24ID:VaVZDR1N
2019/03/21(木) 12:55:25.94ID:epreAi+X
2019/03/21(木) 13:01:18.94ID:epreAi+X
自分では何もできないくせに、人の作ったものは全力で否定するカスいるな
生きてる必要あるんか?・・ってかどうなの?(笑)
生きてる必要あるんか?・・ってかどうなの?(笑)
2019/03/21(木) 16:10:00.98ID:rariafKZ
>>83
単に、バカじゃん(大笑)
単に、バカじゃん(大笑)
2019/03/21(木) 18:21:43.40ID:AEHjc1Fb
>>82
accessよりは使ってる
accessよりは使ってる
2019/03/21(木) 18:38:57.53ID:jb0c41ul
2019/03/21(木) 18:40:52.37ID:UMX0gRc1
起点がExcelってのがポイントだよな
2019/03/21(木) 18:59:32.81ID:susRoq6I
>>67の冗談が起点なのになんで真剣に語っているんだ
2019/03/21(木) 19:40:57.90ID:u3u8nbsq
2019/03/21(木) 21:02:50.21ID:UMX0gRc1
他アプリから制御するのはいちいちアプリケーションインスタンスを起動しなきゃならんのが糞面倒
パワポだけで済むならパワポにする
パワポだけで済むならパワポにする
98デフォルトの名無しさん
2019/03/21(木) 21:15:08.25ID:HmxAO54P VBAを使ってる人って御老人のイメージだけど合ってる?
2019/03/21(木) 21:48:16.24ID:7ESjhGWi
ナウでヤングな人は何使うん
100デフォルトの名無しさん
2019/03/21(木) 22:10:39.42ID:susRoq6I そろばん
101デフォルトの名無しさん
2019/03/22(金) 08:13:43.08ID:s6oj+Xdm >>96
PowerShellなんて言い出す奴だからわからないんだろうな。
大して変わらんのなんて当たり前だろ。
PowerPointVBAからExcel.Application使って、そのExcelオブジェクトからPowerPoint.Application使ってを10回繰り返した所で変わらんけどアホ丸出しなのが分からんのかね。
PowerShellなんて言い出す奴だからわからないんだろうな。
大して変わらんのなんて当たり前だろ。
PowerPointVBAからExcel.Application使って、そのExcelオブジェクトからPowerPoint.Application使ってを10回繰り返した所で変わらんけどアホ丸出しなのが分からんのかね。
102デフォルトの名無しさん
2019/03/22(金) 08:17:26.70ID:wT5mo1++103デフォルトの名無しさん
2019/03/22(金) 09:00:55.13ID:7FUJ+LGH パワーポイントVBAって色々と勝手が違って面倒臭かった記憶があるけどな
そもそもエクセルやワードと違って空のアプリケーションインスタンス作れないんじゃなかったっけか
ファイル実行時に読み取りパスワードを指定するときもファイル名と連結する必要があるし
そもそもエクセルやワードと違って空のアプリケーションインスタンス作れないんじゃなかったっけか
ファイル実行時に読み取りパスワードを指定するときもファイル名と連結する必要があるし
104デフォルトの名無しさん
2019/03/22(金) 09:13:17.49ID:s6oj+Xdm105デフォルトの名無しさん
2019/03/22(金) 09:35:36.14ID:wT5mo1++ いや、当たり前なんてみんな知ってる(>>93を除くw)のに今更何を言いたいんだってこと
バカの上塗り?
バカの上塗り?
106デフォルトの名無しさん
2019/03/22(金) 10:34:34.64ID:1snpMqV+ 結局、ワッチョイ抜きにするから荒れるんだろ
誰がどう主張したいのかわからなくなる
ワッチョイが嫌な奴がこのスレ建てたんだろうな、立て直すか?
誰がどう主張したいのかわからなくなる
ワッチョイが嫌な奴がこのスレ建てたんだろうな、立て直すか?
107デフォルトの名無しさん
2019/03/22(金) 10:58:31.28ID:f/f2Qmpp >>101
それ面白いw
それ面白いw
108デフォルトの名無しさん
2019/03/22(金) 12:26:36.58ID:s6oj+Xdm109デフォルトの名無しさん
2019/03/22(金) 12:41:30.27ID:VWKP5DOZ で、結局>>101は当たり前の事をほざいてただけ?
やっぱりバカの上塗りじゃねーか w
やっぱりバカの上塗りじゃねーか w
110デフォルトの名無しさん
2019/03/22(金) 13:05:17.10ID:xmRgZnoh OLEアプリケーション連携の話になると途端に荒れるのやべーな
前も下らんAccessの話でクッソ揉めてたし
他アプリ連携のスキルをプライドの拠り所にしてる人が結構いるのかな
凄いことやってる風に見てもらえるときあるし分からんでもないけどさ
前も下らんAccessの話でクッソ揉めてたし
他アプリ連携のスキルをプライドの拠り所にしてる人が結構いるのかな
凄いことやってる風に見てもらえるときあるし分からんでもないけどさ
111デフォルトの名無しさん
2019/03/22(金) 13:46:53.89ID:CAtaruvO112デフォルトの名無しさん
2019/03/22(金) 14:07:54.62ID:DJ7JSKt5113デフォルトの名無しさん
2019/03/22(金) 14:18:45.03ID:CAtaruvO こいつ、知ってて言ってるのか知らないのか
114デフォルトの名無しさん
2019/03/22(金) 17:56:53.75ID:DJ7JSKt5 会社でブラウザの検索結果のページで
いっぱいURLのリンク先が表示されるのですが
そのたくさんのURLのそれぞれを開いたページ(毎回違うけど50ページくらいある)のデータを取得するVBAのコードを考えています。
IEの定番のCreateObject("InternetExplorer.Application")とDOMツリーの方法で実現できてはいるのですが
1つ1つページを開いて取得して閉じる、という作業がネットワークの遅さで異常に時間がかかります。
この複数のページを同時で取得する方法ってないでしょうか?よく知らないけどJavaでいうスレッドみたいな?
いっぱいURLのリンク先が表示されるのですが
そのたくさんのURLのそれぞれを開いたページ(毎回違うけど50ページくらいある)のデータを取得するVBAのコードを考えています。
IEの定番のCreateObject("InternetExplorer.Application")とDOMツリーの方法で実現できてはいるのですが
1つ1つページを開いて取得して閉じる、という作業がネットワークの遅さで異常に時間がかかります。
この複数のページを同時で取得する方法ってないでしょうか?よく知らないけどJavaでいうスレッドみたいな?
115デフォルトの名無しさん
2019/03/22(金) 18:05:28.43ID:wNvbYX88 いまどきマルチポストに眉をしかめるような時代遅れの人間なんていないよ、ね?
116デフォルトの名無しさん
2019/03/22(金) 18:13:30.85ID:f/f2Qmpp >>114
IEオブジェクト作らずに通信すると早くなる気がするけど早くならないかもしれない
試してみて
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.nicovideo.jp/watch/sm31763534"
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop
str2 = httpReq.responseText
End Sub
IEオブジェクト作らずに通信すると早くなる気がするけど早くならないかもしれない
試してみて
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.nicovideo.jp/watch/sm31763534"
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop
str2 = httpReq.responseText
End Sub
117デフォルトの名無しさん
2019/03/22(金) 18:19:28.87ID:wCnCSK0y118デフォルトの名無しさん
2019/03/22(金) 18:37:45.64ID:wCnCSK0y119デフォルトの名無しさん
2019/03/22(金) 19:06:06.24ID:DJ7JSKt5 >>116
そのCreateObject("MSXML2.XMLHTTP")はなんでしょうか?
str2にはたしかに入ってますが"https://www.yahoo.co.jp/"にしたら空欄になってしまいます。
HTMLページは膨大なソースなのでDOMツリーで必要なものだけを取り出したいのですが、それはできますか?
>>117
PHPって知らないのですが簡単に学習できるのですか?
>>118
VBAでイベントってどうやって受けるのですか
そのCreateObject("MSXML2.XMLHTTP")はなんでしょうか?
str2にはたしかに入ってますが"https://www.yahoo.co.jp/"にしたら空欄になってしまいます。
HTMLページは膨大なソースなのでDOMツリーで必要なものだけを取り出したいのですが、それはできますか?
>>117
PHPって知らないのですが簡単に学習できるのですか?
>>118
VBAでイベントってどうやって受けるのですか
120デフォルトの名無しさん
2019/03/22(金) 19:30:29.78ID:s6oj+Xdm >>109
まだ分かんねーのかよw
まだ分かんねーのかよw
121デフォルトの名無しさん
2019/03/22(金) 19:31:45.60ID:f/f2Qmpp >>120
すまん無能、ちょっと静かにしてくれ
すまん無能、ちょっと静かにしてくれ
122デフォルトの名無しさん
2019/03/22(金) 19:35:09.00ID:wCnCSK0y >>119
PHPをおけるサーバーの契約まあ無料のところも有るだろ
学習は無料でツールをダウンロード出来る
比較的簡単な言語でいろいろソースもあるが
VBAは超簡単な方だからな
VBAは特定のイベントしか受けられんのかな
普通VBやc++やPHP などでコーディングするときは
イベントで受ける
PHPをおけるサーバーの契約まあ無料のところも有るだろ
学習は無料でツールをダウンロード出来る
比較的簡単な言語でいろいろソースもあるが
VBAは超簡単な方だからな
VBAは特定のイベントしか受けられんのかな
普通VBやc++やPHP などでコーディングするときは
イベントで受ける
123デフォルトの名無しさん
2019/03/22(金) 19:35:18.99ID:wT5mo1++ アホの考えなんてわからんしわかりたくもないわw
124デフォルトの名無しさん
2019/03/22(金) 19:37:24.46ID:s6oj+Xdm125デフォルトの名無しさん
2019/03/22(金) 19:37:49.10ID:f/f2Qmpp >>118
jsで言うPromise?
非同期がvbaにあるんか、と思って調べたら一応あったけどかなりしんどいな
https://system-engineerlife.com/vba/multithread/
>>119
>CreateObject("MSXML2.XMLHTTP")
http通信するだけのもの。DOM構築しないから軽いはず
jsで言うPromise?
非同期がvbaにあるんか、と思って調べたら一応あったけどかなりしんどいな
https://system-engineerlife.com/vba/multithread/
>>119
>CreateObject("MSXML2.XMLHTTP")
http通信するだけのもの。DOM構築しないから軽いはず
126デフォルトの名無しさん
2019/03/22(金) 19:46:10.91ID:s6oj+Xdm >>125
これ、マルチプロセスだけどな。
別にしんどくない。
ExcelVBAでマルチプロセスやるときはExcel.Applicationを複数作ってやるのが普通だと思うけどね。
最終的に速度どうにもならないときはマルチプロセスにする。
これ、マルチプロセスだけどな。
別にしんどくない。
ExcelVBAでマルチプロセスやるときはExcel.Applicationを複数作ってやるのが普通だと思うけどね。
最終的に速度どうにもならないときはマルチプロセスにする。
127デフォルトの名無しさん
2019/03/22(金) 19:51:03.17ID:s6oj+Xdm128デフォルトの名無しさん
2019/03/22(金) 19:58:09.82ID:s6oj+Xdm >>125
ちなみにマルチスレッドはこっちにあるやり方
https://needtec.exblog.jp/18893727/
場合によっては使える(自分で表示したメッセージボックスのボタンをクリックとか)と言いたいところだが止めとくべきだね。
ちなみにマルチスレッドはこっちにあるやり方
https://needtec.exblog.jp/18893727/
場合によっては使える(自分で表示したメッセージボックスのボタンをクリックとか)と言いたいところだが止めとくべきだね。
129デフォルトの名無しさん
2019/03/22(金) 20:11:29.06ID:f/f2Qmpp >>119
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/", False
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop
Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
End Sub
これでHTMLがdomになる
ちなみにphpなら二行で終わる
サーバー借りなくてもxamppっての使えばPCだけで行けるけど、
どっちにしても学習コスト高い気がする
ついでにHP作ってみると良いかも知れない
>>126>>128
excelかVBSインスタンスをスレッドの分作って文字列作ってevalみたいにして実行か
もうここまで来るとVBAでやるのはなぁ
VBAしかないなら頑張れるけど、他言語だと瞬殺と思うとやる気が削がれる
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/", False
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop
Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
End Sub
これでHTMLがdomになる
ちなみにphpなら二行で終わる
サーバー借りなくてもxamppっての使えばPCだけで行けるけど、
どっちにしても学習コスト高い気がする
ついでにHP作ってみると良いかも知れない
>>126>>128
excelかVBSインスタンスをスレッドの分作って文字列作ってevalみたいにして実行か
もうここまで来るとVBAでやるのはなぁ
VBAしかないなら頑張れるけど、他言語だと瞬殺と思うとやる気が削がれる
130デフォルトの名無しさん
2019/03/22(金) 20:17:17.71ID:PU7qmvYu131デフォルトの名無しさん
2019/03/22(金) 20:59:52.84ID:EWPhTEeI >>116
httpReqを配列にしてreadyStateが4より小さいものから処理すれば良いだけだろ
httpReqを配列にしてreadyStateが4より小さいものから処理すれば良いだけだろ
132デフォルトの名無しさん
2019/03/22(金) 22:37:39.98ID:kGxcTvNs もうExcelの変な使い方スレでいいよ、ここ。
133デフォルトの名無しさん
2019/03/22(金) 22:41:13.31ID:DJ7JSKt5134デフォルトの名無しさん
2019/03/22(金) 22:51:56.07ID:tgov+uRX PowerShellでやった方が絶対に速い
135デフォルトの名無しさん
2019/03/22(金) 22:54:22.06ID:CAtaruvO136デフォルトの名無しさん
2019/03/22(金) 23:08:19.23ID:E2ofkEmJ まとめてダウンロードしてファイルに保存
その後一つずつ解析するべき
domなんて使わなくても正規表現で何とかするべき
その後一つずつ解析するべき
domなんて使わなくても正規表現で何とかするべき
137デフォルトの名無しさん
2019/03/22(金) 23:19:11.20ID:tgov+uRX でもpowershellなら.NETのWorkflowが手軽に使えるよね
138デフォルトの名無しさん
2019/03/22(金) 23:23:39.28ID:tgov+uRX Runspaceも使えるし
139デフォルトの名無しさん
2019/03/22(金) 23:36:27.88ID:f/f2Qmpp >>133
すまん、無理だった
他の人頼む
arrayでurl設定して、class使ってforeachだろうけど
vbaのclassを覚える気力がもう内
とりあえず2つだとこんな感じ
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/", False
httpReq.Send
Set httpReq2 = CreateObject("MSXML2.XMLHTTP")
httpReq2.Open "GET", "https://urasunday.com/", False
httpReq2.Send
Do
flg = False
If httpReq.readyState < 4 Then flg = True
If httpReq2.readyState < 4 Then flg = True
DoEvents
Loop While flg
Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
Set HTML2 = CreateObject("htmlfile")
HTML2.write httpReq.responsetext
End Sub
すまん、無理だった
他の人頼む
arrayでurl設定して、class使ってforeachだろうけど
vbaのclassを覚える気力がもう内
とりあえず2つだとこんな感じ
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/", False
httpReq.Send
Set httpReq2 = CreateObject("MSXML2.XMLHTTP")
httpReq2.Open "GET", "https://urasunday.com/", False
httpReq2.Send
Do
flg = False
If httpReq.readyState < 4 Then flg = True
If httpReq2.readyState < 4 Then flg = True
DoEvents
Loop While flg
Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
Set HTML2 = CreateObject("htmlfile")
HTML2.write httpReq.responsetext
End Sub
140デフォルトの名無しさん
2019/03/23(土) 00:08:10.78ID:GJYnZjvR If httpReq.readyState < 4 Then flg = True
If httpReq2.readyState < 4 Then flg = True
片方で抜ける
配列ぐらい使えよ
If httpReq2.readyState < 4 Then flg = True
片方で抜ける
配列ぐらい使えよ
141デフォルトの名無しさん
2019/03/23(土) 00:23:31.53ID:GJYnZjvR 読み込めた物から処理するんだよ
142デフォルトの名無しさん
2019/03/23(土) 00:41:36.68ID:sBAP9hOD143デフォルトの名無しさん
2019/03/23(土) 00:42:04.83ID:sBAP9hOD >>133
Sub foo()
Const max_count = 1000 '1000で決め打ち
url_arr = Array( _
"https://www.yahoo.co.jp/", _
"https://urasunday.com/" _
)
Dim httpReq(max_count)
index_httpReq = 0
For Each url_foo In url_arr
Set httpReq(index_httpReq) = CreateObject("MSXML2.XMLHTTP")
httpReq(index_httpReq).Open "GET", url_foo, False
httpReq(index_httpReq).Send
index_httpReq = index_httpReq + 1
Next
Sub foo()
Const max_count = 1000 '1000で決め打ち
url_arr = Array( _
"https://www.yahoo.co.jp/", _
"https://urasunday.com/" _
)
Dim httpReq(max_count)
index_httpReq = 0
For Each url_foo In url_arr
Set httpReq(index_httpReq) = CreateObject("MSXML2.XMLHTTP")
httpReq(index_httpReq).Open "GET", url_foo, False
httpReq(index_httpReq).Send
index_httpReq = index_httpReq + 1
Next
144デフォルトの名無しさん
2019/03/23(土) 00:42:09.03ID:sBAP9hOD Do
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg
Dim html(max_count)
index_html = 0
For Each url_foo In url_arr
Set html(index_html) = CreateObject("htmlfile")
html(index_html).write httpReq(index_html).responsetext
Cells(index_html + 1, 1).Value = httpReq(index_html).responsetext 'テスト。A列に出力する
index_html = index_html + 1
Next
End Sub
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg
Dim html(max_count)
index_html = 0
For Each url_foo In url_arr
Set html(index_html) = CreateObject("htmlfile")
html(index_html).write httpReq(index_html).responsetext
Cells(index_html + 1, 1).Value = httpReq(index_html).responsetext 'テスト。A列に出力する
index_html = index_html + 1
Next
End Sub
145デフォルトの名無しさん
2019/03/23(土) 00:45:06.99ID:sBAP9hOD146デフォルトの名無しさん
2019/03/23(土) 01:11:21.36ID:GJYnZjvR If httpReq(index_foo).readyState < 4 Then flg = True
コレじゃ1つでも読み込めたらループから抜ける
set したのはリリースする
処理がおもいのは
html(index_html).write httpReq(index_html).responsetext
これだろ
コレじゃ1つでも読み込めたらループから抜ける
set したのはリリースする
処理がおもいのは
html(index_html).write httpReq(index_html).responsetext
これだろ
147デフォルトの名無しさん
2019/03/23(土) 01:15:54.12ID:GJYnZjvR 同じ個数配列で使うものはTypeを使って構造体にしろよ
構造体を配列で取る
redimぐらい使えよ
構造体を配列で取る
redimぐらい使えよ
148デフォルトの名無しさん
2019/03/23(土) 01:39:28.59ID:sBAP9hOD >>144
Do
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg
↓
For Each url_foo In url_arr ' どれかがまだ
Do
flg = False
If httpReq(index_foo).readyState < 4 Then flg = True
DoEvents
Loop While flg
Next
>>146
>コレじゃ1つでも読み込めたらループから抜ける
入れ子逆だった、スマン
>set したのはリリースする
httpReq is nothingがエラーになる
vbaって配列 is nothing出来ないのか
>処理がおもいのは
相対的に重いけど体感上重くは無いと思う
>>147
vbaのclassは正直もう無理や
Do
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg
↓
For Each url_foo In url_arr ' どれかがまだ
Do
flg = False
If httpReq(index_foo).readyState < 4 Then flg = True
DoEvents
Loop While flg
Next
>>146
>コレじゃ1つでも読み込めたらループから抜ける
入れ子逆だった、スマン
>set したのはリリースする
httpReq is nothingがエラーになる
vbaって配列 is nothing出来ないのか
>処理がおもいのは
相対的に重いけど体感上重くは無いと思う
>>147
vbaのclassは正直もう無理や
149デフォルトの名無しさん
2019/03/23(土) 02:18:04.14ID:GJYnZjvR 構造体を使うのは処理を分かりやすくするため
リリースは
Set オブジェクト変数 = Nothing
感覚的に難しいかな
リリースは
Set オブジェクト変数 = Nothing
感覚的に難しいかな
150デフォルトの名無しさん
2019/03/23(土) 04:53:32.37ID:4V4ijAbJ >>142
普通は以下のように、自分で状態を調べたりしない。
If httpReq.readyState < 4 Then flg = True
これは、Node.js などの低レベルな書き方で、普通はこれらの状態をラップして、
簡潔に書ける方法が、ライブラリ・フレームワークに用意されている
例えば以下は、JavaScript, jQuery の非同期処理の書き方。
ready になったら、引数で定義した、callback 関数を呼んでもらう。
document.ready(function(){}〜
非同期処理には、promise, deffered, async/await の書き方もある
Ruby で、Selenium WebDriver なら、非同期処理を考えなくても、普通に同期的に書ける。
非同期処理の書き方のすべてが、ラップされているから。
Timeout 設定時間までに、状態が満たさなければ、Timeout Error になるだけ
普通は以下のように、自分で状態を調べたりしない。
If httpReq.readyState < 4 Then flg = True
これは、Node.js などの低レベルな書き方で、普通はこれらの状態をラップして、
簡潔に書ける方法が、ライブラリ・フレームワークに用意されている
例えば以下は、JavaScript, jQuery の非同期処理の書き方。
ready になったら、引数で定義した、callback 関数を呼んでもらう。
document.ready(function(){}〜
非同期処理には、promise, deffered, async/await の書き方もある
Ruby で、Selenium WebDriver なら、非同期処理を考えなくても、普通に同期的に書ける。
非同期処理の書き方のすべてが、ラップされているから。
Timeout 設定時間までに、状態が満たさなければ、Timeout Error になるだけ
151150
2019/03/23(土) 05:31:12.29ID:4V4ijAbJ 漏れなら、Ruby で、Selenium WebDriver で、
url.txt には、行区切りでURL を書いておく。
script.rb には、Selenium WebDriver での処理を書いておく
main.rb には、以下を書いておいて、このファイルを、ruby main.rb で実行する
File.foreach( "url.txt" ) do |line|
`ruby script.rb #{ line }`
end
url.txtを、1行ずつ処理して、各URLを取得して、それを引数にして、
ruby script.rb URL の別プロセスを呼び出す。
ただし、Selenium WebDriverでの処理が、URLだけが異なって、他は同じ事が条件
つまり、マルチプロセス
これをマルチスレッドにすると、排他処理などが面倒。
それに同一プロセス内の処理になるので、1つのエラーで、すべての処理が止まるし、やってられない!
url.txt には、行区切りでURL を書いておく。
script.rb には、Selenium WebDriver での処理を書いておく
main.rb には、以下を書いておいて、このファイルを、ruby main.rb で実行する
File.foreach( "url.txt" ) do |line|
`ruby script.rb #{ line }`
end
url.txtを、1行ずつ処理して、各URLを取得して、それを引数にして、
ruby script.rb URL の別プロセスを呼び出す。
ただし、Selenium WebDriverでの処理が、URLだけが異なって、他は同じ事が条件
つまり、マルチプロセス
これをマルチスレッドにすると、排他処理などが面倒。
それに同一プロセス内の処理になるので、1つのエラーで、すべての処理が止まるし、やってられない!
152デフォルトの名無しさん
2019/03/23(土) 05:42:27.10ID:GJYnZjvR VBA以外の構造化言語で書けば綺麗に書ける
まあ出来るだけ近いように書くのがよいが
まあ所詮俺もこんな処理ではJavaかPHPでしか書かない
まあ
まあ出来るだけ近いように書くのがよいが
まあ所詮俺もこんな処理ではJavaかPHPでしか書かない
まあ
153デフォルトの名無しさん
2019/03/23(土) 07:22:22.14ID:4ZM/hDcb154デフォルトの名無しさん
2019/03/23(土) 08:17:41.71ID:Rd0MSm4a たぶん、構造体 = Type = 型 = クラス っていうアナロジーで考えてたんだろうね
155デフォルトの名無しさん
2019/03/23(土) 09:27:10.21ID:GJYnZjvR まあ、コードも間違ってるし書き方も良くない
配列すら得意でないようなので・・・
あと、せっかくExcelを使ってるんだから
Url等の情報はセルから読み込むよな
配列すら得意でないようなので・・・
あと、せっかくExcelを使ってるんだから
Url等の情報はセルから読み込むよな
156デフォルトの名無しさん
2019/03/23(土) 11:00:19.04ID:tmlWK/3A >>151
seleniumってまだ使えんの?もう機能しなくなったと思ってた
seleniumってまだ使えんの?もう機能しなくなったと思ってた
157デフォルトの名無しさん
2019/03/23(土) 11:18:14.30ID:sBAP9hOD158fusianasan
2019/03/23(土) 11:19:15.45ID:j1qksDnK Debug.Print("test")
159デフォルトの名無しさん
2019/03/23(土) 11:39:13.69ID:uLwnX5A6■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【サッカー】U-17日本代表、激闘PK戦制す 北朝鮮撃破で6大会ぶり8強入り U17W杯 [久太郎★]
- 「国民の憤りを引き起こした」中国側“高市首相発言の撤回改めて要求” [どどん★]
- 【インバウンド】中国からの“渡航自粛”…ツアー1000人分の直前キャンセル「キャンセル料は免除してくれ」 ことしいっぱいキャンセルに [1ゲットロボ★]
- 【芸能】日中関係悪化でエンタメ業界に大ダメージ… JO1の中国でのイベント中止、邦画は公開延期、STARTOアイドルへの影響も [冬月記者★]
- XやChatGPTで広範囲の通信障害 投稿や閲覧できず [蚤の市★]
- 【サッカー】日本代表、ボリビアに3発快勝 森保監督通算100試合目を飾る…鎌田、町野、中村がゴール [久太郎★]
- Perfume・あ~ちゃんの結婚相手の一般男性、吉田カバンの社長と判明 [977261419]
- 地球から無限km先の場所ってどうなっているの?
- 自民党議員「高市は先人が築き上げた日中関係を壊した。外務省が謝罪に言ってるが自分で責任を取れ」 [834922174]
- 日本、高市のお陰で破滅に近づくwwwwwwww
- まみちゃん
- 岡田克也「軽々しく存立危機事態とか言うべきじゃない」高市早苗「台湾で武力攻撃が発生したらどう考えても日本の存立危機事態」 [931948549]
