如何用Excel VBA批量打印文件，excel vba 文件操作

如题所述

推荐答案推荐于2016-11-04

如何用 Excel VBA 批量打印文件有时候一个文件夹内有很多 Excel 文件,几十个,上百个,如果一个个的打开, 然后再打印,显然重复劳动,效率低下。Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name = "Sheet1" '假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\报表-*.xls",

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/Uxs2UxxvpsUss2ipsii.html

相似回答

如何用Excel VBA批量打印文件,excel vba 文件操作答：如何用 Excel VBA 批量打印文件 有时候一个文件夹内有很多 Excel 文件,几十个,上百个,如果一个个的打开, 然后再打印,显然重复劳动,效率低下。Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name = "Sheet1" '假设所有报表文件中的数据都在 ...

Excel批量打印跪求大神答：1、首先在需要打印的文件所在的文件夹里建立一个Excel文档;2、打开Excel文档后按组合键打开VBA编辑器;3、依次单击“插入”菜单--“模块”，将下面的代码放进去;Sub PrintSheet()Dim myPath, myFile定义变量myPath = ThisWorkbook.Path & "\"给路径变量赋值myFile = Dir(myPath & "\*.xls")用di...

Excel 如何用VBA实现表格打印答：Name + "") '打开文件 Worksheets("Sheet2").Activate '选择表格2 ActiveSheet.PageSetup.PrintArea = "" '取消打印区域 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印 ActiveWindow.Close saveChanges:=False '关闭文件Next End Sub ...

我要打印一个文件夹下的所有excel文件(用VBA)比如(C:\A\B.*.xlsx)的...视频时间 22:00

如何运用VBA把EXCEL批量打印同一个文件夹内的所有文件打印指定的工作...答：代码：sub 宏1() dim p,n,st as worksheet p="c:\" '文件所在位置，你可能需要修改，没必须是\ n=dir(p & "&.xls*") do while n<>"" with workbooks.open(p & n) for each st in .sheets if st.name="施工记录" or st.name="施工记录 (2)" or st...

求用EXCEL宏批量打印的代码。答：1、先选择“打印”表，设定打印区域，请选择你要打印的区域，在页面布局-打印区域-设置打印区域，这样区域外的内容不会被打印。2、在打印区域外，用菜单-开发工具-插入-按钮，按内容为“打印全部表格”，3、在宏-编辑中，选择“按钮1_Click”，输入下面的宏指令，我只是写上一些关键的语句，你可按...

大家正在搜

如何批量打印excel文档 excel如何批量打印如何批量打印excel表格批量打印excel文件 vba批量打印pdf文件 vba批量打印word文档多个excel批量打印 excel批量打印标签 vbaCAD批量打印