from vbaExpress (http://www.vbaexpress.com/kb/getarticle.php?kb_id=468)
Function IsFileOpen(FileName As String)
Dim iFilenum As Long
Dim iErr As Long
On Error Resume Next
iFilenum = FreeFile()
Open FileName For Input Lock Read As #iFilenum
Close iFilenum
iErr = Err
Unfortunately Excel 2007 cannot save dbf files. You can open them but
cannot save them after edit.
Check out the add-in at http://thexlwiz.blogspot.com or you can also
re-install Excel 2003 (the new 2007 and old versions can co-exist) and
use it for dbf editing.
Hope this helps.
Gyula
On Sep 24
