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
推荐阅读
