Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Read / Write Alert - Dave Peterson
Dave, I tried the code concerning IsFileOpen but I get a compile error saying
that Sub or Function is not defined. The code I'm using is Sub TestFileOpened() If IsFileOpen("c:\Book2.xls") Then MsgBox "File already in use!" Else MsgBox "File not in use!" Workbooks.Open "c:\Book2.xls" End If End Sub I notice that the macro applies up to Excel 97. I'm using 2007 and I find no help topics in Visual Basic regarding IsFileOpen Many thanks in advance for suggestions. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Read / Write Alert - Dave Peterson
This should work:-
Sub ordinate() Dim Book As Workbook On Error Resume Next Set Book = Workbooks("book2.xls") If Book Is Nothing Then MsgBox "Workbook isn't open", vbCritical Set Book = Nothing On Error GoTo 0 Else MsgBox "Yes it's open", vbInformation Set Book = Nothing On Error GoTo 0 End If End Sub Mike "GrantW" wrote: Dave, I tried the code concerning IsFileOpen but I get a compile error saying that Sub or Function is not defined. The code I'm using is Sub TestFileOpened() If IsFileOpen("c:\Book2.xls") Then MsgBox "File already in use!" Else MsgBox "File not in use!" Workbooks.Open "c:\Book2.xls" End If End Sub I notice that the macro applies up to Excel 97. I'm using 2007 and I find no help topics in Visual Basic regarding IsFileOpen Many thanks in advance for suggestions. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Read / Write Alert - Dave Peterson
IsFileOpen would be a custom function that tests the file. You need to
include that in your project. -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "GrantW" wrote in message ... Dave, I tried the code concerning IsFileOpen but I get a compile error saying that Sub or Function is not defined. The code I'm using is Sub TestFileOpened() If IsFileOpen("c:\Book2.xls") Then MsgBox "File already in use!" Else MsgBox "File not in use!" Workbooks.Open "c:\Book2.xls" End If End Sub I notice that the macro applies up to Excel 97. I'm using 2007 and I find no help topics in Visual Basic regarding IsFileOpen Many thanks in advance for suggestions. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Read/Write Alert | Excel Discussion (Misc queries) | |||
Dave Peterson | Excel Discussion (Misc queries) | |||
Dave Peterson | Excel Discussion (Misc queries) | |||
Mr Dave peterson, Please help | Excel Discussion (Misc queries) | |||
to Dave Peterson | Excel Discussion (Misc queries) |