Cuprins:
Video: The Great Gildersleeve: Marjorie's Boy Troubles / Meet Craig Bullard / Investing a Windfall 2024
Acest macro Excel vă permite să transmiteți o cale de fișier pentru a evalua dacă fișierul este acolo. De exemplu, este posibil să aveți un proces care manipulează un fișier undeva pe PC. De exemplu, este posibil să fie necesar să deschideți un registru de lucru existent pentru a adăuga date la acesta zilnic. În acest caz, poate fi necesar să testați dacă fișierul pe care trebuie să îl manipulați există.
Cum funcționează macro-ul
Primul lucru pe care trebuie să-l observați despre această macrocomandă este că este o funcție, nu o procedură Sub. Efectuarea acestei funcții macro vă permite să transmiteți orice cale de fișier către ea.
În această macrocomandă, utilizați funcția Dir, care returnează un șir care reprezintă numele fișierului care se potrivește cu ceea ce îi transmiteți. Această funcție poate fi utilizată în mai multe moduri, dar aici puteți să o verificați dacă calea de fișier pe care o transmiteți există:
Funcție FileExists (FPath As String) Ca Boolean 'Pasul 1: Declarați variabilele Dim FName As String 'Pasul 2: Folosiți funcția Dir pentru a obține numele fișierului FName = Dir (FPath)' Pasul 3: Dacă există fișier, întoarceți True; altfel Fals Dacă FName "Atunci FileExists = True _ Else: FileExists = False End Function
Pasul 1 declară o variabilă String care deține numele fișierului care revine din funcția Dir.FName este numele variabilei String
! - 2 ->În pasul 2, încercați să setați variabila FName.Acest lucru se face prin trecerea variabilei FPath la funcția Dir.Această variabilă FPath este trecută prin declarațiile de funcții (vedeți prima linie a)
Dacă variabila FName nu poate fi setată, calea pe care ați trecut-o nu există, deci FName Variabila este goala Pasul 3 traduce numai rezultatul intr-o expresie adevarata sau falsa
Din nou, aceasta functie poate fi folosita pentru a evalua orice cale de fisier pe care o transmiteti.
Următorul macro demonstrează modul de utilizare a acestei funcții:
Sub Macro1 () Dacă FileExists ("C: TempMyNewBook.xlsx") = True Atunci MsgBox există "Fișierul există". Else MsgBox "Fișierul nu există." Sfârșit Dacă Sfârșit Sub
Cum se utilizează macro
Pentru a implementa această macrocomandă, puteți copia și lipi ambele bucăți de cod într- modul standard:
-
Activați Editorul Visual Basic apăsând Alt + F11.
-
Faceți clic dreapta pe numele proiectului / al cărții din fereastra proiectului.
-
Selectați Insert → Module.
-
Introduceți sau lipiți codul în modulul nou creat.