標題: [發問] 如何關閉Execl VBA 詢問視窗。 [打印本頁]

---

作者: ericyuan86    時間: 2011-10-18 16:51     標題: 如何關閉Execl VBA 詢問視窗。

本帖最後由 ericyuan86 於 2011-10-18 16:54 編輯

想請問大大版主，以下作法是透過網路磁碟機分享資料的，
有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    時間: 2011-10-19 07:20

你好：

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)