摘要：表单提交时会将字符等以html实体编码提交,对实体中的String类型的字段进行格式化处理 public static String unescapeHtml(String str) { if (StringUtils.isNotBlank(str)) { str = formatBlank(Str 阅读全文

摘要：1.单元格内图片 Sub dq() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left shp.To 阅读全文

摘要：@echo off :: 设置日期相关变量 set year=%date:~0,4% set month=%date:~5,2% set day=%date:~8,2% set dirName=%year%-%month%-%day% mkdir %dirName% mkdir %dirName%\ 阅读全文

摘要：Private Sub Workbook_Open() Dim se As Worksheet Dim boo As Boolean For Each se In Worksheets Dim HLK As Hyperlink, Rng As Range For Each HLK In se.Hyp 阅读全文