我正在通過VBA使用以下代碼從Access打開工作簿。我需要檢查該工作簿是否已經打開:如果已經打開,則不要執行任何操作,否則用CreateObject方法打開它。代碼如下:檢查通過VBA在MS Access內訪問的工作簿是否打開
Dim oAppa As Object
Dim filea As String
filea = CurrentProject.Path & "\List.xlsm"
Set oAppa = CreateObject("Excel.Application")
oAppa.Visible = True
Set owb_a = oAppa.workbooks.Open(filea, ReadOnly:=True)
在打開它時,我需要檢查它是否已經打開。請幫助我,提前致謝。
看到我的答案在這裏:http://stackoverflow.com/questions/22150619/how-to-get-data-from-an-already-opened-excel-workbook-with-a-word-macro/22150839# 22150839 –
嗨simoco,感謝您的快速回復,但我需要檢查如果工作簿具有相同的名稱已經打開,那麼不要做任何事情,不要創建新的實例。使用Getobject創建實例,oAppa不會停留在Nothing –