Sub ABC()
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
r.copy r1
bk.close SaveChanges:=False
end sub
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,
http://itknowledgeexchange.techtarget.com/itanswers/how-do-i-open-a-dbf-file-to-a-tab-in-my-worksheet/[
^]