怎么把excel表中的数据自动输入到网页中

因要给员工网上投工伤保险，员工资料在excel表中，现在在网上投保险时只能一笔笔的复杂粘贴到网页中，有没有办法能直接把excel表中的资料自动输入到网页中的对应的表格中呢？请知道的朋友说下方法啊，非常感谢！

------最佳解决方案--------------------

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim j As Integer

Dim ex As Object

Dim wb As Object

Dim sh As Object

Dim objDoc

Dim endi As Integer

Dim k As Integer

Private i As Integer

Private si As String

Private Sub Form_Load()

WebBrowser1.Width = Screen.Width

WebBrowser1.Height = Screen.Height - 500

i = 1

Set ex = CreateObject("Excel.Application")

Set wb = ex.Workbooks.Open(App.Path & "\1.xls")

Set sh = wb.Sheets(4)

If sh.Cells(1, 1) <> 4 Then

wb.Close True

ex.Quit

Set sh = Nothing

Set wb = Nothing

Set ex = Nothing

Unload Me

End

Else:

Set sh = wb.Sheets(1)

endi = sh.UsedRange.Rows.Count

WebBrowser1.Navigate "http://148.36.20.220:86/"

End If

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If WebBrowser1.LocationURL = "http://148.36.20.220:86/" Then

If i > endi Then

wb.Close True

ex.Quit

Set sh = Nothing

Set wb = Nothing

Set ex = Nothing

Unload Me

End

Else:

WebBrowser1.Document.Forms(0).TextBox1.Value = sh.Cells(i, 1)

WebBrowser1.Document.Forms(0).TextBox2.Value = sh.Cells(i, 2)

j = (Int(Rnd * 10) + 3) * 1000

Sleep j

DoEvents

WebBrowser1.Document.Forms(0).Button1.Click

i = i + 1

End If

End If

If WebBrowser1.LocationURL = "http://148.36.20.220:86/qd.aspx" Then

Dim s As Variant

s = pDisp.Document.documentElement.outerHTML