- 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
来源: http://www.phpxs.com/code/1008758/