ユーザー名や電子メールフィールドデータなどのフォームデータをJavaスクリプトを使用して送信するには、ボタンをクリックしてExcelファイルに保存し、すべてのブラウザでコードを実行する必要があります。 ? IEで実行されたスクリプトタグの下でこのvbコードを実行する前に、そのExcelファイルに入力されたデータも表示されませんでした。htmlフォームデータをExcelファイルに送信する方法
Sub sample()
Dim iRow
Set objExcel = CreateObject ("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("D:\Users\users.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("lname")(0).Value
.Cells (iRow, 3).value=Document.GetElementsByName("Add1")(0).Value
.Cells (iRow, 4).value=Document.GetElementsByName("Add2")(0).Value
MsgBox "Data Added Successfully”, 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