sjpk13.3.0.2养老版本

yancr

该版本号的sjpk主要是联网认证授权，请先运行批处理禁网，然后直接运行软件。经测试不会清除数据。


导出的课表学校名为空白，如需要添加校名可使用下面VBA(WPS个人版不支持)代码。

Sub SJPK()
    Dim jpg As Shape
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A33").Merge
        ws.Range("A3").HorizontalAlignment = xlLeft
        ws.Range("A3").Value = "XXX学校"
        For Each jpg In ws.Shapes
            If jpg.Type = 13 Then
                jpg.Delete
            End If
        Next jpg
    Next ws
End Sub

附件下载：

51ed

感谢提供资源

dpxqs

谢谢分享了

duo5

感谢分享！

liu0263

感谢分享

jxzzhome

导出校名处是空的图片还是真无校名单元格？

yancr

jxzzhome:导出校名处是空的图片还是真无校名单元格？ (2025-12-11 15:12) 

图片，可以用VBA代码批量清除，并添加学校名称。

雄霸天下

谢谢分享

zwjboai

导出的校名位置本来都是图片，13.32弄得无校名也只是校名位置没有文字，图片依然存在，13.98版导出的也只有图片的，只是没有校名文字了，图片变得最小了，一个字的高度，宽度最窄罢了，而13.32的图片占了好几个字的宽度。这是原软件设计的原因，破解对这一点没有改动。

jxzzhome

zwjboai:导出的校名位置本来都是图片，13.32弄得无校名也只是校名位置没有文字，图片依然存在，13.98版导出的也只有图片的，只是没有校名文字了，图片变得最小了，一个字的高度，宽度最窄罢了，而13.32的图片占了好几个字的宽度。这是原软件设计的原因，破解对这一点没有改动。 (2025-12-11 15:45) 

S大的13.98导出无图片，可以全选所有工作表进行单元格合并哈