[Cthulu23]

Zna ktoś jakieś makro, które eksportowałoby jeden arkusz z pliku i zapisywałoby go w określonej lokacji ze stałą nazwą + dzisiejsza data?
#programowanie #vba #excel #pytanie #kiciochpyta

[Orwell1984]

@Cthulu23

Stwórz sobie macro które będzie najpierw tworzyć pusty arkusz excela pod dana nazwa (możesz użyć dla ulawtwienia nazwy z komórki w której będzie pobierana aktualna data) a później będzie do niego kopiować zadany arkusz.

[Cthulu23]

@Orwell1984: o, to brzmi okej

[ak1r4]

@Cthulu23: Ja przy takich okazjach korzystam z takiego template'a

Sub Macro1()
'Step 1 Copy the data
Sheets("Sheet1").Range("B4:C15").Copy
'Step 2 Create a new workbook
Workbooks.Add
'Step 3 Paste the data
ActiveSheet.Paste Destination:=Range("A1")
'Step 4 Turn off application alerts
Application.DisplayAlerts = False
'Step 5 Save the newly created workbook
ActiveWorkbook.SaveAs _
Filename:="C:TempMyNewBook.xlsx"
'Step 6 Turn application alerts back on
Application.DisplayAlerts = True
End Sub

[Cthulu23]

@ak1r4: dziękuje!

[Polinik]

@Cthulu23:
A z datą w nazwie pliku i bez kodu VBA:

Sub Zapisz()

Dim nazwapliku As String
nazwapliku = ThisWorkbook.Path & "\Archiwum\Stan_ " & Format(Now, "dd-mm-yy hh-mm-ss") & ".xlsx"

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=nazwapliku, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Tylko sobie zmodyfikuj, żeby zapisywało jeden arkusz a nie cały skoroszyt.

[Cthulu23]

@Polinik: dziękuje, tego właśnie mi brakowało

[kartoflusmenus]

http://tinytask.eu