如何把一个工作表的数据导入另一个工作表并打印

liangvictor

例如一个工作表1第一行中从左到右记录了某某的姓名、性别、出生年月、住址、工作单位等信息。每一行记录一个人，很多人就很多行了。工作表2是一个制好了的表，有很多项目，包括姓名、性别、出生年月、住址、工作单位等等，并留有空的单元格待导入数据，例如姓名后面就有一个空的单元格，整张表就像我们平时拿到穿的申请表一样，要我们把资料写上去。现在资料已在工作表1中写好了，现在就要把相应的数据导入工作表2，工作表1中一行的数据导入工作表2中就生成一个人的资料并打印，不知怎样可以自动把所有人的资料导入并打印出来，请指教。 AXPX9Y9c.rar (32.81 KB, 下载次数: 236)

2008-5-21 12:39 上传

点击文件名下载附件
如何把一个工作表的数据导入另一个工作表并打印

[此贴子已经被作者于2008-5-21 12:39:35编辑过]

jssy

发个附件吧！

liangvictor

上传了附件,请大家帮帮忙呀.

zly19880808

可使用Word的邮件合并功能实现所需

jwb444

1、一个工作表作数据库，一个工作表作模板。

2、将数据库的一条记录中的数据按要求提取到模板，再进行打印。

3、在模板的打印区域外选一单元格（如“A1”），作为要打印数据库中记录的行数。

4、在模板中指定其单元格等于数据库中的行（步骤3A1格的值）与要求的列为交叉点的单元格。

当A1格输入了有效的数字后，模板立即就显示要打印的内容了。

[此贴子已经被作者于2008-5-21 14:57:03编辑过]

liangvictor

菜鸟,还是不懂,希望能具体点呀.

[em06]

csd3111

有同样的需求,5楼的似乎从模板到表容易实现,在模板里输入,体现到表里面,而现在需要反过来.高手能解决不胜感激.最好能批量打印.很实用的哦!

csd3111

原帖由 zly19880808 于 2008-5-21 12:49 发表
可使用Word的邮件合并功能实现所需

对的,这是很好的方法!

jwb444

仅供参考！ 模板及打印.rar (10.18 KB, 下载次数: 298)

2008-11-13 14:42 上传

点击文件名下载附件

1、建如附件的两工作表
2、在“模板”工作表中建两按钮“输入”与“打印”
3、编辑宏并将相应的按钮指定相应的宏
代码如：
Sub 输入()

    Set sjk = Sheets("数据库")
    If [b4] = "" Then
        MsgBox "请输入姓名！"
        End
    End If
    a = 2
    While sjk.Cells(a, 1) <> ""
        a = a + 1
    Wend
    sjk.Cells(a, 1) = [b4]
    sjk.Cells(a, 2) = [d4]
    sjk.Cells(a, 3) = [f4]
    sjk.Cells(a, 4) = [f5]
    sjk.Cells(a, 5) = [b6]
    sjk.Cells(a, 6) = [b5]
    sjk.Cells(a, 7) = [h4]
    d = MsgBox("保存！", vbOKCancel)
    If d = vbOK Then
        [b4] = ""
        [d4] = ""
        [f4] = ""
        [f5] = ""
        [b6] = ""
        [b5] = ""
        [h4] = ""
    Else
        End
    End If
   
End Sub

Sub 打印()
   
    If [e2] = "" And [g2] = "" Then End
    n1 = [e2]
    n2 = [g2]
    If [e2] <> "" And [g2] <> "" And [g2] < [e2] Then
        a = n2 - n1
        b = n1
    ElseIf ([e2] <> "" And [g2] <> "" And [e2] = [g2]) Or [e2] = "" Or [g2] = "" Then
        a = 1
        If n1 = "" Then
            b = n2
        Else
            b = n1
        End If
    End If
    For i = 1 To a
        [b4] = ""
        [d4] = ""
        [f4] = ""
        [f5] = ""
        [b6] = ""
        [b5] = ""
        [h4] = ""
        [b4] = sjk.Cells(b, 1)
        [d4] = sjk.Cells(b, 2)
        [f4] = sjk.Cells(b, 3)
        [f5] = sjk.Cells(b, 4)
        [b6] = sjk.Cells(b, 5)
        [b5].NumberFormatLocal = "@"
        [b5] = sjk.Cells(b, 6)
        [h4] = sjk.Cells(b, 7)
        d = MsgBox("打印！", vbOKCancel)
        If d = vbCancel Then End
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        b = b + 1
    Next
    MsgBox "打印完毕！"
   
End Sub

無喆

看的还是一头雾水，难道小弟真的资质愚钝？