使用VBA将Excel工作表替换为其他文件中的工作表

Sub ReplaceWorksheet()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源文件路径")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标文件路径")
    
    ' 获取源工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    
    ' 获取目标工作表
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    ' 将目标工作表替换为源工作表
    targetWorksheet.Cells.ClearContents
    sourceWorksheet.Cells.Copy Destination:=targetWorksheet.Cells
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
    
    ' 释放对象
    Set sourceWorksheet = Nothing
    Set targetWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
End Sub