[發問] 如何關閉Execl VBA 詢問視窗。

ericyuan86

想請問大大版主，以下作法是透過網路磁碟機分享資料的，
有A跟B檔案，B檔案為資料存放擺置網路磁碟prime區內，A檔為巨集控制項操作檔擺置sales區，
匯入資料皆正常，但是會有個問題，就是當B檔案被別人搶先開啟時，A檔案仍可執行操作匯入但未關閉，
若是B檔案此時關閉後，會在A檔的execl出現"目前可用檔案"的詢問視窗
(內容是'B檔案.xls'，現在可以被編輯。選擇[讀寫]開啟它，以便編輯。)，
想請問的是如何關閉此詢問視窗 或 關閉匯入時所產生的暫存。...... 謝謝 。

===============================================================
Sub 匯入B檔案資料至本檔案()
Dim MyBook As Workbook, uPath, uFile, j&, Jm&
Set MyBook = ThisWorkbook
uPath = "\\10.40.1.12\PRIME\"
uFile = "B檔案.xls"
If Dir(uPath & uFile) = "" Then MsgBox "※找不到〔" & uFile & "〕檔案，請確認！　", 0 + 16: Exit Sub
For j = 1 To Workbooks.Count
    If Workbooks(j).Name = uFile Then Jm = 1: Exit For
Next j
Application.ScreenUpdating = False
If Jm = 0 Then Workbooks.Open uPath & uFile
Workbooks(uFile).Sheets("Sheet1").Rows("12:30").Copy MyBook.Sheets("Sheet1").Rows("12:30")
Workbooks(uFile).Close SaveChanges:=False
MsgBox "～～複製資料完成～～　"
End Sub

dechiuan999

你好：

   不出現詢問視窗，我會使用下列語法，
你要不要先試試呢？
Application.DisplayAlerts = False