質問: 6 'webページから成績一覧を抜粋する行を指定している。6が都合がよい .refresh backgroundquery:=false end with とりこんだクエリをexcel内でコピー&ペースト 以上の処理をチーム名を変えて繰り返し実行しています。 1,2回目までは普通に動くのですが、数回繰り返すと、処理が重くなり途中で止まってしまいます。
回答: こんばんは。 activesheet.querytables.add して同じ場所で、querytables.add を繰り返すことは基本的にはできないです。add を使う場合は、予め、一旦、querytable を削除しないとできないはずです。 with activesheet if .querytables.count > 0 then .querytables(1).delete .usedrange.clearcontents 'コピー&ペーストはしている前提です。 end if with .querytables.add.... ・ ・ ・ end with end with ところで、初めてみるサイトではあるのですが、典型的なwebクローリングの練習台のような気がします。query ではない方法で、取り組んでみると、webを利用したvbaの勉強になると思います。