![](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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
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ランキング
-
教えて下さい
-
ACCESS VBA インデックスが有効...
-
配列でデータが入っている要素...
-
S9タイプからXタイプにデータ...
-
不規則なデータのfft処理
-
バーコードリーダーの読込デー...
-
GridViewの行の一部を複数行にする
-
VBAでシートからコンボボックス...
-
Accessで該当データにフラグを...
-
ノイズの入った波形をきれいな...
-
DataGridViewのデータの引渡し...
-
多量のSUMIF式を軽くしたい
-
[エクセル]データの個数が2番目...
-
CString型の文字列連結について
-
阿武町4630万円誤送金事件。町...
-
VBAを使ってOutlookメール本文...
-
COBOLの定義について
-
「0x00ff0000」?
-
国土地理院の地形図の全図葉名...
-
エクセルで2つの時系列のデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
この行は既に別のテーブルに属...
-
S9タイプからXタイプにデータ...
-
Excelのマクロでワードのテキス...
-
エクセルで2つの時系列のデー...
-
Accessで該当データにフラグを...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
[C言語] コメント文字列を無視...
-
VBAを使ってOutlookメール本文...
-
プログラミング python pandas ...
-
VBA 毎日取得するデータを順番...
-
<VB>String→Object
-
カンマからスラッシュに
おすすめ情報