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

northwolves · 发表于 2009-12-26 22:42

原帖由 4me 于 2009-12-25 13:42 发表
.all(title(j)).Value = arr(i, j) 出错
636572

郁闷.改成大写就OK 了:

'引用:
'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)
DoEvents
For j = 2 To 10
.ALL(UCase(title(j))).Value = arr(i, j)
Next
.ALL("b1").Click
Do While IE.Busy
DoEvents
Loop
Next
End With
End Sub

复制代码

shz88 · 发表于 2009-12-27 20:21

原帖由 northwolves 于 2009-12-26 22:42 发表

郁闷.改成大写就OK 了:
'引用:
'Library SHDocVw
' C:\WINDOWS\system32\SHDOCVW.dll
' Microsoft Internet Controls
Sub Inputall()
Dim mShellwindows As New ShellWindows, IE As InternetExpl ...

请问版主，为什么非要大写的啊

northwolves · 发表于 2009-12-27 22:01

原帖由 shz88 于 2009-12-27 20:21 发表

请问版主，为什么非要大写的啊

不清楚原因,理论上应该不是这样.而且11楼的代码原先是测试通过的

dongxiexidu · 发表于 2010-2-5 00:26

我也正需要一个类似的代码，
编译错误：用户自定义类型未定义错误停留在 Dim mShellwindows As New SHDocVwCtl.ShellWindows, IE As InternetExplorer 请问版主，这是怎么回事儿？

northwolves · 发表于 2010-2-5 14:50

原帖由 dongxiexidu 于 2010-2-5 00:26 发表
我也正需要一个类似的代码，
编译错误：用户自定义类型未定义错误停留在 Dim mShellwindows As New SHDocVwCtl.ShellWindows, IE As InternetExplorer 请问版主，这是怎么回事儿？

需要先引用IE

dongxiexidu · 发表于 2010-2-5 23:37

原帖由 northwolves 于 2010-2-5 14:50 发表

需要先引用IE

麻烦给示范一个截屏可以吗？真的不知道引用那个。应该和Office安装没有关系吧？

panaoyun · 发表于 2010-2-7 19:04

怎么测试都不通过，WHY？

northwolves · 发表于 2010-2-7 21:46

原帖由 dongxiexidu 于 2010-2-5 23:37 发表

麻烦给示范一个截屏可以吗？真的不知道引用那个。应该和Office安装没有关系吧？

Microsoft HTML Object Library (MSHTML.TLB)
Microsoft Internet Controls (shdocvw.dll)

dongxiexidu · 发表于 2010-2-22 23:01

原帖由 northwolves 于 2010-2-7 21:46 发表

Microsoft HTML Object Library (MSHTML.TLB)
Microsoft Internet Controls (shdocvw.dll)

您好，版主。照您指点的，代码已经可以运行。谢谢。
不知道能不能将您发布的每句代码做个解释？不胜感激。
譬如：title = Split(" xm xb nj bj jtdz hj lb pklx zxf") 这括号中的内容为什么要这样命名？ .all("b1").Click 又是怎样就能代表了确认录入按钮？
请恕VB知识浅薄，不太明白。

zyg365 · 发表于 2010-2-23 11:27

VBA + ASP轻松实现

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

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

怎么测试都不通过

回复 1楼 wanlongwyp 的帖子