Excel教程|Word教程|VBA应用-ExcelOffice

如何用vba读取pdf文件的总页数？

2018年7月13日作者：exceloffice

暂无评论

pdf 跟所有其它文件类型一样，有这个文件特有的文件格式。

通过查阅pdf文件格式的标准或者官方的文件格式文档，可以得知，如果用二进制形式打开pdf文件的话，”/Count”后面出现的数字即为总页数。

利用这个规则，可以使用如下的vba自定义函数获取pdf文件的总页数：

Function GetPageNum(ByVal sPath As String)
    Dim iFN As Integer
    iFN = VBA.FreeFile
    Dim bFileSize As Long
    bFileSize = VBA.FileLen(sPath)
    Open sPath For Binary Access Read As iFN
    Dim arrResult() As Byte
    '读取字节流
    arrResult = InputB(bFileSize, iFN)
    Dim arrFind() As Byte
    '要查找的字节串,"/Count"为pdf总页数的特征字符标识
    arrFind = VBA.StrConv("/Count", vbFromUnicode)
    '设置查找的起始位置
    bPos = 0
    bPos = VBA.InStrB(bPos + 1, arrResult, arrFind, vbBinaryCompare)
    '设置个变量预装"/Count"之后的字符
    Dim sResult As String
    sResult = Space(1000)
    Get iFN, bPos + 6, sResult
    GetPageNum = VBA.Val(sResult)
    Close iFN
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Function GetPageNum(ByVal sPath As String)

Dim iFN As Integer

iFN = VBA.FreeFile

Dim bFileSize As Long

bFileSize = VBA.FileLen(sPath)

Open sPath For Binary Access Read As iFN

Dim arrResult() As Byte

'读取字节流

arrResult = InputB(bFileSize, iFN)

Dim arrFind() As Byte

'要查找的字节串,"/Count"为pdf总页数的特征字符标识

arrFind = VBA.StrConv("/Count", vbFromUnicode)

'设置查找的起始位置

bPos = 0

bPos = VBA.InStrB(bPos + 1, arrResult, arrFind, vbBinaryCompare)

'设置个变量预装"/Count"之后的字符

Dim sResult As String

sResult = Space(1000)

Get iFN, bPos + 6, sResult

GetPageNum = VBA.Val(sResult)

Close iFN

End Function

以下代码是列举任意文件夹下的所有pdf文件的总[……]

阅读全文

如何用vba更新腾讯分分彩、腾讯时时彩开奖结果？

2018年7月10日作者：exceloffice

暂无评论

腾讯分分彩、腾讯时时彩是一种以QQ在线人数的计算结果作为开奖结果的彩种。

在腾讯的官网https://im.qq.com/的页面右上角有实时的QQ同时在线总人数。

比如现在的在线总人数是26915492，那么开奖结果就是85492。

其中5492为在线总人数的最后4位数字，8为在线总人数的所有位数的和的个位数，也就是2+6+9+1+5+4+9+2的和38的个位数8。

由于这[……]

阅读全文

如何在vba中枚举本地电脑上安装的所有文件的后缀名？

2018年7月9日作者：exceloffice

暂无评论

用dos命令 assoc 可以枚举本地电脑上安装的所有文件的后缀名以及关联的文件类型。

在vba中可以使用Shell 函数执行DOS命令。

为此，可以使用如下的代码枚举本地电脑上安装的所有文件的后缀名：

Sub QQ1722187970()
    Dim sPath As String
    sPath = Excel.ThisWorkbook.Path & "\test.txt"
    Dim sCmd As String
    sCmd = "cmd /c assoc>" & sPath
    Shell sCmd
    Shell ("notepad " & sPath)
End Sub

1

2

3

4

5

6

7

8

Sub QQ1722187970()

Dim sPath As String

sPath = Excel.ThisWorkbook.Path & "\test.txt"

Dim sCmd As String

sCmd = "cmd /c assoc>" & sPath

Shell sCmd

Shell ("notepad " & sPath)

End Sub

如何在vba中使用类？

2018年7月6日作者：exceloffice

暂无评论

在vba中，有很多预置的类，比如

Dim oWK As Worksheet

1	Dim oWK As Worksheet

Worksheet就是一个类。

对象是类的实例化，比如Worksheet是工作表类，sheet1就是类的一个实例对象。

如果要新建一个类，可以在vbe编辑窗口鼠标右键插入类模块。

其中类模块的名称就是类的名称。

我们知道类具有属性和方法和事件。

新建的类，如果要设[……]

阅读全文

如何在excel中用函数公式判断日期属于哪个季度？

2018年7月5日作者：exceloffice

暂无评论

比如A1单元格是日期 2018-7-4 ，在B1单元格可以使用公式

=LEN(2^MONTH(A1))

1	=LEN(2^MONTH(A1))

判断A1单元格的日期属于哪个季度。

公式的原理在于利用2的1到12次幂获得的结果的长度刚好对应1到4。

如下表所示：

月份
2^月份
长度

1
2
1

2
4
1

3
8
1[……]

阅读全文

如何在excel中用函数公式查找一列数值的断号、缺号？

2018年7月4日作者：exceloffice

暂无评论

比如A列有一列数值，按照1的间距递增，但是少了其中某几个号码。

解决此类问题的思路是，先构造最小值到最大值之间的所有数值，然后与数据匹配，找出缺少的数值。

假设数据在A1：A100单元格区域，则可以在B1单元格输入数组公式，Ctrl+Shift+Enter三键结束，依次往下填充：

=SMALL(IF(FREQUENCY($A$1:$A$100,ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A)-1)))=0,ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A))),""),ROW(A1))

1	=SMALL(IF(FREQUENCY($A$1:$A$100,ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A)-1)))=0,ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A))),""),ROW(A1))

其中
[crayon-5b4c39[……]

阅读全文

如何在vba中用QueryTable对象采集网页表格数据？

2018年7月4日作者：exceloffice

暂无评论

在excel vba中内置了QueryTable对象可以存储从外部数据源导入的数据。

QueryTable对象不仅可以导入网页中的表格数据，还可以连接利用ADO技术访问的外部数据源的数据。

本文介绍用QueryTable对象采集网页表格数据的步骤：

先用QueryTables对象的Add方法创建一个链接到网页的QueryTable对象；
设置QueryTable对象的相[……]

阅读全文

如何在excel中用vba采集中华人民共和国行政区划代码？

2018年7月3日作者：exceloffice

暂无评论

中华人民共和国行政区划代码会每年都有变更，为了获取到最新的中华人民共和国行政区划代码可以通过网络采集的形式不断地获取最新的中华人民共和国行政区划代码。

比如中华人民共和国民政部官方网站会不定期的更新中华人民共和国行政区划代码。

如本链接为2017年中华人民共和国行政区划代码（截止2017年12月31日）

可以通过以下代码获取到截止2017年12月31日的最新的中华人民共和国行政区[……]

阅读全文

如何用vba将试卷题目和选项分开？

2018年6月30日作者：exceloffice

暂无评论

比如单元格中有一列试卷的题目和选项，其中每道题的题目和选项在一个单元格中，形式如下:

序号+分隔符+题目内容+A+分隔符+A选项内容+B+分隔符+B选项内容+C+分隔符+C选项内容+D+分隔符+D选项内容

1	序号+分隔符+题目内容+A+分隔符+A选项内容+B+分隔符+B选项内容+C+分隔符+C选项内容+D+分隔符+D选项内容

要将上述的内容按照 题目内容+A选项内容+B选项内容+C选项内容+D选项内容 的形式分别拆分到不同的单元格

可以使用如下的思路：

1.首先确定各个选项后面的分隔符是否统一，如果统一获取该分隔符。

2.用正则表达式将 选项+分隔[……]

阅读全文

如何在vba中用ado合并不同excel工作簿的内容？

2018年6月29日作者：exceloffice

暂无评论

在如何在vba中用ado访问各种不同的数据源？一文中我们介绍了用ado访问excel数据源的方法。

但是我们经常需要访问的数据位于多个不同的文件中，这时候可以采用如下的步骤：

先用连接字符串连接其中一个excel工作簿。
在SQL语句中用[Excel 12.0;Database=” & Excel.ThisWorkbook.Path & “\test1.xl[……]

阅读全文

ExcelOffice

如何用vba读取pdf文件的总页数？

如何用vba更新腾讯分分彩、腾讯时时彩开奖结果？

如何在vba中枚举本地电脑上安装的所有文件的后缀名？

如何在vba中使用类？

如何在excel中用函数公式判断日期属于哪个季度？

如何在excel中用函数公式查找一列数值的断号、缺号？

如何在vba中用QueryTable对象采集网页表格数据？

如何在excel中用vba采集中华人民共和国行政区划代码？

如何用vba将试卷题目和选项分开？

如何在vba中用ado合并不同excel工作簿的内容？

分类目录

近期文章

功能

分类目录

近期文章

标签

功能