ник: ddi
создал такую функцию для инпорта дбф (акссесс 2007)
Function lg()
Dim l(1 To 6) As String
Dim r As String
Dim t As String
Dim a As String
Dim b As String
b = InputBox("data")
DoCmd.RunSQL "DELETE g.* FROM g;"
For i = 1 To 6
With Application.FileDialog(1)
.Title = "Ïîèñê Ôàéëà"
.ButtonName = "Äîáàâèòü"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "*", "*.*", 1
r = .Show
l(i) = Trim(.SelectedItems.Item(1))
t = .InitialFileName
a = "0" & i & b & ".dbf"
DoCmd.TransferDatabase acImport, "dbase IV", t, acTable, a, i
DoCmd.RunSQL "INSERT INTO g SELECT " & i & ".*FROM " & i & ";"
DoCmd.DeleteObject acTable, i
End With
Next i
End Function
|
вроди пашет но все даные крякобоазные поминял кодировку та же х...
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase]
«DataCodePage»="ANSI"
если все зделать в ручную тончнее экспорт из дбф в екзел а потом уж импорт то всё ок
как можно все это зделать быстро через вба