Board logo

標題: [發問] Excel 檔案被其他人開啟 [打印本頁]
作者: borshun88    時間: 2012-11-22 20:45     標題: Excel 檔案被其他人開啟

Dear 大大
利用目前的EXCEL檔案(例如:活頁簿1)來開起另一個EXCEL檔案(BB)
Dim A As Workbook, B As Worksheet
Set A = Workbooks.Open(Filename:=ThisWorkbook.Path & "\bb.xlsm")
Set B = A.Sheets("工作表1")
Range("A1") = B.Range("A1")
end sub
如果遇到BB檔案被別人開啟中,就會出現執行錯誤,而自動開啟BB檔案,
無法再繼續執行下面程式,
是否有辦法可以在不管檔案是否有被開啟中仍可以繼續執行該程式.
那要如何修改??
謝謝
作者: mark15jill    時間: 2012-11-23 16:36

回復 1# borshun88


   
提供給您 Heish 大大之前所發的程式碼
參考網址
http://gb.twbts.com/index.php?topic=13181.0

Sub nn()
Dim w As Window, wb As Workbook
Set d = CreateObject("Scripting.dictionary")
For Each w In Windows
　 d(w.Caption) = w.Caption
Next
Sheets("new").Select
　　Rows("1:1").Select
　　Selection.Copy
If d.exists("new.xls") = False Then Workbooks.Open Filename:="D:\new.xls"
Set wb = Workbooks("new.xls")
wb.Activate
　　ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
　
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　:=False, Transpose:=False
　　Application.CutCopyMode = False
　
　　wb.Save
End Sub
作者: GBKEE    時間: 2012-11-23 16:46

回復 1# borshun88
On Error 陳述式 啟動一個錯誤處理常式，且指定此常式在一個程序裏的位置。也可用來停止一個錯誤處理常式。
Resume 陳述式  在錯誤處理常式結束後，恢復原有的執行。語法 Resume 0 Resume Next
  1. Option Explicit
  2. Sub Ex()
  3.     Dim A As Workbook, B As Worksheet
  4.     On Error Resume Next
  5.     Set A = Workbooks.Open(Filename:=ThisWorkbook.Path & "\bb.xlsm")
  6.     If Err.Number <> 0 Then
  7.         MsgBox "檔案無法開啟"
  8.         Exit Sub
  9.     End If
  10.     Set B = A.Sheets("工作表1")
  11.     Range("A1") = B.Range("A1")
  12.    
  13. End Sub
複製代碼
作者: borshun88    時間: 2012-11-23 21:38

回復 3# GBKEE
感謝GBKEE大大的回覆
on error resume next 可以解決這問題
感恩



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