makro excell

Private Sub SaveWorkbookAsNewFile(NewFileName As String)
Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String

Application.ScreenUpdating = False ' Prevents screen refreshing.

CurrentFile = ThisWorkbook.FullName

NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
"Excel Files 2007 (*.xlsx), *.xlsx," & _
"All files (*.*), *.*"

NewFile = Application.GetSaveAsFilename( _
InitialFileName:=NewFileName, _
fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
ActiveWorkbook.SaveAs Filename:= NewFile, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

Set ActBook = ActiveWorkbook
Workbooks.Open CurrentFile
ActBook.Close
End If

Application.ScreenUpdating = True
End Sub

Diky, ale pozeram na to . . . je to OK? mam otvoreny excelovsky subor, v nom 3 listy . . . potrebujem ulozit napr. len druhy list ako samostatny subor . . . tuto sa mi to zda ze mi to ulozi otvoreny subor . . . cize mal by som v novo ulozenom zase vsetky tri listy . . . momentalne nemam moznost to odskusat, preto sa pre istotu pytam . . . inac dik

Tak skús pozrieť sem: www.rondebruin.nl, nie som "makro guru"...

Nebo koukni zde