VBA 批量打印多工作簿的指定工作表_vba打印指定工作表

相关文章推荐

俊秀的鼠标垫 · 什么是博弈论？_掌握不同博弈类型,构建结构化 ...· 1 月前 ·

爱听歌的楼梯 · 佛山市高明区大茶泵站10kV线路改造工程监理 ...· 5 月前 ·

豪爽的萝卜 · 浙江嘉兴小将勇夺青年网球世界冠军_国家体育总局· 7 月前 ·

奔放的生菜 · 浙江大学计算机科学与技术学院2021年博士研 ...· 1 年前 ·

爱听歌的炒饭 · 73亿网龙创始股东郑辉去世，公司曾靠薅百度羊 ...· 1 年前 ·

要解决的问题：

同一个文件夹有多个工作簿，工作簿中有相同格式的多个sheet表，其中有两个固定的SHEET需要打印（所有EXCEL工作簿表格中两个固定SHEET的名字相同）。每次打开这么多文档，再将表格一个个打印很繁琐，有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容？

解决思路：

1、将要打印的工作簿放在同一个文件夹内，如：D:\mywbooks\

2、使用dir在文件夹中遍历文件，然后打开工作簿，再打印指定的工作表，然后关闭文件。

EXCEL VBA代码如下：

Sub myprint()
Dim file$, folder$, wb As Workbook
folder = "D:\mywbooks\"
file = Dir(folder & "*.xlsx") ’如有其他后辍，可以使用Dir(folder & "*.xls*")
Do While file <> ""
Set wb = GetObject(folder & file)
wb.Worksheets("sheet1name").PrintOut
wb.Worksheets("sheet2name").PrintOut
wb.Close
set wb=nothing
file = Dir
Loop
End Sub

或者使用如下方法：

Sub myprint()
Dim file$, folder$, wb As Workbook, sht As Worksheet
folder = "D:\mywbooks\"
file = Dir(folder & "*.xlsx") '如有其他后辍，可以使用Dir(folder & "*.xls*")
Do While file <> ""
With Workbooks.Open(folder & file)
For Each sht In .Sheets
If sht.Name = "sheet1name" Or sht.Name = "sheet2name" Then sht.PrintOut
Next sht
.Close
End With
file = Dir
Loop
End Sub

要解决的问题：同一个文件夹有多个工作簿，工作簿中有相同格式的多个sheet表，其中有两个固定的SHEET需要打印（所有EXCEL工作簿表格中两个固定SHEET的名字相同）。每次打开这么多文档，再将表格一个个打印很繁琐，有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容？解决思路：1、将要打印的工作簿放在同一个文件夹内，如：D:\mywbooks\2、使用dir在文件夹中遍历文件，然后打开工作簿，再打印指定的工作表，然后关闭文件。EXCELVBA代码如.

我们在工作中经常会打印东西，会手动设置一些参数，如横向或竖向打印等。了解下PageSetup属性，用简短的几行代码设置好打印参数，便可以设置一次，永久使用，方便高效。 PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。下例将打印方向设置为横向，然后打印工作表。 With Worksheets("Sheet1") .PageSetup...

Dim File As Variant Dim aFile As Variant '数组，提取文件名fileName时使用 '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant Dim i As Integer File = Application.GetOpenFilename(" Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件对话框 If File &lt...

在 EXCEL 中,对数据进行定位操作,必然要用到数据区域的最大行和最大列,代码如下: columnmax = Range("IV1").End(xlToLeft).Column '取得1行的最大列数 columnmax =cells(i,columns.count).end(xltoletf).column 'i行的最大列数 rowmax = Sheet1.Range(...

用易语言在 excel 表格中读取数据，单个range直接使用ranges.读属性 (“Value”, )就可，多个ranges采用变体变量存储后，用循环方式读出数据。至于要返回文本数组，整数数组，或者文本，全凭个人喜好，但在易语言中，最好操作的当属文本型，所以文例主要使用文本型，其他类型的请对照修改。具体见如下代码： .版本 2 .支持库 spec .子程序单元格区域...

一维数组可以通过这样一行代码来整体赋值：arr = Array("你", "我", "他", "1", "2", "3", "aa", "bb", "cc")那么，如果想给二维数组采用类似的方法来整体赋值，要怎么办呢？ arr=array("你", "我", "他" ;"1", "2", "3" ; "aa", "bb", "cc")，好像不行。一番搜索，网上给出的答案有如下：第一种：使用[{}]将字符串括起来,字符串行间用分号（；）分割，列间用逗号（，）分割： arr = [{"你", "..

好的，我可以为您解答。那么您的问题是如何使用 VBA 批量替换所有工作簿中的括号。首先，您需要打开 VBA 编辑器，并在其中创建一个新的模块。在该模块中，您可以使用以下代码来批量替换所有工作簿中的括号： Sub ReplaceBrackets() Dim wb As Workbook Dim ws As Worksheet Dim cell As Range For Each wb In Application.Workbooks For Each ws In wb.Worksheets For Each cell In ws.UsedRange If InStr(1, cell.Value, "(") > 0 Then cell.Value = Replace(cell.Value, "(", "[") End If If InStr(1, cell.Value, ")") > 0 Then cell.Value = Replace(cell.Value, ")", "]") End If Next cell Next ws Next wb End Sub 该代码将遍历所有打开的工作簿和工作表，并查找其中的括号。如果找到了括号，则将其替换为方括号。请注意，此代码将替换所有括号，包括公式中的括号。如果您只想替换文本中的括号，可以添加一个额外的条件来检查单元格是否包含公式： If cell.HasFormula = False Then '执行替换操作 End If 希望这可以帮助您解决问题。如果您有任何其他问题，请随时问我。