#问题解答#Excel VBA#如何获取工作表页数
我的图书馆
#问题解答#Excel VBA#如何获取工作表页数
近期有网友问我：如何获取Excel工作簿中某工作表的所有页数？其实很简单，使用PageSetup对象的Pages属性即可。例如，若要获取当前工作表的页数，使用下面的代码：ActiveSheet.PageSetup.Pages.CountPages属性返回Pages集合，再利用集合的通用属性Count，获得工作表页数。 说明先来详细解释一下。PageSetup对象相当于“页面设置”对话框，属于Worksheet对象或Chart对象。 PageSetup对象的很多属性都与“页面设置”对话框中的设置相对应，例如，Orientation属性设置工作表页面的方向，下面的代码将工作表设置为横向：ActiveSheet.PageSetup.Orientation =xlLandscape运行代码后“页面设置”对话框如图所示： 扩展下面的代码遍历工作簿中的所有工作表，最后在对话框中显示每个工作表的页数。Sub testPages() Dim wks As Worksheet Dim str As String For Each wks In Worksheets str = str & '工作表' & wks.Name & '的页数为:' & wks.PageSetup.Pages.Count & vbCrLf Next wks
MsgBox strEnd Sub 在我的示例工作簿中的运行结果如下图所示：
TA的最新馆藏
喜欢该文的人也喜欢查看: 1643|回复: 9
VBA中自动打印的问题
阅读权限20
在线时间 小时
我想问一下问题，我想将VBA里完成这么一个过程
1.自动打印，选择的打印机为creatorPDF2012,直接打印成PDF格式的文件
2.将文件自动保存至F:\2014年订金\11月16日，文件夹
&&这里有两个问题，1，这个日期是根据当天日期而定的，
& && && && && && && && && &&&2，判断这个文件夹是否存在，如果存在的话，直接将这个PDF文件存进去，如查不存在的话，先建立一个当日日期的文件夹，然后再把生成的文件加入进去
& && && && && && && && && &&&3，如何在生成的时候变更这个PDF文件名了？
3.当生成完成后，自动打开这个文件夹，请大家帮忙如何处理了
我自己写的，不对，还有很多功能不知道怎么完成，请大家帮忙处理一下吧
If Dir(&F:\2014年订金\& & Format(Date, &mm&) & &月& & Format(Date, &dd&) & &日&, vbDirectory) && && Then
& && & MsgBox Format(Date, &m&) & &月文件夹已经存在&
& && & MsgBox &文件夹不存在!,系统将创建一个名为& & Format(Date, &m&) & &月的文件夹&
& && & MkDir &F:\2014年订金\& & Format(Date, &mm&) & &月& & Format(Date, &dd&) & &日&
Application.Dialogs(xlDialogPrint).Show
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = &F:\2014年订金\& & Format(Date, &mm&) & &月& & Format(Date, &dd&) & &日&
Set dig = Nothing
阅读权限50
在线时间 小时
2010版可以直接输出PDF，03版的如何操作打印好的PDF文件是个难题。
阅读权限20
在线时间 小时
sevenstar 发表于
2010版可以直接输出PDF，03版的如何操作打印好的PDF文件是个难题。
我的是2010啊,没有看到哪里有什么PDF啊
阅读权限20
在线时间 小时
如何将将指定单元格的内容做为文件夹名，这段代码怎么写了
阅读权限20
在线时间 小时
找到了，但是保存路径不可以是代码形式吧，我把这段函数代码去掉又可以，有什么方法可以解决吗
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
& && &&&&F:\2014年\2014年财务账单\& & Format(Date, &mm&) & &月& \range(&A2&).value.pdf&, Quality:=xlQualityStandard, _
& && &&&IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
阅读权限50
在线时间 小时
由于你没有附件，只能大概做一个。请解压后再测试。
功能是在当前文件夹中生成一个以当天日期命名的文件夹，再以sheet1中的单元格数据为文件名生成PDF文件。
17:29 上传
点击文件名下载附件
16.54 KB, 下载次数: 25
阅读权限20
在线时间 小时
& & & & & & & &
sevenstar 发表于
由于你没有附件，只能大概做一个。请解压后再测试。
功能是在当前文件夹中生成一个以当天日期命名的文件夹 ...
好的，谢谢，我看了一下完成的很好，借鉴一下，非常感谢
阅读权限20
在线时间 小时
& & & & & & & &
sevenstar 发表于
由于你没有附件，只能大概做一个。请解压后再测试。
功能是在当前文件夹中生成一个以当天日期命名的文件夹 ...
你好，我做了一下还是不行，麻烦帮我看一下吧主要是，点开后生成一个PDF文档，命名为引用单元格里的内容,并以客人的名字结尾，用括号括起来，但是我做出的只有括号，没有单元格的值，麻烦帮我看一下吧，谢谢！
我这里重新加了一个文档，麻烦帮我看一下吧
命名就像我上传的压缩包这样，谢谢了
15:37 上传
点击文件名下载附件
52.04 KB, 下载次数: 7
阅读权限50
在线时间 小时
问题是在选择了sheet5后，命名文件的单元格前没有加工作表名，造成了引用sheet5的单元格，而sheet5是空的。
21:12 上传
点击文件名下载附件
41.75 KB, 下载次数: 16
阅读权限20
在线时间 小时
& & & & & & & &
sevenstar 发表于
问题是在选择了sheet5后，命名文件的单元格前没有加工作表名，造成了引用sheet5的单元格，而sheet5是空的。 ...
哦，对对对，太感谢了，我就说麻，怎么要不然就不会只生成括号，对对对，引用错了！
看来，我这块还是要想个办法处理一下！
因为我会把里面的11月份做为一个模板；还需要建议从1-12月份的这么一个模板
因为不能当转到SHEET5之后再指定返回到11月的这个工作表当中来，要不然以11月为模版的时候，建立12月份的时候，就不能返回12月了；
另外我想问一下，有什么方法可以增加一个自动生成的序列号吗？
要求是H开头，生成月月日+一个逐步增加的3位数，从001开始，有什么方法可以现实吗，我写的不对，运行起来总是出现两个一样的号码
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师拒绝访问 |
| 百度云加速
请打开cookies.
此网站 () 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3c079a2cd77543d1-ua98).
重新安装浏览器，或使用别的浏览器您可以选择一种方式赞助本站vba打印--代码整理
= ActiveSheet.HPageBreaks.Count + 1
= ActiveSheet.VPageBreaks.Count + 1
竖向页码 *
'---------------当前单元格所在页---------当前单元格所在行
= Range("A50").Row
&For Each yh In ActiveSheet.HPageBreaks
ih = ih + 1
当前单元格所在行 &= yh.Location.Row Then
当前单元格所在页 = ih
'-----------------------------------------
---------------------------------------------------------------------------------------------------------
'让1-2页都显示1、3-4页都显示2
Sub dd1() '方法1
For I = 1 To ActiveSheet.HPageBreaks.Count
& With ActiveSheet.PageSetup
.LeftFooter = "第
" & Int(I + 1 / 2) &
" & ActiveSheet.HPageBreaks.Count
& End With
&ActiveWindow.SelectedSheets.PrintOut From:=1,
To:=1, Copies:=1, Collate:=True
Sub dd2() '方法2
ExecuteExcel4Macro("Get.Document(50)")
&&& For I = 1 To
ActiveSheet.PageSetup.LeftFooter = "第
" & Int(I + 1 / 2) &
ActiveWindow.SelectedSheets.PrintOut From:=I, To:=I
每页分别打印指定份数()
ExecuteExcel4Macro("GET.DOCUMENT(50)")&
"现在打印,按确定开始."
For i = 1 To
& ActiveSheet.PrintOut from:=i, To:=i
ActiveWindow.SelectedSheets.PrintOut From:=i,
To:=i, Copies:=5, Collate:=True&
& '打印第i页5份
ActiveSheet.PrintOut copies:=5’逐份打印5份
Collate:=True&&'[逐份打印]
&Variant&类型，可选。如果该值为&True，则逐份打印每份副本。
打印选定区域的内容()
MB=MsgBox("请确认是否打印选定区域？", vbYesNo+ vbExclamation, "系统温馨提示")
If MB = vbNo Then
& Exit Sub
Selection.PrintOut copies:=1,
collate:=True
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}