![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になってます。
以下のプログラムで外部データの更新を入れたのですがうまく作動しません。
Dim sh As Worksheet
Dim lr As Long
Dim tlr As Long
For Each sh In Worksheets
If sh.Name Like "*D" Then
sh.Select
Selection.QueryTable.Refresh
End If
Next
For Each sh In Worksheets
If sh.Name Like "*D" Then
lr = sh.Cells(Rows.Count, 5).End(xlUp).Row
sh.Rows("1:" & lr).Copy
tlr = Sheets("統合データ").Cells(Rows.Count, 5).End(xlUp).Row
Sheets("統合データ").Range("A" & tlr + 1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End If
Next
プログラムの内容としては
(1)末尾が"D "のシートのデータを更新する(これらのシートは外部データを取込んでいます)
(2)"*D"シートのデータを全て"統合データ"シートに上から順に貼り付ける
ですが、上のプログラムだともとあるデータを貼り付けてからデータを更新しています。更新後のデータを貼り付けるにはどのようにすればよいでしょうか。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。QueryTable はディフォルトでは非同期ですからね...更新前にどんどん先へ
コードを実行してしまいます。同期させたいなら、BackgroundQuery プロパティー
を False にしてください。
それから、Worksheets コレクションで同一のものを2度ループさせるさせる
のは冗長なので、一回で済ませましょう。
こんな感じでどうですか?
Sub SampleProc()
Dim Sh As Worksheet
Dim QT As QueryTable
Dim lSrcLastRow As Long
Dim lDstLastRow As Long
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name Like "*D" Then
For Each QT In Sh.QueryTables
' 更新を待機するためには BackgroundQuery = True にします
QT.BackgroundQuery = False
QT.Refresh
Next
' データコピー
lSrcLastRow = Sh.Cells(Rows.Count, "E").End(xlUp).Row
Sh.Rows("1:" & CStr(lSrcLastRow)).Copy
' データペースト
With ThisWorkbook.Sheets("統合データ")
lDstLastRow = .Cells(Rows.Count, "E").End(xlUp).Row
.Rows(lDstLastRow + 1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
End With
End If
Next
Application.CutCopyMode = False
End Sub
KenKen_SPさん、いつもありがとうございます。backgroundqueryでうまくいきました。あとシンプルなコードも参考になりました。ありがとうございます。
No.1
- 回答日時:
こんばんは。
細かい部分はみていませんが、
>sh.Select
>Selection.QueryTable.Refresh
ここに無理がありますね。
Selection は、シートのことですから、そのままでは、実行できません。
そこに、正しいRange オブジェクトが入れば動きますが、そう上手くは行きませんから、
その二行は、
sh.QueryTables(1).Refresh
(QueryTable が、そのシートの中で一つの場合)
となるはずです。
こちらは、試していないので分からないのですが、Refreshした時のインポートのタイムラグ(数秒)があるので、そのままマクロが次に実行していかないか、ちょっと不安です。Wait を入れたほうが無難かもしれません。それだけは、やってみないと分からないのです。
Wendy02さんありがとうございます。試してみたところうまくいきました。querftable.refreshの使い方参考になりました。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
マクロで、次のコードへ行く前に時間をおくにはどうしたらいいのでしょうか?
その他(Microsoft Office)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
外部データを取り込むマクロ
Access(アクセス)
-
5
WebのデータをとりこむExcelマクロのエラーについて
Excel(エクセル)
-
6
【ExcelVBA】外部データの更新をセルに即時反映する方法
Visual Basic(VBA)
-
7
Refreshで落ちる
Visual Basic(VBA)
-
8
Excelでマクロ設定したが反映されない(初心者です)
Excel(エクセル)
-
9
【ExcelVBA】クエリの更新とピボットの更新を自動化するには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
S9タイプからXタイプにデータ...
-
VBA 空白セルを削除ではない方...
-
Accessで該当データにフラグを...
-
DataGridViewのデータの引渡し...
-
ACCESS VBA インデックスが有効...
-
VBAを使ってOutlookメール本文...
-
[エクセル]データの個数が2番目...
-
この行は既に別のテーブルに属...
-
マクロで同じフォルダにある画...
-
VBAでシートからコンボボックス...
-
バーコードリーダーの読込デー...
-
ノイズの入った波形をきれいな...
-
GridViewの行の一部を複数行にする
-
シリアル通信でのデータ受信
-
issetでボタンが押されたかを確...
-
MATLAB matファイル(名前にピ...
-
多量のSUMIF式を軽くしたい
-
「0x00ff0000」?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
この行は既に別のテーブルに属...
-
S9タイプからXタイプにデータ...
-
Excelのマクロでワードのテキス...
-
エクセルで2つの時系列のデー...
-
Accessで該当データにフラグを...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
[C言語] コメント文字列を無視...
-
VBAを使ってOutlookメール本文...
-
プログラミング python pandas ...
-
VBA 毎日取得するデータを順番...
-
<VB>String→Object
-
カンマからスラッシュに
おすすめ情報