I want ti save this file in csv or xml format by clicking save button..I require a function that save the file when the button clicked...How the function should be so that i will be able to do what i have mention as above?
count=2Sub doAddRow() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= ""
count = count+1End Sub
Sub deleteRow()Dim oTbl, oRowSet oTbl=document.getElementById("mytable")
if count>2 thenoTbl.deleteRow(count-1)count = count -1end if
End sub
Sub doAddRow2() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable2") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" count = count+1End Sub
Sub deleteRow2()Dim oTbl, oRowSet oTbl=document.getElementById("mytable2")
if count>2 thenoTbl.deleteRow(count-1)count = count -1end if
End sub
Sub saveFile()Dim txtPathDim txtName
txtPath = "C:\Shared Folder\Emp InfoPath Forms"txtName = "form1.xml"
XDocument.SaveAS(txtPath & txtName)End sub
TESTER DATE EMP NO 6S DONE
WW NAME SHIFT
PASSOVER (Please verify Summit Receipe & Storm before start shift)
Summit Receipe OK ? Yes No
Motif/ Storm OK ? Yes No
| Lot Number | Location | Total In | 1 * Test | 2 * Test | 3 * Test | Total Out | Lot Status | Remark |
| | | | | | | | | |
| Entry | Down | Up | Failure Mode/Action/Remark | D/T | Attended By |
| | | | | | |