Заполнение надписи Word из таблицы Excel

@Lub3r · Регистрация: 24.03.2010

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

Господа, подскажите пожалуйста, столкнулся с такой проблемой:
Есть таблица екселевская: столбец с фамилией и 60 столбцов с оценками по разным предметам (дипломные), что-то вроде

| 1 | Петров А.А. | 5 | 5 | 4 | 4 | 5 | 5 | 5 | 5 |

Есть документ вордовский (Аттестация), составляемый на каждого человека по отдельности, в котором на одной из страниц идут его оценки, причем прописью, что то типа:

Иностранный язык хорошо
Математика хорошо

Вот я придумал наложить сверху Надпись без рамок и в неё с екселя вставить текст циклом, только не пойму, как это технически сделать....

Добавлено через 1 минуту
Или может я вообще не тем путем пошел? может все проще можно сделать, подкажите плиз!

@Toxa33rus · 24.03.2010, 20:37

Visual Basic

sub main()
For i=3 to 60
  result=result & Propis(cells(2,i)) & vbcrlf
next i
msgbox result
end sub
 
function Propis(n)
arr=array("", "", Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")
Propis = arr(n)
end function

@аналитика · 24.03.2010, 20:47

Если в первой строке названия предметов, то добавил бы в 3-ю строку:

Visual Basic

1	result=result & cells(1,i) & " " & Propis(cells(2,i)) & vbcrlf

но вся эта бойда в msgbox не полезет...

@Toxa33rus · 24.03.2010, 21:00

Сообщение от аналитика

но вся эта бойда в msgbox не полезет

чёйт?

да и при чем тут мсгбокс? я просто написал как сформировать текст с нужными данными а дальше пусть лезет куда угодно

@Lub3r · 24.03.2010, 23:41 **[ТС]**

Сообщение от Toxa33rus

чёйт?

да и при чем тут мсгбокс? я просто написал как сформировать текст с нужными данными а дальше пусть лезет куда угодно

спасибо за идею! И главное, что только прочитав код, до меня доперло - как же всё на самом деле просто))

@karim · 09.04.2010, 11:23

не стал заводить новую тему, тк вопрос очень похож на это...

так же есть excel таблица в которой списком идут фамилии в столбцах данные,
нужно используя эти данные сформировать документ, заполнив типовую форму документа word

нашел похожий пример, но так и не понял как это работает

может кто сталкивался с подобным или есть примеры решений?

@Lub3r 0 / 0 / 0 Регистрация: 24.03.2010 Сообщений: 12
		1
	Заполнение надписи Word из таблицы Excel 24.03.2010, 19:54. Показов 4370. Ответов 5 Метки нет (Все метки) Господа, подскажите пожалуйста, столкнулся с такой проблемой: Есть таблица екселевская: столбец с фамилией и 60 столбцов с оценками по разным предметам (дипломные), что-то вроде \| 1 \| Петров А.А. \| 5 \| 5 \| 4 \| 4 \| 5 \| 5 \| 5 \| 5 \| Есть документ вордовский (Аттестация), составляемый на каждого человека по отдельности, в котором на одной из страниц идут его оценки, причем прописью, что то типа: Иностранный язык хорошо Математика хорошо Вот я придумал наложить сверху Надпись без рамок и в неё с екселя вставить текст циклом, только не пойму, как это технически сделать.... Добавлено через 1 минуту Или может я вообще не тем путем пошел? может все проще можно сделать, подкажите плиз! 0

@Toxa33rus 3895 / 898 / 122 Регистрация: 16.04.2009 Сообщений: 1,824
	24.03.2010, 21:00	4
	Сообщение от аналитика но вся эта бойда в msgbox не полезет чёйт? да и при чем тут мсгбокс? я просто написал как сформировать текст с нужными данными а дальше пусть лезет куда угодно 0

@Lub3r 0 / 0 / 0 Регистрация: 24.03.2010 Сообщений: 12
	24.03.2010, 23:41 [ТС]	5
	Сообщение от Toxa33rus чёйт? да и при чем тут мсгбокс? я просто написал как сформировать текст с нужными данными а дальше пусть лезет куда угодно спасибо за идею! И главное, что только прочитав код, до меня доперло - как же всё на самом деле просто)) 0

@karim 0 / 0 / 0 Регистрация: 22.07.2009 Сообщений: 3
	09.04.2010, 11:23	6
	не стал заводить новую тему, тк вопрос очень похож на это... так же есть excel таблица в которой списком идут фамилии в столбцах данные, нужно используя эти данные сформировать документ, заполнив типовую форму документа word нашел похожий пример, но так и не понял как это работает может кто сталкивался с подобным или есть примеры решений? 0

Опции темы