Excel VBA 工资表批量截图工资条保存为图片文件

本文首发于2023年8月26日于其他同名平台。更多文章案例请搜索关注！

概括

按人员过滤工资单数据到新工作表中

从工资单中删除空白列

导出工资单并将其保存为图像文件

大家好，我是一名冷水茶师。他想按员工过滤工资表，然后在过滤过程中对金额为0的进行截图，使表变窄，更容易截图？

如果你想解决这个问题，不知道你是否可以采用【ExcelVBA工作表中高亮显示行和列】一文中使用的方法：先记下原来的列宽，进行过滤，然后将其更改为0的量。将列宽设置为0并在下次过滤之前恢复它？尽管我是这么想的，但我并没有这么做。

如果我处理的是工资单，我们有一个小文件分割工具【ExcelVBA文件分割工具功能扩展】来按人分割文件，这样我们就可以完成按人创建工资单了。

他的问题让我想到，如果人多的话，发帖者可能是手动截图的，那不是有点繁琐吗？

于是，我突然想到，是否可以一键创建所有员工的工资截图呢？

经过一下午的努力，终于完成了。让我们来看看：

基本思想

1按员工单独筛选薪资表，将筛选结果复制到新工作表并将其命名为“薪资”。

2在工资表中，删除金额为0或为空的列。

3将工资单复制并粘贴为图像。

4创建一个图表并将图像插入其中。

5、从图表中导出图像，并根据员工姓名和当前时间保存到C:Payroll目录中。

代码

1模块1，CaptureData流程，薪资截图：

SubCaptureData()DimwsSourceAsWorksheetDimwsDestinationAsWorksheetDimemployeeNameAsStringDimcurrentRowAsRangeDimOutputFolderAsStringDimlastRowAsIntegerDimiColAsIntegerDimrngAsRange，picAsObjectDimobjChtAsChartObjectApplicationDisplayAlertsFalseApplicationScreenUpdatingFalseSetwsSourceThisWorkbookSheets('工资表')OnErrorResumeNextSetwsDestinationThisWorkbookSheets('工资单')OnErrorGoTo0IfwsDestinationIsNothingThenSetwsDestinationThisWorkbookSheetsAddwsDestinationName'SalarySlip'ElsewsDestinationCellsClearEndIflastRowwsSourceCells(wsSourceRowsCount,1)End(xlUp)RowFori3TolastRowSetcurrentRowwsSourceRows(i)employeeNamecurrentRowCells(1,3)ValueIfemployeeName''ThenwsSourceRows(2)。AutoFilterField:3,Criteria1:employeeNameApplicationCalculateFullwsSourceUsedRangeSpecialCells(xlCellTypeVisible)CopywsDestinationCells(1,1)wsSourceRows(2)AutoFilterField:3SetrngwsDestinationCells(3,1)Resize(1,wsDestinationUsedRangeColumnsCount)ForiColrngCellsCountTo1Step-1IfIsEmpty(rngCells(1,iCol)Value)OrrngCells(1,iCol)Value0ThenrngCells(1,iCol))EntireColumnDeleteEndIfNextwsDestinationActivateSetrngwsDestinationCells(1,1)Resize(3,wsDestinationUsedRangeColumnsCount)rngCopySetpicActiveSheetPicturesPastepicCopyOutputFolder'C：工资栏'IfNotDir(OutputFolder,vbDirectory)''thenMkDirOutputFolderEndIfOutputFileOutputFolder''employeeName'('Format(Now,'YYYYMMDDhhmmss')')jpg'SetobjChtwsDestinationChartObjectsAdd(0,0,rngWidth,rngHeight)WithobjChtChartParentSelectPasteExportOutputFile,'JPG'ParentDeleteEndWithpicDeletewsDestinationUsedRangeClearEndIfNextwsDestinationDeleteApplicationDisplayAlertsTrueApplicationScreenUpdatingTrueMsgBox'完成！'EndSub

?代码分析：

(1)定义一些变量、工作表对象、范围对象、图表对象等。

(2)第12-13行，禁用屏幕更新和警告。

(3)第14行，设置数据源表wsSource为“SalaryTable”。

(4)在第15至23行设置目标表“wsDestination”。首先检查这里表是否存在。如果存在，则删除其内容。实际上它不应该存在，因为我们在进程结束之前删除了该表。

(5)第24-59行，循环遍历“工资表”，并将员工的工资单单独保存为图像。

(a)第29行到第30行，过滤工资表并重新计算整个表。主要原因是第一行有公式，不重新计算数值不会改变。

(b)第31行，将过滤结果复制到工资表中。

(c)第32~38行，删除金额为0或空白的列。

(d)第40至43行：复制工资单数据范围，将其粘贴为图像并复制该图像。

(e)第44至48行：设置输出目录和文件名。

(f)第49-55行，插入图表、插入图像、导出并保存。

(g)第56行至第57行：删除Payroll表中的图像，删除Payroll表的内容，并准备处理下一条记录。

(6)第60-62行，删除工资表并恢复屏幕更新和警报。

2其他进程：CmdCapture、截图命令按钮：

PrivateSubCmdCaptureClick()CallCaptureDataEndSub

尖端

1、添加临时工作表时，首先需要检查该工作表是否存在。如果存在，请删除内容并保存。无论哪种情况，要么报错，要么增加大量冗余。

2过滤、复制和粘贴工作表的方法。

3复制该区域并将其另存为图像。

4使用工作表中的图表对象，可以将工作表中的图像导出并保存为图像文件。

5为了处理输出目录，我们可以在根目录中创建一个文件夹。就像添加工作表一样，我们首先判断它是否存在，如果不存在则创建一个新的，以避免错误。

~~~~~~结束~~~~~~

如果喜欢，请点赞、点击查看、留言！分享，让自己变得更强！感恩！