Julee

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

31.10.2011, 20:43. Показов 2753. Ответов 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. Причем эта проблема динамическая))...

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

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

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

Наверх