根据资料库建立工作薄（有难度）

zmc159

资料.rar (3.4 KB, 下载次数: 15)

2015-7-26 16:24 上传

点击文件名下载附件

根据学生的资料库，给每一个学生建立档案（新工作薄）

新工作薄命名为 序号+名字
工作薄中添加信息

朋友说涉及到宏，我不会啊 求指教~ 万分感谢

爱疯

Sub test()
    Dim A, p, f, i
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    A = Sheets(1).Range("a1").CurrentRegion
    p = ThisWorkbook.Path & "\"

    For i = 2 To UBound(A)
        f = Format(A(i, 1), "000") & "-" & A(i, 2)
        With Sheets(2)
            .[a1].CurrentRegion.Replace "XX", A(i, 2)
            .Copy
        End With

        With ActiveWorkbook
            .SaveAs p & f
            .Close
        End With
    Next i
End Sub

学生库2.rar (8.95 KB, 下载次数: 5)

2015-7-27 10:31 上传

点击文件名下载附件


表格改了下，可以吗