Storing data from HTML to Excel

Question

1.00/5 (1 vote)

See more:

Hi Friends,

I have html form when I click submit button .data should be moved to a excel sheet

Again if I entered one more data in html form that should be appended in excel not replace !!

below is the my html file in ...please help me out.

I dont have idea in VBScript. please

<HTML>
<HEAD>

<TITLE>Exporting into Excel</TITLE>

</HEAD>

<SCRIPT Language = "VBScript">

Function Export(P,R)

Set ExcelApp = CreateObject("Excel.application")
ExcelApp.Visible = True

strPathDoc = "D:\atul.xls" 'Your File path

Set myExcelDoc = ExcelApp.Workbooks.Open(strPathDoc)
ExcelApp.Visible = True
myExcelDoc.Windows(1).Visible = True
set XlSheet = myExcelDoc.Worksheets(2)
XlSheet.Range("A6").value=P
XlSheet.Range("A7").value=R
myExcelDoc.save
myExcelDoc.close
Set myExcelDoc = Nothing
Set ExcelApp = Nothing
End Function

Sub cmdExp_OnClick()
Dim lPrincipal
Dim dblRate

Frstnm = Disnm.value
Lstnm = TreatGrp.value
cInterest = Export(Frstnm, Lstnm)

End Sub

< /SCRIPT> <BODY>

First Name: <INPUT Type="Text" Name="Disnm" Value="">

Last Name : <INPUT Type="Text" Name="TreatGrp" Value="">
<INPUT Type="Button"
Name="cmdExp" Value="Connect"> </BODY> </HTML>

Posted 28-Oct-13 11:20am

Nagendra Dantam

Updated 5-Nov-18 4:34am

v5

Add a Solution

Comments

Priyanka1190 29-Jan-15 5:43am

what are the requirements to run this code?

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

thanh_bkhn · Answer 1 · 2013-10-28T15:56:00

When you assign your values into cells, you should check if these cells have values or not.
For example, if you want to append values vertically: A6, A7, then A8, A9, and the 3rd time is A10, 11,
you can use this:

VB

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

Storing data from HTML to Excel

1 solution

Solution 1

Add your solution here

Preview 0

Storing data from HTML to Excel

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us