怎样获得pages(n)对象

onthetrip

我想获得工作表中某一页对象，在微软官方网站https://docs.microsoft.com/zh-cn/office/vba/api/excel.pages抄的代码居然通不过，请各位帮忙，谢谢。

1. Private Sub test()
   
2. Dim objPage As Page
   
3. Set objPage = ActiveWorksheet.ActiveWindow _
   
4. .Panes(1).Pages.Item(1)
   
5. End Sub

复制代码

蓝桥玄霜

1. Dim objPage As Page, Sht As Worksheet
   
2. Set Sht = ActiveSheet
   
3. Set objPage = Sht.PageSetup.Pages(1)
   

复制代码

onthetrip

蓝桥玄霜 发表于 2020-2-13 12:58

谢谢版主，可以获得page对象了。我原本想获得page对象后，删除空白页，但刚看了page对象的帮助文件，好像这个对象没有类似find,delete一类的方法。版主能否提供一个删除空白页的思路？谢谢！

蓝桥玄霜

参考https://blog.csdn.net/qffhq/article/details/3031282