Данные из BD Paradox в Excel.

[Djeki]

Уважаемые знатоки EXCEL. Нашел на вашем форуме следующую тему: "Собрать несколько dbf в один Эксель файл" :
http://www.programmersforum.ru/showthread.php?t=40579

Необходимо выполнить аналогичную задачу из BD Paradox. Подскажите пожалуста как из источника данных - BD Paradox, экспортировать данные в Excel ? Пробовал изменить код из вышеуказанной темы , но он не работает

myName = Dir(myPath & "*.db")
With ThisWorkbook.Sheets(1)
Do While myName <> ""
Set Wb = Workbooks.Open(Filename:=myPath & myName)
ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, "A")
Wb.Close SaveChanges:=False
myName = Dir
Loop
End With

Данные BD Paradox о вложении. Спасибо за ответ.