VPF::Экспорт данных в офисные приложения

Tinysik2009

Дата 3.5.2009, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 2.5.2009

Репутация: нет
Всего: нет

Здравствуйте.
Мне необходимо было написать код,реализующий экспорт данных из БД в офисные приложения(Word,Exel), также в HTML и текстовый файл. С этим вопросов не возникло,программа работает.

Для примера приведу код для экспорта в Word:

Код


Private Sub cmdExportWord_Click()
Set db = OpenDatabase("D:\......\Mydb.mdb")
Set rs = db.OpenRecordset("select * from PersonalData")
Set WordApp = New Word.Application

    On Error Resume Next
    WordApp.Documents.Add
    Set doc = WordApp.ActiveDocument
    Set sel = WordApp.Selection
    doc.Tables.Add sel.Range, 1, 6
        
        sel.TypeText "Фамилия"
        sel.MoveRight 12
        sel.TypeText "Имя"
        sel.MoveRight 12
        sel.TypeText "Отчество"
        sel.MoveRight 12
        sel.TypeText "Дата рождения"
        sel.MoveRight 12
        sel.TypeText "Адрес проживания"
        sel.MoveRight 12
        sel.TypeText "Стаж работы"
        sel.MoveRight 12
    
    Do Until rs.EOF
    LblStatus.Caption = "Exporting: " & rs!№
    
        sel.TypeText Text:=rs!Familiya
        sel.MoveRight Unit:=12
        sel.TypeText Text:=rs!Imya
        sel.MoveRight Unit:=12
        sel.TypeText Text:=rs!Otchestvo
        sel.MoveRight Unit:=12
        sel.TypeText Text:=rs!Data
        sel.MoveRight Unit:=12
        sel.TypeText Text:=rs!Adres
        sel.MoveRight Unit:=12
        sel.TypeText Text:=rs!Stag
        sel.MoveRight Unit:=12
        rs.MoveNext
    Loop
    
    WordApp.Visible = True
    Set WordApp = Nothing

MsgBox "Экспорт данных в Word выполнен", vbInformation
End Sub

При экспорте создается таблица с данными

Мой вопрос: Теперь нужно решить на этой основе универсальную задачу
для каждого вида экспорта: чтобы в качестве заголовков столбцов в отчётах выводились
имена полей ЛЮБОЙ экспортируемой таблицы, а не жёстко заданные слова в коде, как у меня.

Подскажите пожалуйста как это можно сделать.

Akina

Дата 3.5.2009, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Поработать с TableDef

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Tinysik2009

Дата 5.5.2009, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 2.5.2009

Репутация: нет
Всего: нет

Большое спасибо за подсказку smile

,но я сделала иначе.
Исправила код во всех видах экспорта с помощью следующей структуры:

Код


sel.TypeText Text:=rs.Fields(1)
sel.MoveRight Unit:=12
sel.TypeText Text:=rs.Fields(2)
sel.MoveRight Unit:=12
и т.д.

Вопрос снят smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »