Перенос данных таблицы MSFlexGrid в таблицу Word в VB 6.0

31.10.2011, 20:43. Показов 2740. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Для начала создадим в папке с нашей программой документ Word с таблицей: 2 колонки, 10 строк. Назовем файл - 1.doc.
Бросаем на форму таблицу MSFlexGrid1. Делаем в свойствах таблицы FixedCols=0, Rows=11, Colls=2.
Далее идем в ссылки:
«Проект» > «Ссылки» > Microsoft Word 11.0 Objects Library (это для Word 2003)

В разделе деклараций пишем:

Visual Basic
1
2
Dim WordApp As Word.Application ' экземпляр приложения 
Dim Doc As Word.Document ' экземпляр документа

В загрузке формы напишем процедуру заполнения MSFlexGrid1:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load() 
 MSFlexGrid1.TextMatrix(0, 0) = "Willy" ' 1 заголовок
 MSFlexGrid1.TextMatrix(0, 1) = "Billy" ' 2 заголовок
'заполняем остальные ячейки таблицы
Dim i%
For i = 1 To 10
 MSFlexGrid1.TextMatrix(i, 0) = i
 MSFlexGrid1.TextMatrix(i, 1) = i + 1
Next
 End Sub

Далее заполняем таблицу Word.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click() 
Set WordApp = New Word.Application ' открываем новое приложение Word
Set Doc = WordApp.Documents.Open(App.Path & "\1.doc") ' открываем файл
 WordApp.Visible = True ' делаем видимым (или невидимым, если False)
Dim j%
For j = 1 To MSFlexGrid1.Rows - 1
 Doc.Tables(1).Cell(j, 1).Range.Text = MSFlexGrid1.TextMatrix(j, 0) ' заполняем 1 колонку
 Doc.Tables(1).Cell(j, 2).Range.Text = MSFlexGrid1.TextMatrix(j, 1) ' заполняем 2 колонку
Next j
 
 Doc.SaveAs App.Path & "\2.doc" ' сохраняем файл как 2.doc 
' можно сохранить и тем же именем
 ' Doc.Save
 Doc.Close True ' закрываем документ
 WordApp.Quit ' закрываем приложение
Set Doc = Nothing ' очищаем переменные
Set WordApp = Nothing
 
End Sub

Кстати, по такому же принципу можно сделать и наоборот, т.е. заполнить MSFlexGrid из таблицы Word.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

31.10.2011, 20:43

Ответы с готовыми решениями:

Перенос данных из таблицы в таблицу
например: у меня имеется таблица1(Список) и таблица2(Отчет о выдачи) мне нужно сделать так чтобы можно было выбрать какую нибудь запись из...

Перенос данных из таблицы в таблицу
Добрый день вечер ночь всем! Подскажите пожалуйста как решить задачку. Нужно в базе перекинуть данные из одной таблицы в другую,...

Перенос данных из таблицы в таблицу
Как при нажатии на кнопку перезаписать данные из таблицы ПРЕДЛОЖЕНИЯ ПО ПРОДАЖАМ в КВАРТИРЫ Меню -> Посмотреть список предложений...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

31.10.2011, 20:43

Помогаю со студенческими работами здесь

Перенос данных из таблицы в таблицу
Уважаемые Гуру помогите пожалуйста реализовать функцию переноса данных из одной таблицы в другую. Исходные данные такие имеются 2...

Перенос данных с таблицы Excel по закладкам word
Макрос в excel считывает с ячейки первого столбца название закладки(назавания закладок я вношу в excel вручную, они соответствуют названию...

Перенос данных и таблицы в таблицу sql по условиям
Привет дорогие sql гуру, помогите разобраться. Кому-то может показать проще, чем мне) Есть 2 таблицы 1. cart 2. bonus и...

Перенос данных из 31 таблицы Excel в одну таблицу
Доброго времени суток! Прошу помощи, как сам не знаю как справится с этой проблемой. Каждый день составляются отчеты по добыче по...

Перенос данных одного столбца таблицы в другую таблицу
Всем привет. Ребята, возникла проблема при переносе данных из столбца таблицы1 в столбец таблицыN. Причем эта проблема динамическая))...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

Наверх