[[20210516222651]]　『楽天RSS利用かつ特定のマクロ実行で次回起動時にメx（OPP）　ページの最後に飛ぶ

『楽天RSS利用かつ特定のマクロ実行で次回起動時にフリーズ』（OPP）

楽天RSS関数によるデータ取得を行っているエクセルファイルにおいて、
下記のVBAマクロを実行した後にエクセルを閉じ
次回起動時、データ取得に異常な時間がかかりエクセルが必ずフリーズするようになります。
下記マクロの非実行時や、他のVBAマクロだとフリーズは発生しません。
復帰はＯＳの再起動で可能です。

下記マクロは、セルの内容をコピペしていく動作ですが、
楽天RSS関数が記載されていないセルで実施しています。

フリーズの原因に関して、何かお気づきの点がございましたら
ご教授をお願いいたします。

Sub スタート()

    'テストを実行
    Call テスト

End Sub
Sub テスト()

    Sheets("Sheet1").Select
    Range("N6:N50").Copy
    Range("O6:O50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("M6:M50").Copy
    Range("N6:N50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("L6:L50").Copy
    Range("M6:M50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("K6:K50").Copy
    Range("L6:L50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("J6:J50").Copy
    Range("K6:K50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("I6:I50").Copy
    Range("J6:J50").PasteSpecial Paste:=xlPasteValues
    Application.Wait [Now()] + 200 / 86400000
    Range("H6:H50").Copy
    Range("I6:I50").PasteSpecial Paste:=xlPasteValues
End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

RSSで使用しているDDEが影響を受けているんでしょうか。

Application.Wait [Now()] + 200 / 86400000
は何のために入れているのでしょうか？
確たる根拠はありませんが、そのかわりに、
Doeventsを入れたら事態は変わりませんか？
ひとつでだめなら2つ。

（γ） 2021/05/17(月) 09:10

お返事いただきありがとうございます。
Doeventsをいれてみましたが、ダメでした。
ちなみに手動でコピペ動作をしても再現しましたので
マクロの問題ではなさそうです。

また他PCで試したところ再現しませんでしたので
PCに依存する問題かもしれません。
アドバイスいただきありがとうございました！

もう少し調査してみます。
（OPP） 2021/05/17(月) 19:13

Changeイベントプロシージャなどが動いていて、
それが再入処理になっていて、
無限ループ的になっているとかいったことはないですか？

（γ） 2021/05/17(月) 21:42

コメント返信：

[ 一覧(最新更新順) ]

[[20210516222651]] 『楽天RSS利用かつ特定のマクロ実行で次回起動時にメx（OPP） ページの最後に飛ぶ

[[20210516222651]]　『楽天RSS利用かつ特定のマクロ実行で次回起動時にメx（OPP）　ページの最後に飛ぶ