Un dels usos més avantatjosos d'Excel VBA en el nostre dia a dia és que podem comprovar si existeix un fitxer a la nostra màquina o no l'utilitzem. En aquest article, us mostraré com podeu comprovar si un fitxer existeix o no als nostres ordinadors mitjançant Excel VBA .

Codi VBA per comprovar si un fitxer existeix o no (ràpid Visualitza)

7666

Baixa el quadern de pràctiques

Baixa aquest quadern de pràctiques per fer exercici mentre llegeixes aquest article.

Visió general del codi VBA per comprovar si un fitxer existeix o no (anàlisi pas a pas)

Per tant, sense més demora, anem a la nostra discussió principal d'avui. Desglossarem el codi VBA pas a pas per saber com comprovar si un fitxer existeix o no als nostres ordinadors.

⧪ Pas 1: inserint el necessari Entrada

Al principi del codi, hem d'inserir-hi l'entrada necessària. Només hi ha una entrada necessària en aquest codi, i aquest és el nom del fitxer que estem buscant. Inseriu el nom complet del fitxer (juntament amb el directori associat).

5973

⧪ Pas 2: extreu el nom del fitxer amb la funció VBA Dir

A continuació, farem servir un petit truc. Utilitzarem la VBA Funció Dir per extreure el nom del fitxer. Si no existeix aquest fitxer, la funció Dir retornarà una cadena nul·la.

6677

⧪Pas 3: comproveu si el fitxer existeix mitjançant un If-Block

Aquest és el pas més important. Hem dit anteriorment que si no existeix cap fitxer amb el nom donat, la funció Dir retorna una cadena nul·la. Utilitzarem aquesta propietat dins d'un If-block per comprovar si el fitxer existeix o no.

9251

Així que el VBA serà:

⧭ Codi VBA:

5499

⧭ Sortida:

Executeu el codi. Al meu ordinador, es mostrarà un quadre de missatge, “El fitxer existeix” , perquè realment existeix a la meva màquina.

A la vostra màquina, la sortida pot ser diferent en funció de si el fitxer existeix o no.

Llegir més: Excel VBA: comproveu si existeix un full (2 mètodes simples)

Desenvolupament d'una macro per comprovar l'existència d'un rang de fitxers o no utilitzant Excel VBA

Aquí tenim un conjunt de dades en un full de treball d'Excel que conté el nom d'alguns fitxers. amb els directoris en el rang B4:B8 .

El nostre objectiu és desenvolupar una macro que escrigui Exist / Doesn't Exist al costat de cadascun d'ells després de comprovar si existeixen o no a l'ordinador.

⧪ Pas 1: obrir la finestra de VBA

Premeu ALT + F11 al teclat per obrir la finestra Visual Basic .

⧪ Pas 2: inserir un mòdul nou

Vés a Insereix > Mòdul a la barra d'eines. Feu clic a Mòdul . Un nou mòdul anomenatS'obrirà el Mòdul 1 (o qualsevol altra cosa que depengui del vostre historial passat).

⧪ Pas 3: Posar el codi VBA

Aquest és el pas més important. Inseriu el codi VBA següent al mòdul.

⧭ Codi VBA:

3061

⧪ Pas 5: executant el codi

Feu clic a l'eina Executar sub/Formulari d'usuari de la barra d'eines de dalt.

El codi s'executarà. I obtindreu “Existeix” per als fitxers que existeixen i “No existeix” per als fitxers que no existeixen.

Llegir més: Com comprovar si el valor existeix a l'interval a Excel (8 maneres)

Conclusió

Per tant, aquest és el procés per desenvolupar una Macro per enviar un correu electrònic des d'Excel amb un fitxer adjunt. Té vostè alguna pregunta? No dubteu a preguntar-nos. I no us oblideu de visitar el nostre lloc ExcelWIKI per obtenir més publicacions i actualitzacions.