Nagendra Dantam Ответов: 1

Хранение данных из HTML в Excel


Привет Друзья,

У меня есть html-форма, когда я нажимаю кнопку отправить .данные должны быть перемещены на лист excel

Опять же, если я ввел еще одни данные в html-форме, которые должны быть добавлены в excel, а не заменены !!

ниже приведен мой html-файл in ...пожалуйста, помогите мне.

У меня нет идеи в VBScript. пожалуйста


<HTML>
<голова>

<TITLE>экспорт в Excel</TITLE>

</HEAD>

<SCRIPT Language = "VBScript">

Экспорт Функций(P,R)

Set ExcelApp = CreateObject("Excel.application")
ExcelApp.Видимое = Истинное

strPathDoc = "D:\atul.xls" ваш путь к файлу

Установите myExcelDoc = ExcelApp.Workbooks.Открыть(strPathDoc)
ExcelApp.Видимое = Истинное
myExcelDoc.Windows(1).Visible = True
установите XlSheet = myExcelDoc.Рабочие листы(2)
XlSheet.Диапазон("A6").значение=P
XlSheet.Диапазон("A7").значение=R
myExcelDoc.сохранить
myExcelDoc.рядом
Set myExcelDoc = ничего
Set ExcelApp = Ничего
Конечная Функция

Суб cmdExp_OnClick()
Дим лпринципал
Тусклый dblRate

Frstnm = Disnm.value
Lstnm = TreatGrp.value
cInterest = экспорт(Frstnm, Lstnm)

Конец Подводной Лодки

< /скрипт&ГТ; &ЛТ;тело&ГТ;

Имя: в <тип входного="текст" имя="Disnm" значение=""&ГТ;

Фамилия: в <тип входного="текст" имя="TreatGrp" значение=""&ГТ;
<тип ввода="кнопка"
Имя="cmdExp" значение="подключить"&ГТ; &ЛТ;/тело&ГТ; &ЛТ;/HTML и ГТ;



Priyanka1190

каковы требования к запуску этого кода?

1 Ответов

Рейтинг:
2

thanh_bkhn

Когда вы присваиваете свои значения ячейкам, вы должны проверить, есть ли у этих ячеек значения или нет.
Например, если вы хотите добавить значения вертикально: A6, A7, затем A8, A9, а в 3-й раз-A10, 11,
вы можете использовать это:

currentRow = 6
currentVal = XlSheet.Range("A" & currentRow).value
While currentVal <> ""
    currentRow = currentRow + 1
    currentVal = XlSheet.Range("A" & currentRow).value
Wend
XlSheet.Range("A" & currentRow).value = P
XlSheet.Range("A" & (currentRow + 1)).value = R


Nagendra Dantam

Не могли бы вы предоставить весь код, на самом деле я не знаю VB-скрипта.

thanh_bkhn

Попробуйте заменить назначение значения ячейки следующим кодом