0
아래 코드는 제가 가지고있는 코드입니다. 문제는 Excel 워크 시트에 필드를 추가하지 않는다는 것입니다.HTML에서 데이터를 받아서 Excel로 보내려면 어떻게해야합니까?
<! DOCTYPE html>
<Html>
<Head>
<script language="vbscript" type="text/vbscript">
Sub Sample()
Dim iRow
Set objExcel = CreateObject ("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("C:\Users\ARPIT SHAJU\Desktop\Church\Member.xlsx")
objExcel.Application.Visible = True
ObjWorkbook.Windows (1).Visible = True
Set XlSheet =objWorkbook.Sheets (1)
XlSheet.Activate
iRow = 1
With objExcel
Do while .Cells (iRow, 1).value <> ""
.Cells (iRow, 1).activate
iRow = iRow + 1
Loop
.Cells (iRow, 1).value=Document.GetElementsByName ("fname") (0).Value
.Cells (iRow, 2).value=Document.GetElementsByName ("surname") (0).Value
.Cells (iRow, 3).value=Document.GetElementsByName ("gender") (0).Value
.Cells (iRow, 4).value=Document.GetElementsByName ("mstatus") (0).Value
.Cells (iRow, 5).value=Document.GetElementsByName ("dob") (0).Value
.Cells (iRow, 6).value=Document.GetElementsByName ("doa") (0).Value
.Cells (iRow, 7).value=Document.GetElementsByName ("baptised") (0).Value
.Cells (iRow, 8).value=Document.GetElementsByName ("residence") (0).Value
.Cells (iRow, 9).value=Document.GetElementsByName ("mnumber") (0).Value
MsgBox "Data Added Successfully”, vbinformation
Document.GetElementsByName ("fname") (0).Value=""
Document.GetElementsByName ("surname") (0).Value=""
Document.GetElementsByName ("gender") (0).Value=""
Document.GetElementsByName ("mstatus") (0).Value=""
Document.GetElementsByName ("dob") (0).Value=""
Document.GetElementsByName ("doa") (0).Value=""
Document.GetElementsByName ("baptised") (0).Value=""
Document.GetElementsByName ("residence") (0).Value=""
Document.GetElementsByName ("mnumber") (0).Value=""
End With
ObjWorkbook. Save
ObjWorkbook. Close
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
</script>
<style type="text/css">
fieldset {
border: #00cc00 2px solid;
padding: 10px;
color: green;
</style>
<body
<form>
<fieldset>
<legend>Csharpcorner</legend>
<center>
First name:<br>
<input type="text" name="fname" Value=""><br>
Surname:<br>
<input type="text" name="surname" Value=""><br>
Gender :<br>
<input type="text" name="gender" Value=""><br>
Marital Status :<br>
<input type="text" name="mstatus" Value=""><br>
Date of Birth :<br>
<input type="text" name="dob" Value=""><br>
<br>
Marriage Date :<br>
<input type="text" name="doa" Value=""><br>
Baptised :<br>
<input type="text" name="baptised" Value=""><br>
Residence :<br>
<input type="text" name="residence" Value=""><br>
Mobile Number :<br>
<input type="text" name="mnumber" Value=""><br>
<input type="button" onclick="Sample()" value="Submit"><br>
</center>
</fieldset>
<form>
</body>
</html>
내 Excel과 메모장이 같은 폴더에 있습니다. 코드에 어떤 문제가 있습니까? 워크 시트에 값을 추가하려면 어떻게해야합니까? 나는 데이터베이스 나 서버없이 그것을 사용하고 싶다. 이것은 인사 목적을위한 오프라인 양식입니다. 더 좋은 해결책은 언제나 환영합니다.
당신은 없다 "메모장"로,를 .hta 파일로이 코드를 저장해야합니다. – omegastripes
HTML을 여는 소프트웨어는 무엇입니까? 개발자 도구의 콘솔에보고 된 오류는 무엇입니까? – Quentin
확장명이 .htm 인 메모장을 저장하고 인터넷 익스플로러에서 열었습니다. – Neethu