求助大神，高难度：自动生成报告文档及内容

睿智的元元

太难了，困扰了很久：根据清单内的化验数据，如果单元格有数据，则生产相应的报告，并且报告内容自动生成。

沈默00

去VBA版块发，，，
就是个苦力活

3190496160

Sub 生成实验报告()
Application.ScreenUpdating = False
Dim ar As Variant
With Sheets("清单")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "清单为空！": End
    ar = .Range("a1:p" & r)
End With
Set sh = Sheets("模板")
b = Array(12, 14, 16)
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        zd = ar(i, 2) & " " & ar(i, 3) & " " & ar(i, 4) & " " & ar(i, 7)
        For s = 0 To UBound(b)
            lh = b(s)
            If ar(i, lh) <> "" Then
                mc = ar(1, lh) & " " & zd
                sh.Copy
                Set wb = ActiveWorkbook
                With wb.Sheets(1)
                    .Name = "检验报告"
                    .[b4] = ar(i, 6)
                    .[f4] = ar(i, 3)
                    .[b5] = ar(i, 5)
                    .[f5] = ar(i, 4)
                    .[b6] = ar(i, 7)
                    .[f6] = ar(i, 2)
                End With
                wb.SaveAs Filename:=ThisWorkbook.Path & "\" & mc & ".xlsx"
                wb.Close
            End If
        Next s
    End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

实验室数据.rar (19.91 KB, 下载次数: 6)

2024-7-26 10:24 上传

点击文件名下载附件

睿智的元元

3190496160 发表于 2024-7-26 10:24

感谢大神帮助我。
求教如何使用，里面打开是个模版和数据。

睿智的元元

3190496160 发表于 2024-7-26 10:24

大神，我用宏了。  现在问题是：模板有3个，不只是一个，求求还能再帮帮做成3个的吗？

3190496160

睿智的元元 发表于 2024-7-27 22:07
大神，我用宏了。  现在问题是：模板有3个，不只是一个，求求还能再帮帮做成3个的吗？

呵呵呵，具体是哪三个？只有楼主自己知道呀