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
用户登录
还没有账号?立即注册
用户注册
投稿取消
文章分类: |
|
还能输入300字
上传中....