Excel VBA将工作表另存为Excel文件并覆盖文件

保存覆盖不提示

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="d:\工作簿3.xlsx"

剩下的自己录制即可。

 

举例：

Export Worksheet

Option Explicit

Sub exportSheet()
    
    Const FolderPath As String = "C:\Test\"
    Const FileName As String = "ART.xlsx"
    Const SheetName As String = "Master List"
    
    On Error Resume Next
    Workbooks(FileName).Close
    On Error GoTo 0
    
    With ThisWorkbook
        Application.ScreenUpdating = False
        .Sheets(SheetName).Copy
        With ActiveWorkbook
            Application.DisplayAlerts = False
            .SaveAs FolderPath & FileName, xlOpenXMLWorkbook ' 51 (.xlsx)
            Application.DisplayAlerts = True
            .Close False
        End With
        ' Open Folder Path in Windows File Explorer.
        '.FollowHyperlink FolderPath
        '.Close
        Application.ScreenUpdating = True
    End With
    
End Sub