Excel VBA Zapisz jako
Metoda VBA Save As służy do zapisywania pliku Excela w określonej lokalizacji. Aby zapisać skoroszyt za pomocą kodu vba, używamy obiektu Workbook z funkcją SaveAs.
Po całej ciężkiej pracy, jaką wykonaliśmy w zeszycie ćwiczeń, zapisujemy go, prawda? Utrata danych, nad którymi pracowaliśmy, jest bolesna. Mamy dwa rodzaje zapisów w programie Excel lub dowolnym innym pliku; jeden to „Zapisz”, a drugi „Zapisz jako”. Ctrl + S to popularny klawisz skrótu jako Ctrl + C i Ctrl + V na całym świecie. Jednak pojęcie „Zapisz jako” nie jest zbyt znane . W zwykłym arkuszu skrótów klawiszem Zapisz jako plik jest klawisz F12 . Również w VBA możemy zapisać plik jako „ Zapisz jako ”.
Co robi funkcja Zapisz jako VBA?
Jest to ogólne zadanie oszczędzania pracy w procesie automatyzacji. Po zakończeniu pracy chcemy zapisać plik.
Skoroszyty („Sales 2019.xlsx”). Zapisz
Ten kod odczytuje skoroszyt o nazwie „Sales 2019.xlsx”, aby zapisać.
Podobnie, aby powielić skoroszyt, nad którym pracujemy, można utworzyć za pomocą metody „Zapisz jako”.
- Nazwa pliku: Jaka jest nazwa pliku, który chcesz podać. Należy to połączyć ze ścieżką do folderu plików.
- Format pliku: Jaki powinien być format zapisywanego pliku.
- Hasło: Czy chcesz podać hasło do zapisywanego pliku.
- Zapisz hasło rezerwowe : Wspomnij hasło zarezerwowane dla skoroszytu.
Myślę, że te parametry wystarczą do zrozumienia metody Zapisz jako.
Jak korzystać z funkcji Zapisz jako?
Przykład 1
Skoroszyt zapisujemy prawidłowo, dlatego ważne jest, aby podać nazwę skoroszytu i jego rozszerzenie, aby użyć metody Zapisz jako. Więc wspomnij o skoroszycie, który zapisujesz.
Kod:
Sub SaveAs_Example1 () Skoroszyty („Sales 2019.xlsx”). Napis końcowy
Teraz użyj metody Zapisz jako.
Kod:
Sub SaveAs_Example1 () Skoroszyty („Sales 2019.xlsx”). SaveAs End Sub
Teraz określ, gdzie chcesz zapisać.
Kod:
Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: Articles 2019 End Sub
Teraz umieść ukośnik odwrotny i wprowadź nazwę pliku zgodnie z życzeniem z rozszerzeniem pliku.
Kod:
Sub SaveAs_Example1 () Skoroszyty („Sales 2019.xlsx”). SaveAs „D: Articles 2019 My File.xlsx” End Sub
Teraz wspomnij o formacie pliku jako „xlWorkbok”.
Kod:
Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: Articles 2019 My File.xlsx", FileFormat: = xlWorkbook End Sub
OK, gotowe. Zapisuje plik na dysku D> Nazwa folderu (artykuły)> Nazwa podfolderu (2019).
Przykład nr 2
Zapisz wszystkie otwarte skoroszyty
Załóżmy, że pracujesz z 10 skoroszytami na swoim komputerze. Chcesz utworzyć kopię zapasową tych skoroszytów, zapisując je na komputerze jako jedną z kopii. Jeśli chcesz pracować z więcej niż jednym skoroszytem, konieczne jest użycie pętli.
Poniższy kod pomoże Ci zapisać wszystkie skoroszyty jako kopię.
Kod:
Sub SaveAs_Example2 () Dim Wb As Workbook Dla każdego Wb In Workbooks ActiveWorkbook.SaveAs "D: Articles 2019 " & ActiveWorkbook.Name & ".xlsx" 'Zmień ścieżkę do pliku Następny Wb End Sub
Jeśli chcesz wybrać własną ścieżkę do folderu, możesz użyć tego kodu.
Kod:
Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub
Jak tylko uruchomisz ten kod za pomocą klawisza F5 lub ręcznie, poprosi Cię o wybranie ścieżki folderu docelowego, wybierz i kliknij OK. To zapisze plik.
