问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

我有1000个excel表格,每个excel表都有两个sheet,如何批量操作,打印时只打印sheet1?

发布网友 发布时间:2022-05-03 00:40

我来回答

4个回答

热心网友 时间:2023-10-10 04:29

附件已写好宏,可以实现按文件夹(含所有子文件夹)打印和按文件清单打印的功能:

1. 操作界面如图:

2. 代码如下,可以自行制作宏文件:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim iPath As String, i As Long

Dim t

Dim PathLen As Integer

Dim RunSignal As Variant, Reply As Variant

Dim Tr As Single, Tc As Single


    Tr = Target.Row

    Tc = Target.Column

    If Tr = 1 Then

        If Tc = 1 Then

            RunSignal = "List"

            Reply = MsgBox("This operation will print out files listed in column A! Please make sure your print setting is excellent enough!", vbOKCancel, "Warning")

            If Reply = vbCancel Then

            Exit Sub

            End If

        ElseIf Tc = 3 Then

            RunSignal = "Folder"

            Reply = MsgBox("This operation will list all files in specified folder first. And then, print out! Please make sure you choosed the right folder!", vbOKCancel, "Warning")

            If Reply = vbCancel Then

            Exit Sub

            End If

        Else

            Exit Sub

        End If

    Else

        Exit Sub

    End If

    

t = Timer

Application.ScreenUpdating = False

    If RunSignal = "List" Then

        GoTo Line1

    ElseIf RunSignal = "Folder" Then

        ActiveSheet.UsedRange.Offset(1, 2).ClearContents

    End If

    

    With Application.FileDialog(msoFileDialogFolderPicker)

        .Title = "Select a folder please!"

        If .Show Then

            iPath = .SelectedItems(1)

            PathLen = Len(iPath)

        Else

            Exit Sub

        End If

    End With

    

    If iPath = "False" Or Len(iPath) = 0 Then Exit Sub

        i = 1

        Call GetFolderFile(iPath, i)

Line1:  Call PrintFiles(RunSignal)

    MsgBox "Completed in " & Int((Timer - t) / 3600) & " hours " & Int(((Timer - t) Mod 3600) / 60) & " minutes " & (Timer - t) Mod 60 & " seconds!", vbOKOnly, "Time record"

Application.ScreenUpdating = True

End Sub


Private Sub GetFolderFile(ByVal nPath As String, ByRef iCount As Long)

Dim iFileSys


Dim J As Single

Dim Process As Variant, P As Integer

Dim ProcessLen As Integer


Set iFileSys = CreateObject("Scripting.FileSystemObject")

Set ifolder = iFileSys.GetFolder(nPath)

Set sfolder = ifolder.SubFolders

Set ifile = ifolder.Files

    

    

    With ActiveSheet

        For Each gfile In ifile

            

            If gfile.Type Like "*Excel*" And Not gfile.Path Like "*~$*" Then

            .Cells(iCount + 1, 3) = gfile.Path

            .Cells(iCount + 1, 4) = gfile.DateLastModified

            .Cells(iCount + 1, 5) = gfile.parentfolder

            .Hyperlinks.Add anchor:=.Cells(iCount + 1, 6), Address:=gfile.Path, TextToDisplay:=gfile.Name

            

            iCount = iCount + 1

            End If

        Next

       

    End With

      

    For Each nfolder In sfolder 'Search all the folders

        Call GetFolderFile(nfolder.Path, iCount)

    Next

End Sub



Sub PrintFiles(ByVal RunSignal As Variant)


Dim Wb As Workbook

Dim Sho As Worksheet

Dim Fs As Single, FCount As Single, C As Single


Application.DisplayAlerts = False


Set Sho = ActiveSheet

If RunSignal = "List" Then

    C = 1

ElseIf RunSignal = "Folder" Then

    C = 3

End If


FCount = Sho.Cells(10000, C).End(xlUp).Row


If FCount <= 2 Then

    MsgBox ("Nothing can be printed!")

    Exit Sub

Else

    For Fs = 2 To FCount

        Set Wb = Workbooks.Open(Sho.Cells(Fs, C).Text)

        Wb.Sheets(1).PrintOut

        Wb.Close savechanges = False

    Next

End If


Application.DisplayAlerts = True


End Sub

3. 想要现成文档可以在这个链接下载启用宏的文档

4. 没有CSDN积分的可以发消息给我用百度网盘下载,就是要收费喔!

热心网友 时间:2023-10-10 04:30

编写好

Excel怎样批量打印多个工作簿(文件)的每个表

热心网友 时间:2023-10-10 04:30

这是别人的,你改一改就能用有备注
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Wb As Workbook '定义一个wb工作簿变量
On Error Resume Next '容错
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
'多选
.Filters.Clear
'清除文件过滤器
.Filters.Add ".Excel文件", "*.xlsx"
.Filters.Add ".Excel文件", "*.xlsm"
.Filters.Add ".Excel文件", "*.xls"
.Filters.Add "全部文件", "*.*"
'设置两个文件过滤器
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
Set Wb = Workbooks.Open(.SelectedItems(i))
Wb.Sheets(1).PageSetup.PrintArea = Wb.Sheets(1).Range("A1:S35") '设置打印区域
Wb.Sheets(1).PrintOut copies:=1, from:=1, to:=1
Wb.Close
Next
Set Wb = Nothing
End If
End With
Application.ScreenUpdating = True
End Sub

热心网友 时间:2023-10-10 04:31

下载方方格子插件,批量打印
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
人教版小学英语课本哪里能下载到MP3 小学英语同步听力音频去哪里找 去陆丰旅行,要提前做好什么准备? 请教高手:苹果6s能不能安装两个微信?谢谢指点! 对于一个在女性内衣店工作的男性,你们怎么看待 ...湖是世界最深和蓄水量最大的咸水湖 B.死海是世界最低点 C.马来群 ... ...世界最大的湖泊___世界上人口最多的国家___世界上面积最大... 世界最深和蓄水量最大的湖是什么?世界最低点是哪?世界面积最大的高原... 尚赫净水器滤芯 如何清洗尚赫 电信光猫单口无线功能光猫不可以装? excel2007怎么批量打印?能个我vba? 如何运用VBA把EXCEL批量打印同一个文件夹内的所有文件打印指定的工作表 电信光纤猫四口的好还是单口的好啊? 请问如何根据Excel表里指定的名称,通过宏批量打印同一文件夹内相对应名称的图片文件? 求用EXCEL宏批量打印的代码 ,步骤很简单,跪求代码。。。 跪求excel里批量打印宏代码 苹果救援电子邮件怎么填 作文一篇令我快乐的事三百字左右 四川省自考本科取得学士学位证后可以考幼儿教师编制吗?自考本科取得学士学位证和本科毕业证后可以报考小_百度问一问 谁能告诉我:蓝牙名字的由来? 救援电子邮件地址怎么写 苹果手机ID设置里面的救援电子邮件怎么写 初一新生学习计划书和刚刚入学的心的体会 5小时要,麻烦高手!! 初一学习计划书 如何写 初一学习计划书 初一开学的学习计划书怎么写? 初一学生怎么写个人计划书 谁加入英雄连抵抗前线QQ群??? 初一学生计划书50字 电信单口光猫安装电视80%该怎么解决 Excel Vba批量打印! 电信光猫连接路由器后又怎样使用光猫的无线? excel批量打印宏 电信中兴F460光猫 更换成单口拨号猫 是否影响网速 excel宏语句,查询、调用,打印 在excel里打印,给录制的宏添加循环语句实现批量打印 电信送的光猫怎么设置之后才能手机也好上网? 电信光猫只支持50m,加个路由器可以支持100m吗? 这个是在电信办的单光纤买的,电信说是光猫,请问到底是不是? 电信送的光猫有无线功能,怎么知道这光猫有没有双频功能和802.11n功能? 我抽到观音第二十签求财运怎么解? 求解香港黄大仙第二十签:天上仙花难问种,人间尘事几多更,前程已注公私簿,赏罚分明浊与情 求解观音灵签第二十签 观音签第20签是什么意思 欲行欲止不知踪,禽入林中难遂逢,难得之时还易就,须知分外总成空.第二十签,求财签,请高手解签 观音灵签的1-20签 观音20签问感情,谢谢!!! 求解签。第二十签。当春久雨等开晴,玉兔金鸟渐渐明,旧事消隔新事遂,欣然一跃跳龙门。解曰:神佛护持... 南山灵签婚姻第二十签是什么意思?欲去长江水茫茫,行舟把定未遭风.只为用心再作福,必见鱼水得相连.