【VBA】一键打印当前目录下所有.xlsx文档

这两天有个批量打印报表的需求,于是简单撸了几行代码。使用说明:1.将当前xlsm文件和需要打印的文件放入同一文件夹中,运行代码即可打印目录下的所有xlsx文件中的所有表。其他类型文件没有测试,应该修改一下代码也能打。2.DO WHILE循环用于依次打开文件,FOR循环用于以此打开文件中的表。3.直接使用时,在打印前需要自行设置好每张表的打印格式,不然打出来有可能乱作一团;也可以在FOR循环中加入页

- 阅读全文 -

【VBA】excel一键打印前四张表

Option Explicit Sub 打印报表() '一键打印4张报表,打印源为当前文档前4张表,打印格式:前3张纵向,第四张横向,页边距左右0.5,上下默认,左右剧中,缩放到一页。 If MsgBox("是否一键打印4张表?", vbYesNo + vbDefaultButton1 + vbInformation, "打印提示") = vbNo Th

- 阅读全文 -

【VBA】一段填表代码

Dim i As Integer Dim j As Integer Dim k As Integer Sheet3.Range("C4:C43").ClearContents '清空C4:C43区域 i = 2 Do While Sheet7.Cells(i, 3) <> "" i = i + 1 Loop j = 2

- 阅读全文 -

Excel、VBA与MySQL交互

本文主要涉及:VBA中的MySQL环境配置 VBA连接MySQL数据库 VBA读写MySQL数据 在Excel中连接MySQL数据库及数据读写系统环境:Windows 10 Excel 2019+ XAMPP。其中集成的数据库是MariaDB10.1.13(如果不懂MariaDB为何物,可把它当成是MySQL。事实上它的使用和MySQL也几乎完全一致)1.VBA连接MySQL前的环境配置系统中必须

- 阅读全文 -