|
下記の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
|
|