電子書籍ギフト♪ 最大10,000円が当たる!

エクセル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

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

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

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

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

教えて!goo グレード

A 回答 (2件)

> Workbooks.Open 選択ファイル


の行を

Workbooks.Open Filename:=選択ファイル, UpdateLinks:=0
としてみて下さい
    • good
    • 2
この回答へのお礼

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

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

#1です。



元のソース
> Else
> Workbooks.Open 選択ファイル
> End If
を編集ですよ
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

人気Q&Aランキング