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

g505149841 2011-03-07 01:52:01
因要给员工网上投工伤保险,员工资料在excel表中,现在在网上投保险时只能一笔笔的复杂粘贴到网页中,有没有办法能直接把excel表中的资料自动输入到网页中的对应的表格中呢?请知道的朋友说下方法啊,非常感谢!
...全文
12309 21 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
lcylnykj123 2011-11-11
  • 打赏
  • 举报
回复
不知道还要登录
lowtoh 2011-08-01
  • 打赏
  • 举报
回复 1
正在研究类似的问题:比楼主的情况要简单些,网页只有一个输入框,只要输入一串数字,然后按回车,看结果;所有要输入的数据在本地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自动填写其表单
g505149841 2011-03-08
  • 打赏
  • 举报
回复
按键精灵不怎么好用啊,没有别的办法了吗?
dbcontrols 2011-03-07
  • 打赏
  • 举报
回复
可以调用EXCEL中的另存功能,直接存为网页的形式,然后上传的网站,需要你有上传的权限
renjunfeng 2011-03-07
  • 打赏
  • 举报
回复
如果没有批量导入,或是可以直接导入什么样的格式文件!你想做到一赋值,直接粘贴所用表单的值!有难度@!
g505149841 2011-03-07
  • 打赏
  • 举报
回复
都没人知道吗?
g505149841 2011-03-07
  • 打赏
  • 举报
回复
没有办法吗?c#中如何才能获取指定网站上光标定位的地方呢?
learning8899 2011-03-07
  • 打赏
  • 举报
回复
网页提供有接口吗?
garfieldzf 2011-03-07
  • 打赏
  • 举报
回复
那你想偷懒也没别的办法。
g505149841 2011-03-07
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 lovesongforever 的回复:]
网页是别人的网站? 还是你自己的程序?
[/Quote]
是别人的
g505149841 2011-03-07
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 lovesongforever 的回复:]
导入Excel数据。
[/Quote]
用什么方法才能把excel中的数据导入到网页呢?
garfieldzf 2011-03-07
  • 打赏
  • 举报
回复
网页是别人的网站? 还是你自己的程序?
garfieldzf 2011-03-07
  • 打赏
  • 举报
回复
导入Excel数据。

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧