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

g505149841 2011-03-07 01:52:01

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

...全文

12316 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

lcylnykj123 2011-11-11

打赏
举报

不知道还要登录

lowtoh 2011-08-01

打赏
举报

正在研究类似的问题：比楼主的情况要简单些，网页只有一个输入框，只要输入一串数字，然后按回车，看结果；所有要输入的数据在本地excel文件里。希望程序能实现如下功能：读本地excel文件里的数据，填到网页的输入框里，按回车，等待对方返回查询结果，因为对方服务器可能没开或网速慢，等待时间在数秒甚至10秒以上，因此，较简单的方法是延长等待时延，较复杂的方法是用软件判断服务器返回的查询结果页面内容；因为数据量太大，要有暂停功能。如果要离开一会，按某键暂停，回到机器旁边，再按某键继续。

hello_sjp 2011-06-16

打赏
举报

遇到同样的问题，，，，，

ydlzczx 2011-05-27

打赏
举报

我也遇到了同样的问题，求救

Z 2011-03-08

打赏
举报

建议你用按键精灵干这事,有些时候比VBA方便.

g505149841 2011-03-08

打赏
举报

终于搞定了，谢谢zydscaline，虽然你给的代码我不会，但给我了思路用WEBBROWSER控件，我用c#写了个自动填表的，终于不用粘贴复制了。散分啦。。。

g505149841 2011-03-08

打赏
举报

楼上的我只会C#的啊，VB的写过，你这些代码应该写那么运行啊！

zydscaline 2011-03-08

打赏
举报

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

  If InStr(s, "上午请签到") > 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, "下午请签到") > 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自动填写其表单