[求助]求助高手！！！能否通过VBA代码实现成绩单的生成，并能够批量预览、打印的

顽火的辉石

求助高手，能否实现excel的成绩单数据分类生成word成绩单，插入图片，汇总成绩总和

效果：

3190496160

成绩单放到excel中来做，也许会好弄一点啊，用work文档来做，还得插入照片，恐怕在论坛很难得到解决的

约定的童话

Sub VBA批量插入图片到Word()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim i, m As String, arr, Word As Object, F
    Set Word = VBA.CreateObject("word.application")
    Word.Visible = 1
    F = Dir(ThisWorkbook.Path & "\" & "*.doc")
    Do While F <> ""
        Set Myword = Word.Documents.Open(ThisWorkbook.Path & "\" & F)
        For n = 4 To 7 '根据word实际表格来
            m = Replace(Replace(Replace(Split(Myword.Tables(n).Cell(2, 1).Range, ":")(1), "", ""), " ", ""), Chr(13), "") '提取图片名称
            t = ThisWorkbook.Path & "\图片\" & m & ".jpg" '获得图片路径
            Myword.Tables(n).Cell(1, 1).Range.InlineShapes.AddPicture Filename:=t, LinkToFile:=False, SaveWithDocument:=True '直接插入
            Myword.InlineShapes(n - 3).Height = 280 '调整图片高度
        Next
        Word.Documents.Close True
        F = Dir
    Loop
    Word.Application.Quit
    Set Myword = Nothing
    MsgBox "插入完毕！", 48, "提示！"
End Sub
修改食用...

m_n_j001

试试达人分享的https://club.excelhome.net/thread-1611975-1-1.html
也可以用邮件合并，插入照片也没问题
当然也可以另写VBA来完成

顽火的辉石

m_n_j001 发表于 2022-1-7 10:15
试试达人分享的https://club.excelhome.net/thread-1611975-1-1.html
也可以用邮件合并，插入照片也没问题 ...

邮件合并这个会，但是前提要把一人多条的数据变成一行，这个步骤就复杂多了

顽火的辉石

3190496160 发表于 2022-1-7 09:35
成绩单放到excel中来做，也许会好弄一点啊，用work文档来做，还得插入照片，恐怕在论坛很难得到解决的

有这样想过，不知道有没有大佬能帮忙一下

顽火的辉石

约定的童话 发表于 2022-1-7 10:05
Sub VBA批量插入图片到Word()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = ...

你这是通过VBA插入图片吧

zpy2

顽火的辉石 发表于 2022-1-7 13:03
邮件合并这个会，但是前提要把一人多条的数据变成一行，这个步骤就复杂多了

这样一行吧。

顽火的辉石

zpy2 发表于 2022-1-7 15:38
这样一行吧。

这样子可以，是怎么实现的呢？
能增加一列各个单选的绩点汇总吗？
例如：学术科技 绩点，就业服务 绩点

zpy2

顽火的辉石 发表于 2022-1-7 17:28
这样子可以，是怎么实现的呢？
能增加一列各个单选的绩点汇总吗？
例如：学术科技 绩点，就业服务 绩点 ...

工具链接

你点到这个 word套打原始表，然后 从Excel表格 复制粘贴 数据 ，提交，

生成报表后，

在 Excel 数据>从网页
粘贴这个报表连接

就可以了。