Импорт и экспорт на VB

Узнай цену своей работы

Формулировка задачи:

Люди помогите плз с импортом и экспортом. Проблема такая необходимо программно с помощью VB экспортировать таблицы из одной базы Access в другую. Далее экспортировать таблицы Access в Excel и наконец импортировать excel файлы в access. Нет никаких мыслей по этому вопросу поэтому прошу по возможности подробных объяснений. Хотелось бы все это сделать с использованием DAO. Заранее благодарен.

Решение задачи: «Импорт и экспорт на VB»

textual
Листинг программы
Sub main()
Dim ExcelApp As Object, ExcelWB As Object
Dim objRst As Recordset
 
    Set ExcelApp = GetExcelObject()
    ExcelApp.Visible = True
    Set ExcelWB = NewWorkbook(ExcelApp)
 
    Set objRst = CurrentDb.OpenRecordset('')
    If objRst.RecordCount <> 0 Then
        ExcelApp.Sheets(1).Range('A1').CopyFromRecordset objRst
    End If
End Sub

Оцени полезность:

8   голосов , оценка 4.25 из 5