добавляй в чистый файл эталон ...

Scio me nihil scire

<<Jojo®>>

могу выслать файл - исходник ...будешь разбираться :)

Scio me nihil scire

<<Jojo®>>

'Проц. добавления всех проводок из Excel
Sub Insert_all()
progress = 0
Set tblProv = Workbooks("Свод_формирование.xls").Worksheets("Проводки")
tblProv.Activate
tblProv.Cells(1, 1).Select
strok = 0
i = 2
While Not IsEmpty(tblProv.Cells(i, 8).Value) And Not IsEmpty(tblProv.Cells(i, 1).Value)
strok = strok + 1
i = i + 1
DoEvents
Wend
i = 2
While Not IsEmpty(tblProv.Cells(i, 8).Value) And Not IsEmpty(tblProv.Cells(i, 1).Value)
np = CDec(Trim(Cells(i, 1).Value))
dd = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
dod = "'" & CDate(Trim(Cells(i, 2).Value)) & "'"
dt = "'" & CStr(Trim(Cells(i, 3).Value)) & "'"
ad = "'" & CStr(Trim(Cells(i, 4).Value)) & "'"
k = "'" & CStr(Trim(Cells(i, 5).Value)) & "'"
ak = "'" & CStr(Trim(Cells(i, 6).Value)) & "'"
smr = Replace(Trim(Cells(i, 7).Value), ",", ".")
prim = " '" & CStr(Trim(Cells(i, 8).Value)) & "'"
' вставим в таблицу записи
' символ # здесь не лезет ...
cnn.Execute "INSERT INTO " & OldName1 & "(np,dd,dod,dt,ad,k,ak,smr,prim) VALUES (" & np & "," & dd & "," & dod & "," & dt & "," & ad & "," & k & "," & ak & "," & smr & "," & prim & ")"

progress = 100 * (i - 1) / strok
Application.StatusBar = "Идет заполнение данных dbf файла для " & np - 400 & " филиала ! Выполнено " & Int(progress) & " %"
i = i + 1
DoEvents
Wend
' переименуем файлик
Name OldName1 As FinName
If MsgBox("Файл " & FinName & " заполнен !", vbOKOnly + vbInformation, "Информация") = vbOK Then
Application.StatusBar = ""
End If
End Sub

Scio me nihil scire

<<Jojo®>>