| |
|
|
| | создал такую функцию для инпорта дбф (акссесс 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"
если все зделать в ручную тончнее экспорт из дбф в екзел а потом уж импорт то всё ок
как можно все это зделать быстро через вба | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=440 | |
| |
| |
|
|
| |
|
|
| | мне нужно програмно експортировать ДБФ в экзел а патом импартировать из екзела в акссес а как я не знаю | |
| |
| |
|
|
| |
|
|
| | а сразу в акс грузить не получается?
тогда запустить ексель программно
загрузить dbf
сохранить файл ексель
импортировать аксом екселевский фал
отключиться от ексель
убить файл ексель (при необходимости) | |
| |
| |
| |
|
|
| | Что бы не мучаться что в ексель делать
пишем макрос
и макрос перетаскиваем в акс | |
| |
| |
|
|
| |
|
|
| | исползывал DoCmd.OutputTo та же х... | |
| |
| |
| |
|
|
| | долго все объяснять на форуме
стукни в аську 324787076 | |
| |
| |
| |
|
|
| | ник: snipe
долго все объяснять на форуме
стукни в аську 324787076
у меня нет ISQ ...мейл агент есть? | |
| |
| |
|
|
| |
|
|
| | на одноклассниках я не бываю | |
| |
| |
