奔向远方

最近因为需要把excel里的内容拷贝复制到网页上去填表，一个一个的复制粘贴，甚是麻烦和枯燥。因为我是一个懒人，所以就开始想些简单的方法，记得以前在学校图书馆里看到excel的宏命令甚是强大，于是就自己编写了一段简单的宏命令，可以自动填写网页表格，也算懒一把啦。

下面给大家一个示例程序，可以自动读取表格第一行的数据登陆163邮箱。

代码如下：

Sub goto163()

Dim x, y As Integer

x = Selection.Row()

Dim urlstr As String

urlstr = Worksheets(“Sheet1″).Cells(x, 4).Value

With CreateObject(“InternetExplorer.Application”)
.Visible = True
.navigate urlstr

Do Until .Readystate = 4
    DoEvents
Loop

y = 1

.Document.Forms(0).All(“username”).Value = Worksheets(“Sheet1″).Cells(x, y)

y = y + 1

.Document.Forms(0).All(“password”).Value = Worksheets(“Sheet1″).Cells(x, y)

y = y + 1

.Document.Forms(0).All(“selType”).Value = Worksheets(“Sheet1″).Cells(x, y)

‘.Document.Forms(0).All(“登录邮箱”).Click

End With

End Sub

配合这个程序演示的表格内容如下：

[singlepic=102,403,60,web20,left]

Related Blogs

Trackback URI | Comments RSS