批量调整相似表格并A5纸打印

行走的螺丝钉

请教各位大神：
       文件下多张格式相似电子表格，如何用宏或VBA批量处理表格并A5纸打印。（图1修改前，图2修改后，4589为表格名称简化）
要求：
1.金额下方生成合计数，（每张表格行数不同，希望合计数在金额列下方）
2.表头希望加上表格名称（表格名称样式：1000004596，数字不一定都是连续的）
3.打印纸张大小A5，横向

表格样式

行走的螺丝钉

以下为附件

3190496160

1、说是多张格式相同的表格，但是，上传的附件却只有一张表格，别人给你代码来，你自己能够针对你实际的文件修改调整吗
2、表头希望加上表格名称（表格名称样式：1000004596，数字不一定都是连续的），这句话究竟是什么意思？一头雾水哟

行走的螺丝钉

3190496160 发表于 2023-7-14 15:50
1、说是多张格式相同的表格，但是，上传的附件却只有一张表格，别人给你代码来，你自己能够针对你实际的文 ...

你好大神，已做修改，请查询！

3190496160

行走的螺丝钉 发表于 2023-7-14 16:20
你好大神，已做修改，请查询！

2、表头希望加上表格名称（表格名称样式：1000004596，数字不一定都是连续的），这句话究竟是什么意思？

行走的螺丝钉

3190496160 发表于 2023-7-14 18:43
2、表头希望加上表格名称（表格名称样式：1000004596，数字不一定都是连续的），这句话究竟是什么意思？

1000004597  1000004598   1000004600    1000004602   这种

3190496160

Sub 批量处理()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        mc = Split(wb.Name, ".")(0)
        With wb.Worksheets(1)
            rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(rs, 4) = "合计："
            .Cells(rs, 5).FormulaR1C1 = "=SUM(R[-" & rs - 3 & "]C:R[-1]C)"
            .[a1] = "凭证详细明细表" & mc
        End With
        wb.Close True
    End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "处理完毕！"
End Sub

3190496160

3190496160

1000004596 (3).rar (35.06 KB, 下载次数: 1)

2023-7-17 09:23 上传

点击文件名下载附件

3190496160

一些细节不明确，代码仅供参考，实在不行，可以加v