请教数据库生成个人信息表

lele1102

大侠好，要从第一个工作表里的数据库生成n个第二个工作表的个人详细信息表。求大侠帮忙！谢谢！

lele1102

在论坛里找到一个将员工信息表生成简历表的文件，参考这个文件，自己实践了一下，但是vlookup后，没有内容的部分单元格里却显示0，怎么设置成vlookup后有内容就显示，没内容就不显示？谢谢！

蓝云today

利用邮件合并功能可以实现，要求的表格在word里面，自己往excel里面导入即可

201228

坐等大神回复！！！！！！！！！！！！

lele1102

蓝云today 发表于 2016-2-27 09:06
利用邮件合并功能可以实现，要求的表格在word里面，自己往excel里面导入即可

谢谢，我找时间学一下。

lele1102

蓝云today 发表于 2016-2-27 09:06
利用邮件合并功能可以实现，要求的表格在word里面，自己往excel里面导入即可

谢谢，我找时间学一下。

c271884788

这个用VBA，做一个小的sub可以搞定，大体思路，有多少人就循环多少次，每次从花名册将一行的数据抽取为一个数组，然后打开个人信息空表，将数组内数据一一对应的赋值在个人信息表内，最后用SAVEAS保存为个人姓名即可
我做过一个类似的小sub
Sub FBBG()

Dim i As Integer
Dim sName As String
For i = 2 To 146 Step 1       '花名册内从第几行到第几行

Dim myarray    '定义数组
    myarray = Range(Cells(i, 1), Cells(i, 14))                   '从单元格提取数组，从第几列到第几列，我这里是1到14列
Workbooks.Open "C:\Documents and Settings\Administrator\桌面\花名册\个人简历.xls"    '打开需填表格
    Sheets("附件1").Range("b3") = myarray(1, 1)   '根据实际情况填写对应关系，可将sheets（）括号内修改为实际的表名，range（）括号内是个人信息的表格内的单元格 ，这里我这句话的意思是个人信息表B3里填充花名册内第一列的数据，下面的语句都一样，有多少个需要填的就对应写几句
    Sheets("附件1").Range("d3") = myarray(1, 2)
    Sheets("附件1").Range("b4") = myarray(1, 3)
    Sheets("附件1").Range("d6") = myarray(1, 5)
    Sheets("附件1").Range("d8") = myarray(1, 4)
    Sheets("附件1").Range("d9") = myarray(1, 7)
    Sheets("附件1").Range("b9") = myarray(1, 6)
    Sheets("附件1").Range("b10") = myarray(1, 8)
    Sheets("附件1").Range("d10") = myarray(1, 10)
    Sheets("附件1").Range("d11") = myarray(1, 11)
    Sheets("附件1").Range("b12") = myarray(1, 13)
    Sheets("附件2").Range("b4") = myarray(1, 1)
    Sheets("附件2").Range("f4") = myarray(1, 2)
    Sheets("附件2").Range("c5") = myarray(1, 3)
   
    sName = myarray(1, 2)                  '提取名字，这里是提取数组内姓名的内容，便于在下面将填写好的个人信息表另存为个人的名字
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\花名册\个人\" & sName & ".xls"   '另存为姓名为名的个人信息表，路径根据实际情况更改即可
    ActiveWorkbook.Close (True)
    Next


End Sub

kevin2k17

感觉用vlookup函数能做好

jscjch

  学习学习，谢谢！

qiaowei361

不错！！！