wen u click button ..data should be moved to a excel sheet
again if u give one more data in html that shud be appended in excel
append and not replace !!
below is the my html file in ...i m not getting it ..can u plz try
----------------------------------------------------------
Expand|Select|Wrap|Line Numbers
- <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> <BR>
- First Name: <INPUT Type="Text" Name="Disnm" Value=""><BR>
- Last Name : <INPUT Type="Text" Name="TreatGrp" Value=""><BR> <INPUT Type="Button" Name="cmdExp" Value="Connect"> </BODY> </HTML>