如何实现批量打印超级链接所指的文件？

作者：绿色风分类：时间：2022-08-17 浏览：168

楼主 omnw	Q:如何实现批量打印超级链接所指的文件？ A:以超链接的为EXCEL文件为例，可以使用如何代码实现批量打印的效果。原理：判断A列单元格中是否存在超链接且链接的是EXCEL文档，打开EXCEL文档后逐个打印工作表中的内容。 Sub 按钮1_Click Dim i As Integer, bok As Workbook, sh As Worksheet On Error Resume Next For i = 1 To Range("A65536").End(xlUp).Row '遍历A列所有的单元格 If Dir(Cells(i, 1).Hyperlinks.Item(1).Name) <> "" Then '如果单元格中存在超级链接，而且链接的是文件 Set bok = Workbooks.Open(Range("A1").Hyperlinks.Item(1).Name) '打开这个文件 For Each sh In bok.Sheets '逐一打印文件中的所有工作表 sh.PrintOut Next bok.Close (False) '关闭链接的文件 End If Next i End Sub 工作簿2.rar
2楼 7786910	观摩学习。
3楼 3dmax456789	请问楼主能否实现批量打印超级链接所指的图片每一张图片都充满A4纸

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表