奔向远方

是用vba获得当前网页的url的用处有很多，比如验证页面是否已经被跳转等。这里介绍3种vba获取当前网页url的实例，供大家参考。
方法一：
Sub test()
AppActivate “Internet Explorer”
SendKeys “%D^C%{TAB}”
ActiveSheet.Paste
End Sub
方法二：
本范例需要引用 Microsoft Internet Controls
‘以下程式
阅读全文——共807字

主要用到了  Microsoft HTML Object Library
用createDocumentFromUrl这个方法可以下载一个网页的内容并且得到一个HTMLDocument对象，
利用HTMLDocument的一些属性就很容易把网页内容分析出来。
例如用 outerHTML  可以得到HTML文本
用 links 可以得到网页里面所有的链接
注：当时没有想到用正则表达式，实现的方法很笨。其实用正则表达式分析网页内容非常方便，在以后我会有实例。
下面是代码：
   Option Explicit

Private mintSubCat       As Integer
阅读全文——共13280字

 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 = “myusername”
.Document.Forms(0).All(13).Value = “mypassword”
.Document.Forms(0).All(35).Click
阅读全文——共1037字

最近研究了一下vba编程，主要是针对excel的，现在为了学习，特别从网上搜集了300句常用语句，以备不时之需，也留给网友，不方便的时候查询一下。
定制模块行为
(1) Option Explicit ‘强制对模块内所有变量进行声明
Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
       Option Compare Text ‘字符串不区分大小写
       Option Base 1 ‘指定数组的第一个下标为1
(2) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 ‘恢复正常的错误提示
阅读全文——共25028字

最近因为需要把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
阅读全文——共712字