vba复制一个工作簿编码

VBA复制工作簿的代码如下：

Sub CopyWorkbook()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    wb.SaveCopyAs "C:\Users\UserName\Documents\CopyOfWorkbook.xlsm"
End Sub

在上面的代码中，ThisWorkbook 表示当前工作簿，SaveCopyAs 方法用于复制当前工作簿并保存到指定的路径。您可以修改路径以适合您的需求。