你懂的 > 科技 > 正文

我需要打印一个文件夹里多个我需要的excel文件(近百个,格式一样)如何调整打印设置?(我需要打印一个文件夹里多个excel文件(近百个,格式一样)如何调整打印

JEANETTE 科技 2021-08-07 19:12:56

我需要打印一个文件夹里多个我需要的excel文件(近百个,格式一样)如何调整打印设置?(我需要打印一个文件夹里多个excel文件(近百个,格式一样)如何调整打印设置)

我需要打印一个文件夹里多个excel文件(近百个,格式一样)如何调整打印设置

Sub 批量打印设置()

    Dim lj

    Set objShell = CreateObject("Shell.Application")

    Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)

    If objFolder Is Nothing Then

        MsgBox "未选择文件夹"

        Exit Sub

    End If

    lj = objFolder.self.Path

    If Right(lj, 1) <> "\" Then

        lj = lj & "\"

    End If

    Set objFolder = Nothing

    Set objShell = Nothing

    myFile = Dir(lj & "*.xls")

    While myFile <> ""

        Workbooks.Open lj & myFile

        '这里放入打印设置代码,可通过录制宏来自动生成,然后拷贝到此处

        ActiveWorkbook.Close 1

        myFile = Dir

    Wend

End Sub

我需要打印一个文件夹里多个excel文件(近百个,格式一样),如何调整页面设置,要详细一些

直接用分页预览,拉伸打印边框就可以了。如果大小都是A4的话这个方法是比较快捷的。

我需要打印一个文件夹里多个excel文件(近千个,格式一样)如何调整页面设置.发到769274601口口邮箱里。谢谢

是要用到宏

你可以到

excel吧去寻找帮助的帖子

你好,我需要把一个文件夹里面的几百个Excel文件打印格式批量调整

这个需要编写宏来实现,你先打开一个文件,把需要进行的操作录制一个宏,假设叫【宏1】,然后按照我下面的代码编写【宏2】并执行即可:

Sub 宏2()

    Dim wb as WorkBook, ph$, fn$

    ph = "C:\" '你可能需要修改这个为你的文件所在位置

    fn = Dir(ph & "*.xls*")

    While fn<>""

        Set wb=WorkBooks.Open(ph & fn)

        Call 宏1

        wb.Save

        wb.Close

        fn=Dir

    Wend

End Sub

Tags: 格式