excel里将网站内程序复制到EXCEL模块
Sub test()
p = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "目前是第" & ThisPage & "页 共" & p & "页"
End Sub
然后在宏工具 查看，选择查看 选中test 点执行 就出了你想要的结果了。
发一下这个网站链接，我看看
你是要提取出网页上显示的页数还是什么
