excel模仿word邮件合并输出xls文件或打印
- 作者: 你的网名那么丶
- 来源: 51数据库
- 2022-08-17
Sub print() for i= range("k6") to range("k7") range("m3")=i activeSheet.printout next i End Sub Sub copybook() Dim cb As String For ii = 1 To 100 cb = Right(Str(100 + ii), 3) ActiveWorkbook.SaveAs Filename:="D:\01\" & cb & ".xls", FileFormat:=xlNormal,_ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Next ii End Sub
推荐阅读