În Microsoft Excel, putem verifica dacă fișierul există la o anumită locație folosind codul VBA. Macro-ul va afișa starea sub formă de casetă de mesaje. În acest articol vom identifica, dacă starea unui fișier specific există sau nu, cu ajutorul codului VBA. Putem folosi funcția Dir pentru a verifica dacă fișierul există în locație folosind Excel VBA.
Folosind acest program putem verifica dacă există vreun fișier care există deja în aceeași locație. Deci, putem șterge sau redenumi fișierul vechi.
Întrebare: Când creăm macro pentru automatizarea sarcinii, salvăm în general fișierul de ieșire într-o locație. Aș dori să am o macrocomandă pentru a verifica și în schimb arată că fișierul este disponibil sau nu la calea specifică.
Pentru a ilustra acest exemplu, vom salva fișierul „Sample.xlsx” în calea „D: \ FolderName \ Sample.xlsx”
Pentru a identifica dacă există registrul de lucru, trebuie să urmăm pașii de mai jos pentru a lansa editorul VB:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Faceți clic pe Insert apoi Module
- Aceasta va crea un nou modul
- Introduceți următorul cod în modulul standard
Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir (FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox " Fișierul nu există „Else Workbooks.Open” D: \ FolderName \ Sample.xlsx „End If End Sub
- Acum macro-ul este setat să ruleze, vom folosi tasta de comandă rapidă F5 și se va deschide fișierul „Eșantion”
- Dacă fișierul nu este disponibil pe calea predefinită, se va afișa următoarea casetă de mesaj
Concluzie: În acest fel putem recunoaște cu ușurință dacă un anumit fișier există sau nu pe o cale specifică folosind codul VBA.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail