用VBA的方法获取excel表的页码公式的函数怎么用

返回的结果应该是：”第**页，共**页“网上找了一堆代码，但是发现放入excel中不会用，急死人了，就是那种类似于=sum(),函数名和每个参数该怎么写？？？下面的是那个... 返回的结果应该是：”第**页，共**页“
网上找了一堆代码，但是发现放入excel中不会用，急死人了，就是那种类似于=sum(),函数名和每个参数该怎么写？？？下面的是那个网站，有两串代码，我都试过了，写入模块容易，却不知如何使用，醉了展开

 我来答

3个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

金刚钻Johnny
推荐于2016-09-23 · TA获得超过356个赞

知道小有建树答主

回答量：314

采纳率：100%

帮助的人：57.5万

我也去答题访问个人页

关注

展开全部

excel里将网站内程序复制到EXCEL模块

Sub test()

p = ExecuteExcel4Macro("Get.Document(50)")

MsgBox "目前是第" & ThisPage & "页共" & p & "页"

End Sub

然后在宏工具查看，选择查看选中test 点执行就出了你想要的结果了。

更多追问追答

追问

你好，确实是这样的，不过能打印到单元格里去嘛，最终还是要打印到单元格的指定位置的谢谢！！~~

追答

Sub 页码及总页数() ' 金刚钻Johnny ChenYaJing15-07-12
'  运行宏，任意单元格写入公式
'  ="第"&ThisPageNo&"页 共"&PagesCount&"页" 
With ActiveWorkbook.Names
.Add Name:="ColFirst", RefersToR1C1:= "=GET.DOCUMENT(61)" 
.Add Name:="lstRow", RefersToR1C1:= "=GET.DOCUMENT(10)" 
.Add Name:="lstColumn", RefersToR1C1:="=GET.DOCUMENT(12)" 
.Add Name:="hNum", RefersToR1C1:= "=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row()))" 
.Add Name:="vNum", RefersToR1C1:= "=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column()))" 
.Add Name:="hSum", RefersToR1C1:= "=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64),lstRow))" 
.Add Name:="vSum", RefersToR1C1:=  "=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT(65),lstColumn))" 
.Add Name:="ThisPageNo", RefersToR1C1:=  "=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW())" 
.Add Name:="PagesCount", RefersToR1C1:=  "=GET.DOCUMENT(50)*ISNUMBER(NOW())"
End With
End Sub