excel vba如何实现在已打开网页录入数据

wanlongwyp · 发表于 2009-3-23 15:30

登录办公系统后，要求录入学生的一些信息。如果一个一个地录入，工作量比较大。请高手帮忙写一个VBA，实现快速录入。

zhyzhsh · 发表于 2009-3-23 15:40

做教师真辛苦！

wanlongwyp · 发表于 2009-3-23 15:46

就是呀，

[ 本帖最后由 wanlongwyp 于 2009-3-23 15:49 编辑 ]

zhyzhsh · 发表于 2009-3-23 17:04

做了个演示

石壕小学家庭贫困学生资助数据库.zip (30.33 KB, 下载次数: 908)

1、先把Excel文件和网页打开，窗口顺序设为前后（用Alt+Tab切换一次可以激活）。
2、然后选中单元格“B4”周志红。
3、把网页上的焦点位于“姓名”框中。
4、返回Excel文件，单击Button 1按钮。

可以看到“周志红”被复制，“性别”也改变了。后面的内容，自己添加一下。

提示：添加一条数据后，可以用几次的Shift+Tab返回姓名框。
Sendkeys的用法查看Excel帮助。

wanlongwyp · 发表于 2009-3-24 08:49

老兄，非常感谢你的帮助。但还有一个请求，就是把它写完整，我没有时间去研究了，马上就要完成任务，帮帮我好吗？

zhyzhsh · 发表于 2009-3-24 10:48

原帖由 wanlongwyp 于 2009-3-24 08:49 发表
老兄，非常感谢你的帮助。但还有一个请求，就是把它写完整，我没有时间去研究了，马上就要完成任务，帮帮我好吗？

试了一下，好像按键发送多了不太稳定，有时候可以，有时候又不行。不知道怎么回事。建议你这次先逐条输入或者联系负责人看能不能批量导入，以后再研究或者找其他替代软件。

dul · 发表于 2009-6-28 18:25

原帖由 zhyzhsh 于 2009-3-24 10:48 发表

试了一下，好像按键发送多了不太稳定，有时候可以，有时候又不行。不知道怎么回事。建议你这次先逐条输入或者联系负责人看能不能批量导入，以后再研究或者找其他替代软件。

使用 Internet Transfer 控件(工具>>附加控件:Microsoft Internet Transfer Control)可能比代码“键盘操作”好佷多

http://club.excelhome.net/viewthread.php?tid=3367

www.36600.net · 发表于 2009-6-28 18:33

Sendkey是不太稳定,不知道你会不会用FindWindow和SetText,
我提供个思路给你,既然是在网页上填写数据,那么提交表单时链接应该是http://............asp?name="张三"&成绩="100"这样的,
用vba逐条读取数据然后构成网址,调用ie打开如何,可能会打开很多IE窗口

飞云楼主 · 发表于 2009-6-28 19:47

咋弄个原创。。。晕。

northwolves · 发表于 2009-6-28 23:28

这个还是比较简单的：

'引用:
'Library SHDocVw
' C:\WINDOWS\system32\SHDOCVW.dll
' Microsoft Internet Controls
Sub Inputall()
Dim mShellwindows As New ShellWindows, IE As InternetExplorer, arr, i As Long, j As Long, title
arr = Sheet1.UsedRange
title = Split(" xm xb nj bj jtdz hj lb pklx zxf")
For Each IE In mShellwindows
If IE.LocationName Like "*pk_xslr.htm*" Then Exit For
Next
With IE.Document
For i = 2 To UBound(arr)
For j = 2 To 10
.all(title(j)).Value = arr(i, j)
Next
.all("b1").Click
Do While IE.Busy
DoEvents
Loop
Next
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[原创] excel vba如何实现在已打开网页录入数据

评分

评分