如何复制整个工作簿并重命名(急）

wudixin96

vba.FileCopy

zhang880113

wudixin96 发表于 2016-8-9 13:47
vba.FileCopy

老师你好，帮忙写个完整的代码好不，谢谢了！

wudixin96

zhang880113 发表于 2016-8-9 14:20
老师你好，帮忙写个完整的代码好不，谢谢了！

1. VBA.FileCopy "D:\aa.xlsx", "e:\ababaa.xlsx"

复制代码

lsc900707

复制一个或者另存一个重新命名就好，非得弄个代码？

神秘风暴

zhang880113 发表于 2016-8-9 14:20
老师你好，帮忙写个完整的代码好不，谢谢了！

Sub Batch_Copy()
    Dim N
    Set sh = ThisWorkbook.Sheets("目录")
    path1 = ThisWorkbook.Path
    path2 = path1 & "\复制表格\"
    file = path2 & "模板.xlsx"
    N = sh.Cells(Rows.Count, "A").End(xlUp).Row
'    Debug.Print N
    For i = 2 To N
        If sh.Cells(i, 1) <> "" And sh.Cells(i, 2) = "是" Then
            targetfile = sh.Cells(i, 1) & ".xlsx"
            VBA.FileCopy file, path2 & targetfile
        End If
    Next i
    MsgBox "复制完成！"
End Sub