Delila_1
2010.09.07
|
|
0 0
12736
|
A Today helyett lehet használni a Date belső változót, így nincs szükség sem a helyfoglalásra, sem a formátum megadására. A Date formátuma "yyyy.mm.dd." , ponttal a végén, ami a mentési formátumon is módosít, a kiterjesztés hozzáfűzését nem ponttal kell kezdeni.
Sub Masol() Dim Path As String, FileName As String Path = "E:Eadat" 'itt add meg a saját elérési utat Range("H3:H200").Copy Range("C3:C200") 'itt megváltoztathatod a tartományt FileName = Path & "Leltár_" & Date & "xls" ActiveWorkbook.SaveAs FileName:=FileName, FileFormat _ :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End Sub
|
Előzmény: Törölt nick (12735)
|
|