Przenoszenie pliku

Jak szybko przenieść czyli usunąć w jednym miejscu i przenieść w inne miejsce na dysku) plik? Jednym ze  sposobów  jest wykorzystanie obiektu FileSystem.Object.
Służy do tego metoda FileSystem.Object.MoveFile
Ma ona kilka parametrów wejściowych:

    • Object – nazwa obiektu zdefiniowanego jako obiekt FSO. Argument obowiązkowy.
    • Source – nazwa pliku do skopiowania. Argument obowiązkowy, ale dozwolone są znaki zastępcze w nazwie.
    • Destination – nazwa pliku po przeniesieniu. Argument obowiązkowy.

Zarówno stara jak i nowa nazwa pliku musi być pełna czyli z z dokładnym podaniem dysku i katalogu.

Przykładowy kod  może wyglądać tak:

Public Sub PrzeniesPlik()
Dim FSO As Object
Dim StaryPlik As String
Dim
NowyPlik As String
StaryPlik = „C:\Folder1\plik.png”
NowyPlik = „C:\Folder2\plik.png”
Set FSO = CreateObject(„Scripting.FileSystemObject”)
FSO.MoveFile StaryPlik, NowyPlik
Set FSO = Nothing
End Sub

Warto też  wcześniej zwrócić uwagę na sprawdzenie, czy plik do przeniesienia istnieje. Jeżeli nie, to w trakcie wykonywania procedury wystąpi błąd wykonania 53.


Kurs Excel - makra i VBA dla początkujących

 

Funkcja WeekDay

Funkcja WeekDay to jedna z funkcji Daty i Czasu VBA. Zwraca wartość liczbową (od 1 do 7) odpowiadającą numerowi dnia tygodnia.

Argumenty funkcji to:

    • Date– wartość daty (argument obowiązkowy)
    • FirstDayofWeek -pierwszy dzień tygodnia:
      • vbUseSystem lub 0zgodne z ustawieniami systemu komputera
      • vbSunday lub 1 dla ustawień niedziela=1 do sobota=7
              wartość domyślna
      • vbMonday lub 2 dla ustawień poniedziałek=1 do niedziela=7
      • vbTuesday lub 3 dla ustawień wtorek =1 do poniedziałek=7
      • vbWednesday lub 4 dla ustawień środa=1 do wtorek=7
      • vbThursday lub 5 dla ustawień czwartek =1 do środa=7
      • vbFriday lub 6 dla ustawień piątek =1 do czwartek=7
      • vbSaturday lub 7 dla ustawień sobota =1 do piątek=7

Wynikiem działania funkcji jest liczba całkowita 1 do 7 – w zależności od przyjętego argumentu wejściowego.

Odpowiednikiem funkcji w Excelu jest funkcja Dzien.Tyg()


Kurs Makra i VBA w Excelu dla początkujących