yancr 发表于 2025-12-11 13:51:13

sjpk13.3.0.2养老版本

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


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

Sub SJPK()
    Dim jpg As Shape
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
      ws.Range("A3:D3").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 发表于 2025-12-11 13:56:13

感谢提供资源

dpxqs 发表于 2025-12-11 14:18:26

谢谢分享了

duo5 发表于 2025-12-11 14:19:06

感谢分享！

liu0263 发表于 2025-12-11 14:39:58

感谢分享

jxzzhome 发表于 2025-12-11 15:12:44

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

yancr 发表于 2025-12-11 15:20:55

回 jxzzhome 的帖子

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

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

雄霸天下 发表于 2025-12-11 15:26:10

谢谢分享

zwjboai 发表于 2025-12-11 15:45:06

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

jxzzhome 发表于 2025-12-11 15:47:42

回 zwjboai 的帖子

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

S大的13.98导出无图片，可以全选所有工作表进行单元格合并哈
页: [1] 2 3
查看完整版本: sjpk13.3.0.2养老版本