Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2521 / 13645 ツリー ←次へ | 前へ→

【67473】リンクダイアログのスルー koke 10/12/8(水) 14:13 質問[未読]
【67475】Re:リンクダイアログのスルー Jaka 10/12/8(水) 15:43 発言[未読]
【67503】Re:リンクダイアログのスルー sasa 10/12/9(木) 17:26 回答[未読]
【67521】Re:リンクダイアログのスルー koke 10/12/10(金) 14:15 お礼[未読]

【67473】リンクダイアログのスルー
質問  koke  - 10/12/8(水) 14:13 -

引用なし
パスワード
   下記のVBAを作成し、動かしているのですが、
Office2002以降では、問題なく動くのですが、Office2000では、コピー先のファイルを開く際に、リンクのダイアログが表示されます。
コピー先ファイルのリンクを削除したらよいのですが、どうしても見つかりません。
なので、下記のマクロにリンクダイアログをスルーするようにしたいのですが、どのようにすればよいか教えてください。

Private Sub CommandButton1_Click()

Dim wb As Workbook
Application.ScreenUpdating = False

Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls")
ThisWorkbook.Sheets("BBB").Range("E4:AR4").Copy wb.Sheets("CCC").Range("E4:AR4")
Application.DisplayAlerts = False
wb.Close (True)
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

【67475】Re:リンクダイアログのスルー
発言  Jaka  - 10/12/8(水) 15:43 -

引用なし
パスワード
   リンクのアラート操作は、難しかったような記憶があります。
(やった事はなくて、過去に読んだだけです。)

ツール → オプション → リンクの自動更新前にメッセージを・・・・
のチャックを外す。
をマクロ記録してみる。

2003の場合、
Application.AskToUpdateLinks = False
でした。

これは、2000にあったかどうか判りませんが、
編集 → リンクの設定 → 起動時の確認 → メッセージを表示するかどうか選択する
以外を選択する。

>コピー先ファイルのリンクを削除したらよいのですが、どうしても見つかりません。
例えば、対象ブックが開いていれば、
「[」で検索をかけてみる。
閉じていれば、
「\」で検索してみるとか。
他、オブジェクトがリンクしている可能性もあるけど。

数式の結果等が狂ってもいいのなら、先ほどの
編集 → リンクの設定
リンクの解除か、
リンク元の変更で、自ブックを選択のどちらか。

【67503】Re:リンクダイアログのスルー
回答  sasa  - 10/12/9(木) 17:26 -

引用なし
パスワード
   ▼koke さん:
>下記のマクロにリンクダイアログをスルーするようにしたいのですが、どのようにすればよいか教えてください。

Openメソッドの引数UpdateLinks を設定すれば良いと思います。

【67521】Re:リンクダイアログのスルー
お礼  koke  - 10/12/10(金) 14:15 -

引用なし
パスワード
   >Openメソッドの引数UpdateLinks を設定すれば良いと思います。
ありがとうございます。
引数UpdateLinksを使用し、無事に解決しました。

2521 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free