• 如何用vba设置电脑上的默认打印机?

    如何用vba列出电脑上所有的打印机名称和端口?  和在如何用vba获取电脑上连接的默认打印机名称? 
    两篇文章中我们分别介绍了如何获取电脑上当前的默认打印名称和列举当前电脑上的所有打印机。

    但是用

    获取的默认打印机的结果为

    而用WScript.Ne[……]

    阅读全文

  • 如何用vba列出电脑上所有的打印机名称和端口?

    在vba中可以用脚本对象WshNetworkEnumPrinterConnections方法枚举所有本地电脑上已经安装的打印机的名称和端口。

    代码如下:

     

  • 如何用vba获取电脑上连接的默认打印机名称?

    用vba获取本地电脑上连接的默认打印机的名称可以使用Application对象的ActivePrinter属性。

    代码如下:

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

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

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

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

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

    阅读全文

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

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

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

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

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

    由于这[……]

    阅读全文

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

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

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

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

     

     

  • 如何在vba中使用类?

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

    Worksheet就是一个类。

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

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

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

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

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

    阅读全文

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

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

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

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

    如下表所示:

    月份
    2^月份
    长度

    1
    2
    1

    2
    4
    1

    3
    8
    1[……]

    阅读全文

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

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

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

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

    其中
    [crayon-5b508a[……]

    阅读全文

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

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

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

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

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

    阅读全文