Как преобразовать данные HTML - формы в лист excel
Morning All,
I am new to the site so forgive me if this is in wrong section or if the message is lengthy.
What i am trying to do is create a single web page that has text fields and radio buttons to allow a user to input data using a touch screen prior to hitting a submit button and for that data to be sent to a single excel file.
What I have tried:
Now i have found the following code and it works as it is but unsure on how to get radio buttons to work?
Code:
<!DOCTYPE html>
Sub Sample()
Dim iRow
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("home/Book1.xlsx
'Document.GetElementsByName("fname")(0).Value="C#"
'Document.GetElementsByName("lname")(0).Value="Corner"
'Document.GetElementsByName("Add1")(0).Value="Tamilnadu"
'Document.GetElementsByName("Add2")(0).Value="Coimbatore"
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("lname")(0).Value
.Cells(iRow, 3).value=Document.GetElementsByName("Add1")(0).Value
.Cells(iRow, 4).value=Document.GetElementsByName("Add2")(0).Value
MsgBox "Data Added Sucessfully",vbinformation
Document.GetElementsByName("fname")(0).Value=""
Document.GetElementsByName("lname")(0).Value=""
Document.GetElementsByName("Add1")(0).Value=""
Document.GetElementsByName("Add2")(0).Value=""
End With
objWorkbook.save
objWorkbook.close
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
<center>
First name:<br>
<br>
Last name:<br>
<br>
Address1:<br>
<br>
Address2 :<br>
<br>
<br>
<br>
</center>
Also i am not too sure what the values are for at the ends of the following line of coding?
'Document.GetElementsByName("fname")(0).Value="C#"
'Document.GetElementsByName("lname")(0).Value="Corner"
'Document.GetElementsByName("Add1")(0).Value="Tamilnadu"
'Document.GetElementsByName("Add2")(0).Value="Coimbatore"
Hope there is someone on this forum who is able to help at all.
Kind Regards
P
Richard MacCutchan
Проблема с этим кодом заключается в том, что он работает на сервере, а не на клиенте.
Richard Deeming
Я не думаю, что это так - это похоже на VBScript, использующий объект ActiveX на клиенте. Различные призывы к Document.GetElementsByName не будет работать в коде на стороне сервера.
Который, очевидно, будет работать только в Internet Explorer на Windows, и только в том случае, если пользователь разрешил страницу "инициализация и использование элементов ActiveX, не помеченных как безопасные для использования".
Richard MacCutchan
Хорошая точка.
Member 13889329
Утро,
Спасибо за вашу помощь до сих пор.
Эта единственная страница будет использоваться только на одной машине одним пользователем в качестве интерфейса для сбора данных и отправки на веб-страницу excel.
Так что эта машина работает IE.
Я нашел кодировку в этом главном посте которая позволяет использовать четыре поля но я хочу иметь возможность понять кодировку и использовать ее с уроками извлеченными из нее на другой странице которую я создаю которая имеет одно текстовое поле и несколько переключателей и флажков
С уважением
П