三九宝宝网宝宝教育写作范文

在Excel中怎样用VBA批量统计PDF页数大神们帮帮忙万分感谢

01月03日 编辑 39baobao.com

[求大神帮忙制定个学习计划!高四没有明确的学习目标和计划学习]1、学习计划要切实可行,有针对性,同时要符合自己的情况,所以最好是自己来制定。制定学习计划,首先要梳理一下自身的学习情况,找出自己掌握的薄弱环节、存在的问题、容易丢分的知...+阅读

试试下面的代码,在网上找的:

Sub pdfpage()

Dim AcroApp As Acrobat.CAcroApp

Dim numPages As Integer

Dim PD1 As Acrobat.CAcroPDDoc

Set AcroApp = CreateObject("AcroExch.App")

Set PD1 = CreateObject("AcroExch.PDDoc")

Dim mydialog As FileDialog

Dim i As Integer, sFile As String

Set mydialog = Application.FileDialog(msoFileDialogFilePicker)

With mydialog

.Filters.Clear '清除所有文件筛选器中的项目

.Filters.Add "所有PDF文件", "*.pdf", 1 '增加筛选器的项目为所有pdf文件

.AllowMultiSelect = True '允许多项选择

.Show

If .SelectedItems.Count = 0 Then

MsgBox "没有选择任何文件!", vbExclamation + vbOKOnly, "提示"

Exit Sub

End If

For i = 1 To .SelectedItems.Count

sFile = .SelectedItems(i)

Range("a" & i) = sFile

PD1.Open (sFile)

Range("b" & i) = PD1.GetNumPages()

PD1.Close

Next

MsgBox "文件处理完毕!" & vbCrLf & vbCrLf & "共处理了 " & .SelectedItems.Count & " 个文件。", vbInformation + vbOKOnly, "提示"

End With

AcroApp.Exit

Set AcroApp = Nothing

Set PD1 = Nothing

End Sub

以下为关联文档:

如何做好一个中层管理者越详细越好哥们帮帮忙如何成为一名优秀的中层管理者? 如下是一名中层的领导者最起码要具备12项技能。我觉得很不错,希望对你有用。 ◆决策管理 企业管理的重点在于经营,经营的重点在于决策。在企业...

装饰施工员个人工作总结哪位前辈帮帮忙啊。在这新的一年到来之际,根据自身工作的实际情况,我对自己的工作做出分析评定,总结经验教训,提出改进方法,以便使自己在今后的工作中能惩前毖后,扬长补短,为今后不断改进工作方法,提高...

急要一份广告策划的示范文稿请大家帮帮忙你好! 以下广告策划书撰写格式供你参考: 一、题目: 二、客户名称: 三、产品名称: 四、市场背景分析 (一)目标市场: 该类产品的消费者是谁?他们的年龄、性别职业、收入、文化、所处地...

提供一份羽毛球力量训练方案拜托各位大神羽球的重量训练著重在手腕与腿,训练的项目则针对耐力、爆发力与劲道来强化自身的能力。 手腕--刚开始可以较轻的哑铃或握柄式的重物做手腕间各角度的转动,等适应后可依次加重,...

需求一份快餐公司创业计划书大家帮帮忙行吗一、 创业目标 发展中国真正意义上的快餐行业,利用合理有效的管理和投资,建立一定大型快餐连锁公司。 二、 市场分析 社会生活节奏加快,使快餐业的存在和发展成为不容置疑的问...

电脑玩游戏的时候经常莫名奇妙的卡顿求大神指点需要更换哪些硬你好,请问你是在玩什么游戏出现的卡顿? 走你发的图片来看,你的CPU是4代i3-4160,这款CPU的性能不算很强劲,在玩一些大型3D游戏的时候性能略显偏低,你的主显卡显示使用的是CPU自带的...

求购一篇员工自身发展计划书谢谢了大神帮忙啊成都某信息技术有限公司员工个人发展计划书 前言 陈晓进 在公司推广员工个人计划书的根本目的就是要使公司真正早日实现以人为本的人才战略。个人和企业的关系如同滴水与清...

拜托大神提供几个伤感网名要有错别字的带特殊符号的奈何桥。以殇 ╭余存在记忆〆 •Y╮你吥属与我 •不可收拾的悲桑、 〆琉璃下丶澄澈的回忆 ╰︶ ̄凄ˇ凉 仅此德肆意ゝ 深吻、衲曾经 街头抽丶寂寞 自导、自演 ╰逝去旳青春 遗弃...

各位帮帮忙管理学原理的题目1.简要说明部门划分应遵循的具体原则 答:部门划分应遵循分工原理,具体原则有: (1)部门力求最少 (2)组织结构应具有弹性 (3)应确保目标的实现 (4)各职能部门的指派应达到平衡 (5)检查部门...

推荐阅读
图文推荐