注意:上述代码只支持单次输入一个Sheet名字并打印。如果您需要输入多个Sheet名字并打印,您可以考虑让用户以某种格式(如逗号分隔)输入所有名字,并在代码中用Split函数将字符串拆分为数组,然后遍历这个数组来执行相同的操作。 为了支持多个Sheet名字的输入,您可以修改代码如下: vba Sub PrintMultipleSelectedSheets() Dim
1 打开需要获取工作表名的Excel，按下Alt+F11，进入VBA编辑界面，如下图所示。2 编写代码如下图所示：Sub 获取工作簿所有工作表名()For i = 1 To Sheets.Count sheetname = Worksheets(i).Name Debug.Print sheetnameNextEnd Sub代码的作用是从第一个工作表名到最后，将工作表名输出在立即...
程序1: Sub PrintMultiSheets() Dim vwksList As Variant vwksList = Array("Sheet1","Sheet3") ThisWorkbook.Sheets(vwksList).PrintOut End Sub 代码打印指定的工作表,其中,指定要打印的工作表名作为Array函数的参数。 程序2: Sub PrintAllSheets() Dim strWks...
1 以下是需要打印的第一张表单，之前由于早中班，需要打印两页，现在只开一班了，仅需打印首页；2 以下是需要打印的第二张表单，这张表单由于记录较多，占用了两页，都是需要打印的；3 后续还有十几份表单，打印页码，打印份数各有差异。总之，逐次点选，输入页码、份数，再打印，的确比较繁琐。使用VBA代码编程...
Dim printSheetName As String ' 设置需要双面打印的工作表名称 printSheetName = "Sheet1" ' 将"...
1 列出所有工作表名称 代码 Sub Print_Sheet_Names()Dim i As Integer For i = 1 To Sheets.Count Cells(i, 1).Value = Sheets(i).Name Next i End Sub 示例 2 在VBA中插入不同的颜色索引 代码 Sub Insert_Different_Colours()Dim i As Integer For i = 1 To 56 Cells(i, 1).Value = i Cel...
VBA 命令 Set printsheet 命令的问题 VBA 命令 Set printsheet = Application.ThisWorkbook.Worksheets("请假单存储表"),其中"请假单存储表",不是确定的 是以 M17单元的数值为要保存的表页名 比如 M17的值是 107 也有对应的表页名称是107 如何操作 你没说M17单元格是在那
Sub 打印文件夹下所有文件所有工作表() 'On Error Resume Next Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Application.ScreenUpdating = False '关闭屏幕刷新 Application.DisplayAlerts = False '关闭提示 If MsgBox("需要操作的数据表是:EXCEL2003 格式,请选择:是!" & Chr(13) & "" & ...
Sub PrintHiddenSheets()Dim wSheet As WorksheetDim CurStat As VariantFor Each wSheet In ActiveWorkbook.WorksheetsIf Not wSheet.Visible ThenCurStat = wSheet.VisiblewSheet.Visible = xlSheetVisible‘打印预览,如果要打印用 wSheet.PrintOutwSheet.PrintPreviewwSheet.Visible = CurStatEnd IfNextEnd Sub...
（4）直接打印，循环ListBox，根据选择的科目，调用SelectData过程，PrintSheet过程。（5）生成表格，循环ListBox，根据选择的科目，调用SelectData过程，CopyWorksheet过程。2、myModule模块：Public DbFile As StringPublic StrCnn As StringPublic cnn As ObjectPublic rs As ObjectPublic SQL As StringPublic AccCode ...