EXCEL工具栏加载项(含源码)

Private Sub Command1_Click() Dim i As Integer Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "http://mail.163.com/" '打开的邮箱网址 timeie = DateAdd("s", 60, Now()) '最长等待时间60秒 Do While IE.Busy And Not IE.ReadyState = READYSTATE_COMPLETE DoEvents If timeie < Now() Then MsgBox "无法连接网站,请重新连接" IE.Quit Exit Sub End If Loop With IE.Document .all("UserName").Value = "Accessbbs" '用户账号 .all("Password").Value = "Access" '用户密码 .all("登录邮箱").Click End With Set IE = Nothing End Sub Sub test() Dim ie As SHDocVw.InternetExplorer Set ie = CreateObject("InternetExplorer.Application") ie.Navigate2 "http://www.vba.com.tw/plog/" ie.Visible = False Do DoEvents Loop Until ie.ReadyState = 4 '全選 ie.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT '複製 ie.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT '貼上 ActiveSheet.Paste ie.Quit End Sub ''northwolves (狼行天下) ''VBA自动登陆163信箱 Sub Goto163() With CreateObject("InternetExplorer.Application") .Visible = True .navigate "http://mail.163.com" Do Until .Readystate = 4 DoEvents Loop .Document.Forms(0).All(9).Value = "帐号" .Document.Forms(0).All(13).Value = "密码" .Document.Forms(0).All(35).Click End With MsgBox "Ok" End Sub