![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になってます。
以下のプログラムで外部データの更新を入れたのですがうまく作動しません。
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
【ExcelVBA】外部データの更新をセルに即時反映する方法
Visual Basic(VBA)
-
6
Excelでマクロ設定したが反映されない(初心者です)
Excel(エクセル)
-
7
WebのデータをとりこむExcelマクロのエラーについて
Excel(エクセル)
-
8
【ExcelVBA】クエリの更新とピボットの更新を自動化するには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
メモ帳(テキストデータ)をExc...
-
【エクセル】測定時間がバラバ...
-
この行は既に別のテーブルに属...
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
エクセルで2つの時系列のデー...
-
配列でデータが入っている要素...
-
なぜ通りがけをすると昇順に整...
-
csvファイルに複数行あるデ...
-
DataGridViewのデータの引渡し...
-
ブレーカー落ちで壊れたりしな...
-
[エクセル]データの個数が2番目...
-
プログラミング python pandas ...
-
python, 空のタプルの必要性
-
GridViewの行の一部を複数行にする
-
チェックサムの実装方法について
-
C# でDataTableの更新を高速化...
-
VB6.0 テキストデータの受け取り
-
issetでボタンが押されたかを確...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
VBAを使ってOutlookメール本文...
-
VBA 空白セルを削除ではない方...
-
S9タイプからXタイプにデータ...
-
多量のSUMIF式を軽くしたい
-
Accessで該当データにフラグを...
-
[C言語] コメント文字列を無視...
-
[エクセル]データの個数が2番目...
-
エクセルで2つの時系列のデー...
-
特定のデータの抽出方法を教え...
-
外部データの更新がうまくでき...
-
ActiveReportについて
-
CString型の文字列連結について
-
ユーザーフォームのテキストボ...
-
カンマからスラッシュに
-
シーケンサにパソコンからアク...
おすすめ情報