|irst open it to its own workbook, copy the data, close the dummy workbook.|
Dim r1 as Range, r as Range, bk as Workbook
set r1 = Activesheet.range("A1")
set bk = workbooks.open("C:\Myfolder\Myfile.dbf")
set r = bk.worksheets(1).Range("A1").currentRegion
That is the way I have been doing it successfully in xl2003 and earlier for years. Support for Saving as DBF was dropped in xl2007 for sure but I believe it can still read a dbf file.
And more use: DBF Restore Toolbox fo restore your files simple, link here: http://www.dbf.restoretools.com/