求大神帮忙修改代码，当前sheet另存为工作薄

lyp10258

Dim WithEvents app As Application

Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    If Wb.Name = ThisWorkbook.Name Then Exit Sub
    app.DisplayAlerts = False
    Wb.SaveAs Filename:="D:\" & Format(Now, "hhmmss") & [P5] & ".xls", FileFormat:=xlNormal
    Wb.Close
End Sub

Private Sub Workbook_Open()
    Set app = Excel.Application
End Sub

这是附件里面的加载宏，现在代码效果为：工作薄整个另存为工作薄。
想实现效果当前sheet另存为工作薄，求大神帮忙。

加载宏0115.rar (10.89 KB, 下载次数: 4)

2020-1-15 14:47 上传

点击文件名下载附件

lyp10258

求大神帮忙

lyp10258

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
都显示错误

大雪了无痕

表格是不是有什么问题？打开以后看不到任何的工作表

lyp10258

大雪了无痕 发表于 2020-1-16 10:32
表格是不是有什么问题？打开以后看不到任何的工作表

这是加载宏文件