[發問] 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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE