[[20190111213147]]　『VBA 外部参照値更新』（み）　ページの最後に飛ぶ

『VBA 外部参照値更新』（み）

エクセルファイルにいくつかシートがあり、2枚目のシートは他のエクセルファイルより値を持ってくるよう計算式が入っております。
ファイルを開いた際、更新を行いたいのですが、どのようにマクロを書けばよいでしょうか。
ご教示いただけますでしょうか。

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

手作業の場合は、どのように更新しているのでしょうか。

（マナ） 2019/01/11(金) 22:12

起動時に更新されるようになっているはずなのですが、更新されないですし、
多数のメンバーが使用するので、個々で設定が異なる為。
（み） 2019/01/12(土) 00:17

＞起動時に更新されるようになっているはずなのですが、更新されないですし

手作業で、更新できないという意味ですか？

＞多数のメンバーが使用するので、個々で設定が異なる為。

意味がわかりません。
具体例をあげて説明できませんか。

（マナ） 2019/01/12(土) 09:48

マクロのThis Workbookのところに

Private Sub Workbook_Open()

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

End Sub

を記載したのですが、更新がされません。
間違っているのでしょうか。
（み） 2019/01/13(日) 11:31

マクロは、いったん忘れてください。
手作業では、更新できているのでしょうか？

（マナ） 2019/01/13(日) 14:52

手作業では更新出来ます。
（み） 2019/01/13(日) 22:24

よくわかっていませんが

手作業では更新するときは、そのファイルをopenするのではないですか？

（マナ） 2019/01/13(日) 23:14

手作業で行う時は、リンクの編集→値の更新を押して更新を行います。
（み） 2019/01/14(月) 18:59

 >手作業で行う時は、リンクの編集→値の更新を押して更新を行います。
 それを記録してみてはどうでしょうか？
（SoulMan） 2019/01/14(月) 19:37

 見当違いならすみません。

 リンクの編集→起動時の確認→メッセージを表示しないで、リンクの自動更新を行う

 これで自動更新できないですか?

 もしリンクの自動更新と値の更新が別物なら忘れて下さい。
（ぬっ子） 2019/01/14(月) 19:52

全然わかっていませんが、
すべてのリンク先をいったん開き、すぐ閉じるとか。

 Option Explicit

 Private Sub Workbook_Open()
    Dim myLinks, lnk

    Application.ScreenUpdating = False

    ThisWorkbook.UpdateLinks = xlUpdateLinksAlways

    myLinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(myLinks) Then
        For Each lnk In myLinks
            Workbooks.Open(lnk).Close False
        Next
    End If

 End Sub

（マナ） 2019/01/14(月) 21:21

コメント返信：

[ 一覧(最新更新順) ]

[[20190111213147]] 『VBA 外部参照 値更新』（み） ページの最後に飛ぶ

[[20190111213147]]　『VBA 外部参照値更新』（み）　ページの最後に飛ぶ