Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2522 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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を使用し、無事に解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2522 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free