マクロでリンクを更新しないで開く

質問

エクセル2013です。
リンクを更新しないで開く
ネットで調べて

Workbooks.Open Filename:="C:\作業用フォルダ\更新データ名.xls", UpdateLinks:=0

に行きつきました。
私の構文は

MsgBox "編集したいデータを選択してください", vbInformation, "手順"
MsgBox "ファイル選択画面を開きます", vbInformation, "ファイル選択"
選択ファイル = Application.GetOpenFilename

If 選択ファイル = False Then
MsgBox "中止します", vbExclamation
Exit Sub 'キャンセル選択時
Else
Workbooks.Open 選択ファイル
End If

というふうに、作業者が開くbookを選択する為、対象のドライブが固定できません

Workbooks.Open Filename:="C:\作業用フォルダ\更新データ名.xls", UpdateLinks:=0

をどのように応用すればいいかわからず
いろいろ試したのですが駄目です。
（上記構文中のcはcドライブの事だと思っています？）

とりあえず★の部分を2行追加して

MsgBox "編集したいデータを選択してください", vbInformation, "手順"
MsgBox "ファイル選択画面を開きます", vbInformation, "ファイル選択"
選択ファイル = Application.GetOpenFilename

If 選択ファイル = False Then
MsgBox "中止します", vbExclamation
Exit Sub 'キャンセル選択時
Else
Workbooks.Open 選択ファイル
Application.AskToUpdateLinks = False '★メッセージを表示しない
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever '★リンクの自動更新を行わない
End If

のようにしてみたのですが

ブック内の一部のリンクはすぐに更新できません
「更新」「接続」

と警告メッセージが出てしまいます。

アドバイスをお願いいたします。

回答No.1

bin-chan · ベストアンサー

> Workbooks.Open 選択ファイル
の行を

Workbooks.Open Filename:=選択ファイル, UpdateLinks:=0
としてみて下さい

お礼

返事が遅れてすいません。
教えて頂いたとうりで
思ったように動きました。
ありがとうございました。

回答No.2

bin-chan

＃１です。

元のソース
> Else
> Workbooks.Open 選択ファイル
> End If
を編集ですよ

お礼

返事が遅れてすいません。
教えて頂いたとうりで
思ったように動きました。
ありがとうございました。