excel и dbf

[Алена_=)))]

здравствуйте!встала такая задача передо мной, нужно из таблицы excel выгрузить некоторые столбцы в файл dbf. получился такой макрос (не до конца), есть сомнения что вообще будет работать так как надо?
подскажите как лучше сделать или что исправить?ничего толкового в поиске не нашла(
[VBA]
'нужно ли строку подключения ???
Sub Import_Excel()
Dim strSQL, Ph, Fl, Fld, ADR
Ph = "C:\" 'путь к файлу
Fl = "МФЦ-пробный.xsl" 'имя откуда выгруж
Fld = "[],[],[]," 'поля какие нужны
'ADR = "[],[]," ' ячейки куда загруж

With ActiveSheet.QueryTables.Add(Connect ion:=Array( _
"OLEDB;Provider=MSDASQL.1;Persi st Security Info=False;Extended Properties=""CollatingSequence=ASCI I;DBQ=" & Ph & ";DefaultDir=" & Ph & ";" _
& "Driver={Driver do Microsoft dBase (*.dbf)};FIL=dBase IV;""" _
& ";Initial Catalog=" & Ph & ""), Destination:=Range(ADR))
' выбрать тип команды ????.CommandType = adCmdUnknown

strSQL = "SELECT " & Fld _
& " FROM `" & Ph & "`\`" & Fl & "`"
.CommandText = Array(strSQL)
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub[/VBA]