[已解决]各位大神，我又来求助啦，请问这个是否能用EXCEL实现

shilry

又到了每三年一次的居委主任换届选举，需要手动填写1000多张选票，里面包括：选民姓名   性别  年龄  以及落款：虹日

请问EXCEL能否实现导入数据库后，自动对应数据内容一张张打印，当然还需要设置成填空的内容正好填进选票的空白处，这个我可以自己调整。
如果不能做到的话，请问我可以借助哪个工具？（暂时放上自己辖块一部分供大神参考）

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-30 09:48

Sub test()
    Dim A, i
    A = Sheets(1).Range("a1").CurrentRegion
    With Sheets(2)
        For i = 2 To UBound(A)
            .[e14] = A(i, 2)  '姓名
            .[L14] = A(i, 3)   '性别
            .[e17] = VBA.DateDiff("yyyy", A(i, 4), Now) '年龄
            .PrintOut
        Next i
    End With
End Sub

选票.rar (20.07 KB, 下载次数: 9)

2015-7-30 09:46 上传

点击文件名下载附件


运行后，只会打印3个人，如果没有问题，再把第1工作表的第5行（空行）删除。
删除后，再运行，将打印全部人员。

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i
    A = Sheets(1).Range("a1").CurrentRegion
    With Sheets(2)
        For i = 2 To UBound(A)
            .[e14] = A(i, 2)  '姓名
            .[L14] = A(i, 3)   '性别
            .[e17] = VBA.DateDiff("yyyy", A(i, 4), Now) '年龄
            .PrintOut
        Next i
    End With
End Sub

选票.rar (20.07 KB, 下载次数: 9)

2015-7-30 09:46 上传

点击文件名下载附件


运行后，只会打印3个人，如果没有问题，再把第1工作表的第5行（空行）删除。
删除后，再运行，将打印全部人员。

shilry

感谢~