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

エクセル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 回答日時： 2014/09/03 10:25

> Workbooks.Open 選択ファイル

の行を

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

この回答へのお礼

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

お礼日時：2014/09/08 19:39

No.2 回答者： bin-chan 回答日時： 2014/09/03 17:56

＃１です。

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

この回答へのお礼

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

お礼日時：2014/09/08 19:39