- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-10-18
- 最後登錄
- 2011-10-19
|
本帖最後由 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 |
|
發表於 2011-10-18 16:51
| 
