如何把excel表中的数据自动输入到网页中

怎么把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) &lt;&gt; 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 &gt; 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 
 
  If InStr(s, "上午请签到") &gt; 0 Then
     j = (Int(Rnd * 10) + 5) * 1000
       Sleep j
       DoEvents
       On Error Resume Next
    Set objDoc = WebBrowser1.Document
    For k = 0 To objDoc.All.Length - 1
    If objDoc.All(k).Name = "ImageButton1" Then
            objDoc.All(k).Click
       
        End If
       
    Next
     WebBrowser1.Navigate "http://148.36.20.220:86/"
 ' WebBrowser1.Document.Forms(0).ImageButton1.Click
  ElseIf InStr(s, "下午请签到") &gt; 0 Then
     j = (Int(Rnd * 10) + 5) * 1000
       Sleep j
       DoEvents
        On Error Resume Next
    Set objDoc = WebBrowser1.Document
    For k = 0 To objDoc.All.Length - 1
    If objDoc.All(k).Name = "ImageButton2" Then
            objDoc.All(k).Click
        
        End If
    Next
     WebBrowser1.Navigate "http://148.36.20.220:86/"
  'WebBrowser1.Document.Forms(0).ImageButton2.Click
  Else:
     j = (Int(Rnd * 10) + 3) * 1000
       Sleep j
       DoEvents
       WebBrowser1.Navigate "http://148.36.20.220:86/"
  End If
  End If

End Sub

看下这个你能看明白不，就是打开EXCEL文件，用WEBBROWSER自动填写其表单
[其他解释]
http://www.google.com.hk/url?sa=t&source=web&cd=1&ved=0CBsQFjAA&url=http%3A%2F%2Fwww.cnblogs.com%2Fhomezzm%2Farchive%2F2010%2F02%2F25%2F1673181.html&ei=53N0Tau2PJGyvgP86fm9AQ&usg=AFQjCNGsCHRWOxTtd8uD0xqzsPRAL9k0VQ
[其他解释]
如果没有批量导入，或是可以直接导入什么样的格式文件！你想做到一赋值，直接粘贴所用表单的值！有难度@！
[其他解释]
建议你用按键精灵干这事,有些时候比VBA方便.
[其他解释]
网页提供有接口吗？
[其他解释]
可以调用EXCEL中的另存功能，直接存为网页的形式，然后上传的网站，需要你有上传的权限
[其他解释]
导入Excel数据。
[其他解释]
网页是别人的网站？还是你自己的程序？
[其他解释]

引用:

导入Excel数据。

用什么方法才能把excel中的数据导入到网页呢？
------其他解决方案--------------------

引用:

网页是别人的网站？还是你自己的程序？

是别人的
[其他解释]
该回复于2011-03-07 14:34:04被版主删除
[其他解释]
那你想偷懒也没别的办法。
[其他解释]
没有办法吗？c#中如何才能获取指定网站上光标定位的地方呢？
[其他解释]
都没人知道吗？
[其他解释]
按键精灵不怎么好用啊，没有别的办法了吗？
[其他解释]
楼上的我只会C#的啊，VB的写过，你这些代码应该写那么运行啊！
[其他解释]
我也遇到了同样的问题，求救

[其他解释]
终于搞定了，谢谢zydscaline，虽然你给的代码我不会，但给我了思路用WEBBROWSER控件，我用c#写了个自动填表的，终于不用粘贴复制了。散分啦。。。
[其他解释]
正在研究类似的问题：比楼主的情况要简单些，网页只有一个输入框，只要输入一串数字，然后按回车，看结果；所有要输入的数据在本地excel文件里。希望程序能实现如下功能：读本地excel文件里的数据，填到网页的输入框里，按回车，等待对方返回查询结果，因为对方服务器可能没开或网速慢，等待时间在数秒甚至10秒以上，因此，较简单的方法是延长等待时延，较复杂的方法是用软件判断服务器返回的查询结果页面内容；因为数据量太大，要有暂停功能。如果要离开一会，按某键暂停，回到机器旁边，再按某键继续。
[其他解释]
遇到同样的问题，，，，，
[其他解释]
不知道还要登录

如何把excel表中的数据自动输入到网页

热点推荐