Excel 项目定制、网页数据抓取、股票彩票表格、Excel培训
在 如何用vba列出电脑上所有的打印机名称和端口？ 和在如何用vba获取电脑上连接的默认打印机名称？
两篇文章中我们分别介绍了如何获取电脑上当前的默认打印名称和列举当前电脑上的所有打印机。
但是用
|
1 |
Excel.Application.ActivePrinter |
获取的默认打印机的结果为
|
1 |
\\PC-20130852\HP LaserJet P2035 UPD PCL 5 在 Ne12: |
而用WScript.Ne[……]
在vba中可以用脚本对象WshNetwork的EnumPrinterConnections方法枚举所有本地电脑上已经安装的打印机的名称和端口。
代码如下：
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub QQ1722187970() Dim WshNetwork As Object Dim oPrinter As Object Set WshNetwork = CreateObject("WScript.Network") With WshNetwork Set oPrinter = .EnumPrinterConnections For i = 0 To oPrinter.Count - 1 Step 2 Debug.Print "端口：" & oPrinter(i) & vbTab & "打印机名称：" & oPrinter(i + 1) Next i End With End Sub |
用vba获取本地电脑上连接的默认打印机的名称可以使用Application对象的ActivePrinter属性。
代码如下：
|
1 2 3 |
Sub QQ1722187970() MsgBox "当前默认的打印机名称为" & Excel.Application.ActivePrinter End Sub |
pdf 跟所有其它文件类型一样，有这个文件特有的文件格式。
通过查阅pdf文件格式的标准或者官方的文件格式文档，可以得知，如果用二进制形式打开pdf文件的话，”/Count”后面出现的数字即为总页数。
利用这个规则，可以使用如下的vba自定义函数获取pdf文件的总页数：
|
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文件的总[……]
腾讯分分彩、腾讯时时彩是一种以QQ在线人数的计算结果作为开奖结果的彩种。
在腾讯的官网https://im.qq.com/的页面右上角有实时的QQ同时在线总人数。
比如现在的在线总人数是26915492，那么开奖结果就是85492。
其中5492为在线总人数的最后4位数字，8为在线总人数的所有位数的和的个位数，也就是2+6+9+1+5+4+9+2的和38的个位数8。
由于这[……]
用dos命令 assoc 可以枚举本地电脑上安装的所有文件的后缀名以及关联的文件类型。
在vba中可以使用Shell 函数 执行DOS命令。
为此，可以使用如下的代码枚举本地电脑上安装的所有文件的后缀名：
|
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中，有很多预置的类，比如
|
1 |
Dim oWK As Worksheet |
Worksheet就是一个类。
对象是类的实例化，比如Worksheet是工作表类，sheet1就是类的一个实例对象。
如果要新建一个类，可以在vbe编辑窗口 鼠标右键插入类模块。
其中类模块的名称就是类的名称。
我们知道类具有属性和方法和事件。
新建的类，如果要设[……]
比如A1单元格是日期 2018-7-4 ，在B1单元格可以使用公式
|
1 |
=LEN(2^MONTH(A1)) |
判断A1单元格的日期属于哪个季度。
公式的原理在于利用2的1到12次幂获得的结果的长度刚好对应1到4。
如下表所示：
月份
2^月份
长度
1
2
1
2
4
1
3
8
1[……]
比如A列有一列数值，按照1的间距递增，但是少了其中某几个号码。
解决此类问题的思路是，先构造最小值到最大值之间的所有数值，然后与数据匹配，找出缺少的数值。
假设数据在A1：A100单元格区域，则可以在B1单元格输入数组公式，Ctrl+Shift+Enter三键结束，依次往下填充：
|
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-5b508a[……]
在excel vba中内置了QueryTable对象可以存储从外部数据源导入的数据。
QueryTable对象不仅可以导入网页中的表格数据，还可以连接利用ADO技术访问的外部数据源的数据。
本文介绍用QueryTable对象采集网页表格数据的步骤：