VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2018/12/27(木) 09:18:35.23

ID変わりましたが>>675です。

>>676‐>>680
遅い時間帯でありながら見てくださって
ありがとうございます。

色々と不十分だったのですね。
指摘箇所を直したりして
また報告しようと思います。

**デフォルトの名無しさん** · 2018/12/27(木) 09:19:34.30

>>675
最初に注意すべきなのは、いきなりRangeやCellsは絶対に使うべきじゃないってこと。
ちゃんと省略せずにWorkbookやWorksheetから書くようにする。
しかしそれだとコ―ドが長くなるのでそのために今回のコードのように変数で受けるかWith文を使う。

以下はスマホ上で書いてるんで動くかは不明です。

**デフォルトの名無しさん** · 2018/12/27(木) 09:20:24.73

Option Explicit
Sub practice()
Dim i As Long
Dim fullPath As String
Dim wb As Workbook
'Anothersheetじゃ分かりにくいんでopnShtに変更。
Dim opnSht As Worksheet
'追加シートは変数に受けないの?
Dim addSht As Worksheet

'セルのB3てどこ?
'多分ボタンのあるシートかなと推測。
fullPass = Thisworkbook.Worksheets("Sheet1").Range("B3").Value

'B3に出鱈目書いて動かしたらどうなるんだろう?
Set wb = Workbooks.Open(fullPath)
Set opnSht = wb.Worksheets("カピバラ情報")
With Thisworkbook
Set addSht = .WorkSheets.Add( After:=.WorkSheets("Sheet1"))
End With

'Range("A1").Selectって何の為に有るの?

'iの初期値を一番最初に書いてたけど、初めて見たとき何だか分からんかった。
'使う直前に関連処理と一緒にまとめた方が分かり易いよね。
i=4
Do While opnSht.Cells(5, i).Value <> ""
　i = i + 1
Loop
'元のCall wb.Closeなどという書き方をしたことが無いのでいつもの自分の書き方に変更。
wb.Close False
End Sub

**デフォルトの名無しさん** · 2018/12/27(木) 09:22:53.65

>>680
フォーカスを制御すべきじゃない。
いきなりRangeやCellsを使うから上手くいかないのであって、きちんとブックやシートから書けばフォーカスを制御しなければならないことは滅多に無い。

**デフォルトの名無しさん** · 2018/12/27(木) 09:26:03.58

早速間違いだ。
fullPassと書いてる所が一ヶ所ある。
fullPathに直しておいてね。

**デフォルトの名無しさん** · 2018/12/27(木) 11:21:46.87

>>684
まぁ、そうかもね。
でも最初はいろいろ試してもいいんじゃない？

**デフォルトの名無しさん** · 2018/12/27(木) 11:57:21.88

>>682‐685
ありがとうございます
深夜のご指摘から>>685まで参考にしていて

現在デバッグしてますが、“カピバラ種類”のシートが上手く取得できていないようです。
ちなみに
'セルのB3てどこ?
'多分ボタンのあるシートかなと推測。
その通りです、分かりづらくてすいません。

改行制限のためいくつかコメントは掲示板に書き込むとき省いてしまいました。

'Range("A1").Selectって何の為に有るの?
ですが、新シートのA1から書き込む為に書きましたが、デフォルトでA1から書き込むみたいですので
無駄なマクロでしたね。

**デフォルトの名無しさん** · 2018/12/27(木) 12:23:02.37

少し言葉足らずでした。
iのカウント（空白行までループ）は上手く出来ているので、現マクロ有効ブックの新シートに取得情報を
書き込めていないようです。

**デフォルトの名無しさん** · 2018/12/27(木) 12:57:12.54

>>688
うん?
Do～Loopの中はiのカウントアップしてるだけなので、あなたが省略した(と勝手に思ってるんだけど)コードが動いていないということ?

念のためにいうと、元々のコードには情報を取得するコードが全く無いからこのコードだけじゃ取り込めないのは当たり前だよね。

**デフォルトの名無しさん** · 2018/12/27(木) 13:47:48.84

すいません、
不覚に気づき、
dim j as long
j = 1
を追加し、ループを
Do While opnSht.Cells(5, i).Value <> ""
addSht.cells(j,1) = opnSht.Cells(i, 5)
j = i
　i = i + 1
Loop
にして上手くいきました、ありがとうございます。

**デフォルトの名無しさん** · 2018/12/27(木) 13:57:20.08

細かい修正として
j = i
i = i + 1
の部分も
i = i + 1
j = i - ○
のようにして、
無駄にできてしまう空白もなくしました。

お付き合いしてくださった方、
ありがとうございました。

**デフォルトの名無しさん** · 2019/01/03(木) 04:15:42.29

質問です
ワークシート上にすでに引かれている複雑な枠線をコードとしてどうにか変換というか取得できる方法はないでしょうか…

**デフォルトの名無しさん** · 2019/01/03(木) 04:35:53.91

>>692
描くのの逆をするだけじゃ？

**デフォルトの名無しさん** · 2019/01/03(木) 13:29:44.69

>>693
返事ありがとうございます
すみません、私の頭では理解できません…よかったらもう少し詳しく教えてもらえませんか

**デフォルトの名無しさん** · 2019/01/03(木) 14:57:12.35

何をしたいのか書いてよ
罫線の設定状況を知りたいだけならRange.Borders見なよとしか言えないし
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range.borders

**デフォルトの名無しさん** · 2019/01/03(木) 15:15:01.64

>>694
罫線を描く動作は理解できてる？
マクロ記録で簡単に調べられますよ。
例えば、２行２列選んで、縦横斜め全てに実線入れて
記録されたものを見ればどのような構造で描かれているのか
分かります。
記録の際は、xl～の定数でよいですが、取得の際は数値で
返ってくるので注意。
調べたければオブジェクトブラウザで調べてもよいですが、
イミディエイトで、?xlThin みたいに簡単に確認する方法も
あります。
でも、取得して使うなら数値のままでもOKです。
ここまではOK？

**デフォルトの名無しさん** · 2019/01/03(木) 16:26:50.99

>>695
>>696
会社でとある先人の作ったエクセルのフォーマットがあるのですが、それを使って作業するおばあちゃんが度々壊してしまうのです
セル結合やセルの幅など複雑になっている物なので、壊してしまったパソコンの不得意なおばあちゃんはいつも四苦八苦していて、どうにか入力された数値以外の罫線や列幅などだけボタン1つ簡単に戻せるものを作ってあげたいと考えています

頂いたヒントを元にもう少し頑張ってみます
結局わからなければまた質問させてください
ありがとうございました

**デフォルトの名無しさん** · 2019/01/03(木) 16:38:04.35

>>697
シートの保護じゃダメなの？
おばあちゃんには特定セルに数値入力させてるだけなんでしょ？

**デフォルトの名無しさん** · 2019/01/03(木) 17:30:36.94

>>697
シート保護で十分みたいですね。
もし何らかの理由で保護できないのであれば、
同フォーマットの隠しシートから書式貼り付けした方が早そう。
セル結合もあるし、１セルずつ罫線情報取得とか効率悪すぎ。

**デフォルトの名無しさん** · 2019/01/03(木) 22:01:21.27

>>698
>>699
それがわかりながらあらゆる所(不規則)を動かさないといけない時があったりで、保護だと都合が悪かったんです
フォーマット自体を大幅に変更できればもっと色々と簡単にできるのですが、それも他のおばあちゃんたちが前の方が良かった～なんて必ず言うので見た目を崩すことはできません
担当のおばあちゃんorおばさんが変われば書式貼り付けのための範囲選択も上手くできないだろうから(全選択など知りません)また誰かが黙って長時間四苦八苦する事になってしまいます
無駄にすべて最初からやろうとしたりも平気であります
平均年齢49才の職場なので仕方ないんです
誰にも聞かずに戻したい部分を戻せるような、とーーってもわかりやすい説明付きのボタンをユーザーフォーム上にでもいくつか作ってあげたいと思っています
崩してしまうパターンはだいたい把握できているので、それが最善かなと…

**デフォルトの名無しさん** · 2019/01/04(金) 02:06:01.37

>>700
いや、だから隠しシートから自動的に書式修復をかければという意味で言うたのですが、、
トリガーはファイルオープンでも、ボタンでも。

試しにやってみたけど、罫線やセル結合は問題なく修復できるみたい。
入力規則とかは引き継げないみたいなので別にケアする必要があるかも。
行挿入、列挿入とかされて座標がかわるようなことされないならこれで十分では？

自分がよくやるのは、表のエリア毎に範囲名をつけて、そのエリア単位で最初に表組みした
ときと同じ要領で表作成を記録していき、コードを整理して修復マクロにします。
これなら起点となるセルが壊されなければ行挿入、列挿入にもある程度柔軟に対応
できるし、式や入力規則の修復も追加できる。
まぁ、利用者は作成者の想定を軽く超えてきますけどね。

**デフォルトの名無しさん** · 2019/01/04(金) 08:59:12.57

>>701
理解力なくてすみません、、、
そしてありがとうございます
そのやり方を取り入れてとりあえず一度作ってみます！

**デフォルトの名無しさん** · 2019/01/19(土) 20:28:43.04

ディム　a　アズ　インテジャー
コンスト　b　アズ　バリアント　=　ファルス

この読み方はあってますか?

**デフォルトの名無しさん** · 2019/01/19(土) 20:32:43.51

さいごフォルス

**デフォルトの名無しさん** · 2019/01/20(日) 08:43:51.62

マジか!
自信なくなってきたわ。
フォーイーチ〇イン、スターコンブ、ブイビーナロウ、コンカット、
ナンバーフォーマットローカル、ドゥホワイル、イズナメリック、
デカーファンクションセットウインドウロングリブ "ユーザー32" エリアス、
バイバル〇アズブーラン、アプリケーション.ハウンド、オプションエクスプリシト。

**デフォルトの名無しさん** · 2019/01/20(日) 09:19:09.77

numeric ニューメリック
alias エイリアス
boolean ブーリアン

**デフォルトの名無しさん** · 2019/01/20(日) 09:40:31.66

ディクレィア

**デフォルトの名無しさん** · 2019/01/20(日) 12:50:34.64

ぶーりーんっておもってた

**デフォルトの名無しさん** · 2019/01/20(日) 14:02:45.95

「デカー」ってなんのことだ？

**デフォルトの名無しさん** · 2019/01/21(月) 06:06:27.68

ぶーりんってよんでた

**デフォルトの名無しさん** · 2019/01/21(月) 06:58:21.81

>>709
>>707が言う通りDeclareじゃね？

**デフォルトの名無しさん** · 2019/01/21(月) 08:09:02.73

declare デクレア(デクレアー)

発音記号を見るとディクレィアーなんだけど、音声ではディよりデに近く聞こえる
https://en.hatsuon.info/word/declare

**デフォルトの名無しさん** · 2019/01/21(月) 14:53:02.35

バイバリュー

**デフォルトの名無しさん** · 2019/01/31(木) 16:04:06.71

パワポでExcelのVBAにある
Application.OnUndo
みたいなことって出来ない？

**デフォルトの名無しさん** · 2019/01/31(木) 23:51:12.55

Application.CommandBars.ExecuteMso "Undo"

**デフォルトの名無しさん** · 2019/02/01(金) 00:00:16.48

undoをフックできるか？って質問の気がするが

**デフォルトの名無しさん** · 2019/02/01(金) 15:41:12.07

>>716
そっちだね
あるいはパワポの内部変数(たとえば図形のRGB値とか)の変化を検知してイベント上げるとかでもいいんだけども

**デフォルトの名無しさん** · 2019/02/01(金) 19:24:08.72

質問スレでいつも思うんだけど、どんな状況でそれが必要なの?
Excelで出来るんなら、逆にExcelをパワポっぽく見せるという手もあるんじゃないの?

**デフォルトの名無しさん** · 2019/02/02(土) 00:14:40.30

勉強もかねてパワポのアドイン作ってるのよ
だからExcelじゃなくてパワポで出来なきゃ意味がない
その機能自体が必須で欲しい訳ではないから出来ないなら出来ないで諦める

**デフォルトの名無しさん** · 2019/02/08(金) 13:11:59.73

何か斬新な使い方って無い?
ワードでファミコンみたいな。

**デフォルトの名無しさん** · 2019/02/09(土) 00:13:31.38

Functionで値を返すのと、ByRefで返すの、どう使い分けたらいいのか、わからなくなってきた。
どっちでも返せる状況なら、どっちがいい?

**デフォルトの名無しさん** · 2019/02/09(土) 00:37:08.95

他人とか将来の自分が読みやすいようにFunctionで

**デフォルトの名無しさん** · 2019/02/09(土) 00:41:30.67

処理によるとしか

**デフォルトの名無しさん** · 2019/02/09(土) 04:25:25.62

Function一択

ByRefは古い書き方で互換性のために残してる
これから作るプログラムには使うべきじゃない

**デフォルトの名無しさん** · 2019/02/09(土) 09:13:25.95

>>721
どちらでもいい状況ならFunctionの方が使い易いのでFunctionにした方がいい
あと>>724はアホだからスルーで

**デフォルトの名無しさん** · 2019/02/09(土) 09:25:22.06

ByRefが互換性維持のために存在するという話は聞いたことがないぞ

**デフォルトの名無しさん** · 2019/02/27(水) 18:52:45.21

sortのcustomorderって、セル値を入れられたりはするのでしょうか？
複数のセル値を優先順位としてデータを並び替えるマクロを作成したのですが動作が遅いので改善出来ればと考えています。（forとifで判定する手法をとっています）
よろしくお願いします

**デフォルトの名無しさん** · 2019/03/02(土) 08:39:42.60

標準のソート機能で出来ないことでもやるの?
駄目ならSQL使うとか。

**デフォルトの名無しさん** · 2019/03/19(火) 09:29:22.78

VBAがどっとNet対応
キターーーー！

**デフォルトの名無しさん** · 2019/03/19(火) 10:26:45.09

Select from…
懐かしいな

**デフォルトの名無しさん** · 2019/03/19(火) 11:16:03.50

>>729
？

**デフォルトの名無しさん** · 2019/03/19(火) 22:45:44.06

さて、名前付き範囲ってVBA@Excelで使えないんだろうか。
もし使えたとして、実行時間はどうなのだろうか。
色々と謎が多い。

**デフォルトの名無しさん** · 2019/03/19(火) 23:22:30.00

>>732
それ使うと後でエラー見つけるのめんんどくさくなる

**デフォルトの名無しさん** · 2019/03/20(水) 00:38:39.23

>>732
使えるよ
Application.Namesでコレクション取得して名前つき範囲にアクセスできるし、シートのRangeプロパティの引数ラベルとして名前をそのまま使ってセル取得できる

**デフォルトの名無しさん** · 2019/03/20(水) 16:11:53.05

>>733
横からだけど、どう面倒になるの？

**デフォルトの名無しさん** · 2019/03/20(水) 19:48:02.99

>>735
セルの編集したときに壊れてた

**デフォルトの名無しさん** · 2019/03/20(水) 21:06:17.96

名前をキーにして名前付き範囲にアクセスするときはリスト形式になってるNamesコレクションの要素に対して正規表現か何かで逐次マッチ検索してるはずだから、名前付き範囲が増えれば増えるほどアクセスが遅くなる

**デフォルトの名無しさん** · 2019/03/21(木) 01:35:24.94

なんで正規表現？
完全一致でいいじゃろ？
SortedListなら量に正比例して増えることはない

**デフォルトの名無しさん** · 2019/03/21(木) 07:27:32.08

>>736
それおま環だろ

**デフォルトの名無しさん** · 2019/03/21(木) 07:34:08.81

>>737
> 正規表現か何かで逐次マッチ検索してるはずだから
なんだその意味不明な思い込みはw
普通に考えてハッシュなりB-Treeなり使ってるだろ
そもそも逐次検索だとしても遅さが気になるほど大量の名前付き範囲使う時点でなにか間違ってると思う

**デフォルトの名無しさん** · 2019/03/22(金) 17:57:33.45

会社でブラウザの検索結果のページで
いっぱいURLのリンク先が表示されるのですが
そのたくさんのURLのそれぞれを開いたページ(毎回違うけど50ページくらいある)のデータを取得するVBAのコードを考えています。
IEの定番のCreateObject("InternetExplorer.Application")とDOMツリーの方法で実現できてはいるのですが
1つ1つページを開いて取得して閉じる、という作業がネットワークの遅さで異常に時間がかかります。
この複数のページを同時で取得する方法ってないでしょうか？よく知らないけどJavaでいうスレッドみたいな？

**デフォルトの名無しさん** · 2019/03/22(金) 18:35:53.24

>>741
VBAはマルチスレッド非対応だから無理

**デフォルトの名無しさん** · 2019/03/22(金) 19:06:27.17

>>742
そりゃないよ、かあちゃん

**デフォルトの名無しさん** · 2019/03/22(金) 19:28:02.41

>>741
VBAでマルチスレッドは基本的に出来ないと考えるべき。
物凄く不安定だし、Excelのオブジェクト(Rangeとか)を触った途端にExcelが消える。
で、マルチスレッドは出来ないけどマルチプロセスは出来る。

1.プログラムのブックに指定のURLのページの情報を取ってくるプロシージャを作る
2.複数のExcel.Applicationを使って、自分自身のブックを別のExcelから開くメインプロシージャを作り、その中でobjExcel.Runを使って情報を取ってくるプロシージャを動かすようにコードを書く。
3.ブックを保存する。
4.メインプロシージャを動かす

たぶん、こんな感じでできたはず。

**デフォルトの名無しさん** · 2019/03/22(金) 19:35:54.55

>>744
ありがとうございます。
しかし、もし50個URLがあれば50個新しくExcel自体を起動しないといけないのですか？
そんなことしたら激重になってしまうように思うのですが。

**デフォルトの名無しさん** · 2019/03/22(金) 19:38:23.65

複数のInternetExplorer.Applicationのインスタンス立ち上げれば行けんじゃないか

**デフォルトの名無しさん** · 2019/03/22(金) 19:57:22.45

>>746
今それができないって会話をしてたところだけど理解してる？

**デフォルトの名無しさん** · 2019/03/22(金) 20:04:27.42

>>747
どこでそれが出来ないって話をしてる？

**デフォルトの名無しさん** · 2019/03/22(金) 20:19:56.99

>>748
>>742

**デフォルトの名無しさん** · 2019/03/22(金) 20:49:35.12

>>741
フレームを50個並べたページのHTMLをローカルで作って開けば一気に読み込んでくれる

**デフォルトの名無しさん** · 2019/03/22(金) 21:25:13.65

なんか勘違いしてるやつがいるけど、VBAがマルチスレッドじゃないことと、IEを複数開くのはまったく別のことだからな

IEはOfficeとはまったく無関係の独立したプロセスだから、いくつでもインスタンス化できるし同時にネットアクセスできる
IEオブジェクトを配列で作っといて、ページの読み込み完了を待たずにどんどん開いてけばいいんだよ

**デフォルトの名無しさん** · 2019/03/22(金) 22:10:54.82

>>751
そのプロセスを制御するVBAがシングルスレッドだろ

**デフォルトの名無しさん** · 2019/03/22(金) 22:13:33.32

>>751
あ、開けば終わりと勘違いしてる？

**デフォルトの名無しさん** · 2019/03/22(金) 22:13:49.76

IEにタブをいくつも開いてもらって、みんな読み込んだところでおもむろに順番に処理すればいいってことだろ。

**デフォルトの名無しさん** · 2019/03/22(金) 22:15:47.88

>>752
VBAはシングルスレッドだが、IEでの読み込みは同時並行的にやってくれるんじゃねえの？

**デフォルトの名無しさん** · 2019/03/22(金) 22:38:21.07

>>750
？
>>751
その具体的な方法をコードで例示する形で教えていただきたいのでござるよ。

いまだと
Do While readyState < 4
Do Events
Loop
の待ちを50個のURLで1つ1つ順番にやってて
1つのURLを読んでデータ取って閉じる、というのをやるのが社内ネットワークが遅いため(データベースからの読み込みも含まれるからの)1つあたり1分近くかかってる。
だから異常に時間がかかる。
一気に全部同時にやれないかなと。

**デフォルトの名無しさん** · 2019/03/22(金) 22:40:55.80

そんなもんそれこそ流行りのRPAでやればいいのでは

**デフォルトの名無しさん** · 2019/03/22(金) 22:40:56.05

できるっていうくせにコードは出てこないのね

**デフォルトの名無しさん** · 2019/03/22(金) 22:57:51.11

そもそも回線が細いのはプログラムでどうこうできないから上司を説得して諦めてもらうしかない

**デフォルトの名無しさん** · 2019/03/23(土) 01:14:24.21

趣味でやってるんじゃなかったら
適当なダウンロードソフト使ったほうが良いんじゃない

**デフォルトの名無しさん** · 2019/03/23(土) 12:00:24.62

動くかどうか試してないけど、こんな感じでいいんじゃない？
もう少し効率を上げるなら、読み込めたページからさっさと処理してもいいし

Sub test()
　　pg = 50　　 ' 同時に開きたいページ数
　　Dim ie() As Object
　　Dim url() As String
　　ReDim ie(pg-1)
　　ReDim url(pg-1)
'ここでURL設定
　　For i = 0 To pg-1
　　　　Set ie(i) = CreateObject("InternetExplorer.Application")
　　　　' ie(i).Visible = True　　'表示しない
　　　　ie(i).navigate url(i)
　　Next
　　Do
　　　　flg = True
　　　　For i = 0 To pg-1
　　　　　　If ie(i).readyState < 4 Then
　　　　　　　　 flg = False
　　　　　　End If
　　　　Next
　　Loop Until flg　　'全ページの読み込み待ち
'ここで読み込んだページを処理
End Sub

**デフォルトの名無しさん** · 2019/03/23(土) 15:33:38.79

>>761
ありがとうございます。
試してみます。
最初のFor Nextループがものすごく時間がかかりそうで楽しみです。
あと先日は説明の簡略化のためにシンプルに書いたけど
実は開いたURL内で、ある条件があると、さらにその親URL内のAリンクの子URLも開かないといけない複雑な事情があるのです。

**デフォルトの名無しさん** · 2019/03/23(土) 19:47:18.63

>>761
Exit For抜けてますよ
フラグも i = pg-1まで行けたときに立たせるだけで十分だと思います

あと、非表示でIEを50立ち上げると中断した時のプロセスの掃除が大変なので、Ajaxで無ければXMLHTTP60を使うのも手かもしれません。

**デフォルトの名無しさん** · 2019/03/24(日) 00:51:51.95

>>752
まさかIEオブジェクトの読み込み動作がVBAのスレッドで処理されてると思ってるのか？
>>753
終わりじゃないので考慮点はある

コード書こうかと思ったけど、>>761さんが書いてるからまあいいか
読み込み完了の検出とかどうするか悩みどころではある
イベントハンドラの動的設定か、せめてWithEventsが配列にも宣言出来ればなぁ

まあ50も多重化してもオーバーヘッドかかるだけで高速化しない気がするから
数個固定で持たしてイベントハンドリングするのが現実的かもしれん

**デフォルトの名無しさん** · 2019/03/24(日) 01:34:57.18

この場合Do Loopを抜ける条件が全ページの完了だから、Exit Forはあってもなくても結果というかスピードは変わらないね
さっさと抜けたところで、またForループに戻るだけだし

個人的には「pg - 1」が何回も出てくるのが美しくないなあとか、ForとDoの順番を逆にした方がコンパクトになりそうだなあとか

**デフォルトの名無しさん** · 2019/03/24(日) 01:38:23.22

一括処理なら、この方がコンパクト
まあ、ホストの応答速度や、次の処理の内容次第では終わったページからどんどん片付けた方がいいだろうけど
For i = 0 To pg-1
Do
Loop Until ie(i).readyState >= 4
Next

**デフォルトの名無しさん** · 2019/03/24(日) 08:29:39.64

>>765
> 個人的には「pg - 1」が何回も出てくるのが美しくないなあとか
C言語とかに慣れてるんだろう
VBA的には
ReDim ie(1 To pg)
ReDim url(1 To pg)
For i = 1 To pg
だろうね
可能であればieとurlをTypeで纏めてそれを配列にした方が見易い

**デフォルトの名無しさん** · 2019/03/24(日) 08:58:33.34

>>766
ははは、これは笑った。確かにこれが単純明快でコンパクト w

**デフォルトの名無しさん** · 2019/03/24(日) 10:28:46.47

>>766
それだとサイズのでかいページで待ちが発生する

Do
For i
If ie(i)準備完了 And i.処理フラグFalse then
処理
処理フラグTrue
カウント
End if
Next
カウント=50 exit
Loop

**デフォルトの名無しさん** · 2019/03/24(日) 10:33:07.42

>>769
投げてからの待ちだからいいんじゃねえの？
俺はやったことないから知らんが、投げたらあとはIEが並行処理で取ってくるんだろ
で全部取ってから次の処理なら問題ない
でかいページでVBAが待っていても同時に他のページもIEが取って来てるんじゃねえの
だからでかいページで待っていてもそれが終わったら他の軽いページも取り終っていてあとは
ばたばたと進んで終了、と理解している

**デフォルトの名無しさん** · 2019/03/24(日) 10:52:55.88

>>769
ああ、すまん。それがわかってる上で待ち時間がもったいない、ということね
>>766もそこは注意書きはしているな

**デフォルトの名無しさん** · 2019/03/24(日) 10:56:37.24

IEはマイクロソフトも使うなって言ってるのに
VBAって不便だよね

**デフォルトの名無しさん** · 2019/03/24(日) 11:58:25.29

IE使えなくなったら、どうやってブラウザ制御するの?
UIAutomation面倒くさいかから、

**デフォルトの名無しさん** · 2019/03/24(日) 11:58:47.29

getElementByしたいんだけど。

**デフォルトの名無しさん** · 2019/03/24(日) 12:34:48.16

IE使えなくなったらってもう使ってる人なんていない
セキュリティに甘いとこは使えるのか？

**デフォルトの名無しさん** · 2019/03/24(日) 13:28:35.85

ちゃんと動くのか試してみた
たしかにIEが複数開いて、平行処理でページを取ってくるね
VBAのシングルスレッドとか完全に無関係やん

**デフォルトの名無しさん** · 2019/03/24(日) 13:33:22.28

>>776
まだそこ？

**デフォルトの名無しさん** · 2019/03/24(日) 13:36:50.26

大昔からあるファイルシステムだって非同期読み書きできる
1000倍遅いネットワークで出来ないはずがないだろうが

**デフォルトの名無しさん** · 2019/03/24(日) 13:55:48.62

>>778
無能管理職かよ

**デフォルトの名無しさん** · 2019/03/24(日) 14:55:03.02

現実的には50並列で全ページ完了待ちするのはどうもなぁ

あと全力でループまわして完了待ちするのも無反応になるんじゃね
とりあえずDoEvents挟もうぜ

>>776
スレッド以前に、ＩＥオブジェクトが別プロセスだから
アウトプロセスのCOM使うのはVBAで並列やる、おそらく安全で簡単な唯一の方法
まあCOM作る方は大変だがな

>>777
OSがサポートしてるだけで、VBAから使えるかどうかとは別の話
VBAで非同期並列やりたければ、基本的にはイベントベースでしかサポートされていない