VPF::из HTML в EXCEL - Форум программистов

kb-nn

Дата 17.5.2004, 09:20 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

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

слушайте, лЮди, кто знает.
например, есть HTML- форма.
как можно из неё переслать данные в Excel с помощью VBScript, чтобы каждому полю формы соответствовала одна ячейка Excel.

заранее спасибо.

Baa

Дата 8.6.2004, 16:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

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

Код


<html><meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

	<body>
	<FORM NAME=form>
	<INPUT TYPE="text" NAME=textfield1 MAXLENGTH=50 SIZE=25 VALUE="Поле раз"><BR>
	<INPUT TYPE="text" NAME=textfield2 MAXLENGTH=50 SIZE=25 VALUE="Поле два"><BR>
	<INPUT TYPE="text" NAME=textfield3 MAXLENGTH=50 SIZE=25 VALUE="Поле три"><BR>
	<INPUT TYPE="text" NAME=textfield4 MAXLENGTH=50 SIZE=25 VALUE="Поле четыре"><BR>
	</FORM>

<script LANGUAGE="JavaScript"> 
	var oExcel = new ActiveXObject ("Excel.Application");

	var oBook = oExcel.Workbooks.Add;
	var oSheet = oBook.Worksheets(1);
    
   
    	for (i=0; i < document.form.elements.length; i++)
	{
  
  oSheet.Cells(1,i+1).Value = document.form.elements[i].name;
	}
    
	for (i=0; i < document.form.elements.length; i++)
	{
  oSheet.Cells(2, i+1).Value = document.form.elements[i].value;
	}
	oSheet.Range("A1:D2").EntireColumn.AutoFit;
    
	oExcel.Visible = true;
	oExcel.UserControl = true;
	oBook.SaveAs ("c:\\test.xls");
	oExcel.Quit();
	</SCRIPT>
</body>
</html>

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Baa

Дата 8.6.2004, 16:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

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

Минус в том, что объект Excel освобождается только после того, как будет закрыт браузер. Как освободить до этого момента - не знаю. Соотв. если зажать F5, то у тебя в системе появится огромное количество экземпляров explorer.exe.

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

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