09 2023 档案

利用控件生成二维码
摘要：Sub 生成二维码() Dim wb As Workbook Dim sht As Worksheet Set wb = Application.ThisWorkbook Set sht = wb.Worksheets(1) 'Randomize With sht '删除旧条码控件 .Shapes. 阅读全文
posted @ 2023-09-03 23:49 wangway 阅读(47) 评论(0) 推荐(0)