この記事では、VBAコードを使用してx間隔の後に外部ワークブックリンクを自動更新する方法を学習します。

Q）：10秒ごとに外部ワークブックのリンクを自動的に更新するにはどうすればよいですか？

10秒ごとにExcelファイルを更新するには;以下の手順に従う必要があります：

2つのExcelファイルを作成する必要があります1）Source.xlsmと2）Target.xlsm次に、両方のファイルを開く必要があります。

ソースワークブックでは、範囲A1：D10でRAND関数を使用しました。次に、[形式を選択して貼り付け]コマンドを使用してこの範囲をコピーし、[ターゲットワークブックでリンクを貼り付け]を選択します。ターゲットワークブック; VBエディターを起動します。[開発者]タブをクリックします。* [コード]グループから[VisualBasic]を選択します

img2

img3

このワークブックモジュールに次のコードを入力します

img4

プライベートサブWorkbook_Open（）

Update_Linksを呼び出す

サブの終了

  • [挿入]をクリックしてから[モジュール]をクリックします

img5

これにより、新しいモジュールが作成されます。

img6

モジュールに次のコードを入力します

Sub Update_Links（）

エラー時に次を再開

ActiveWorkbook.UpdateLink Name：= ActiveWorkbook.LinkSources

Application.OnTime DateAdd（ “s”、10、Now）、 “Update_Links”

サブの終了

上記のコードは10秒ごとに実行され続け、リンクを更新します。

img7