[[20050826152545]]　『リンクを更新して開くというコード』（ひよっぴ）　ページの最後に飛ぶ

『リンクを更新して開くというコード』（ひよっぴ）

 こんにちは。
 あるファイルを開く時に、普通だと「リンクを更新しますか」というメッセージが
 出るようなファイルを、VBAで開かせたいのですが、記録マクロだけでは
 勝手にファイルが開いて、「更新しますか」というメッセージはでないのです。
 更新しないと、意味のないコードになってしまいます。
 開くコードの前か後に、何かしらのコードを追加しないとダメなのですか。
 もしそうであれば、そのコードを教えていただければと思います。
 宜しくお願い致します。

 マクロの記録でやってみましたが、記録されるようですよ。
 Workbooks.Open Filename:= _
        "C:\Documents and Settings\ユーザー名\デスクトップ\Book2.xls", UpdateLinks:=3
 　　
 UpdateLinks:=3　の部分が更新選択部分のようです。

 （川野鮎太郎）Open メソッドのヘルプを参照してください。

 ちょっと違うけど、参考になれば幸いです。
その対象BookのThisworkbookモジュールに貼り付けます。
どうでしょうか？
Option Explicit
Private Sub Workbook_Open()
Dim MyLink As Variant
Dim i As Long
MyLink = ThisWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(MyLink) Then
    If vbYes = MsgBox("リンク先を開きますか？", vbYesNo) Then
        For i = LBound(MyLink) To UBound(MyLink)
            If Dir(MyLink(i)) <> "" Then
                Workbooks.Open MyLink(i)
            Else
                MsgBox MyLink(i) & "　は、ありません"
            End If
        Next i
    End If
End If
End Sub
（SoulMan）

 鮎さん、ありがとうございました。
 3、ですね。
 私のは0になっていました。。。何故だろう？
 今度はうまくいきました。ヘルプも見てみました。

 SoulManさん、ありがとうございます。
 でも、0設定になっているせいか、うまくいきませんでした。
 本当は、開きますか?って聞いてくるんですよね？

 って、あ！きいてきました。
 リンクをなしで開こうとすると、聞いてくるんですね！
 す、すごい、ありで開くとそのまま開き、なしで開くと聞いてくるなんて。。。
 安全対策みたいです！
 ありがとうございましたm(__)m
 (ひよっぴ)

コメント返信：

[ 一覧(最新更新順) ]

[[20050826152545]] 『リンクを更新して開くというコード』（ひよっぴ） ページの最後に飛ぶ

[[20050826152545]]　『リンクを更新して開くというコード』（ひよっぴ）　ページの最後に飛ぶ