Excel文件另存为后格式发生变更，寻求技术解决方案

一、替换复制逻辑，完整保留工作表格式 #

你的代码调用了自定义Copy_sheet_data函数，若该函数仅复制单元格内容，会丢失原表格式、样式、页面设置等信息。可直接复制整个工作表到目标工作簿，完整保留所有格式：

' 替换原有Copy_sheet_data调用，使用以下代码
workbThis.Sheets("Report").Copy Before:=workbtarget.Sheets(1)
' 删除目标工作簿默认的空白工作表
Application.DisplayAlerts = False
workbtarget.Sheets("Sheet1").Delete
Application.DisplayAlerts = True

二、补充分页符设置逻辑 #

代码中定义了PBR数组存储分页符行号，但未实际应用到目标文件。复制完工作表后，添加代码恢复分页设置：

With workbtarget.Sheets("Report")
    .ResetAllPageBreaks ' 清除原有分页符
    For i = 1 To UBound(PBR)
        If PBR(i) > 0 Then
            .HPageBreaks.Add Before:=.Cells(PBR(i), 1)
        End If
    Next i
End With

三、匹配保存格式与需求 #

若原文件是带宏的.xlsm格式，而你保存为无宏的.xlsx，会丢失宏相关格式。需保留宏则修改保存格式：

ActiveWorkbook.SaveAs Filename:="C:\Temp\Report " & Format(Now(), "mm_dd_yyyy_hh") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

四、优化自定义复制函数的格式保留 #

若必须使用Copy_sheet_data函数，修改函数逻辑确保格式被复制：

Sub Copy_sheet_data(SH As String, wbtarget As Workbook, wbThis As Workbook)
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    Set sourceSheet = wbThis.Sheets(SH)
    Set targetSheet = wbtarget.Sheets(1)
    
    ' 复制全部内容、格式和列宽
    sourceSheet.UsedRange.Copy
    targetSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
    targetSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    
    Application.CutCopyMode = False
End Sub

五、移除冗余的激活/选择操作 #

原代码中的Sheets(1).Select和Activate易引发意外问题，改用对象直接操作：

' 替换Sheets(1).Select和Calculate
workbThis.Sheets(1).Calculate

内容的提问来源于stack exchange，提问作者DAYA