该版本号的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

附件下载：