Avgör om det finns en arbetsbok med VBA i Microsoft Excel

Innehållsförteckning

I Microsoft Excel kan vi kontrollera om filen finns på en specifik plats med hjälp av VBA -kod. Makrot visar statusen i form av meddelanderuta. I denna artikel kommer vi att identifiera, om statusen för en specifik fil finns eller inte, med hjälp av VBA -kod. Vi kan använda Dir -funktionen för att kontrollera om filen finns på plats med hjälp av Excel VBA.

Med hjälp av detta program kan vi kontrollera om det finns någon fil som redan finns på samma plats. Så att vi kan ta bort eller byta namn på den gamla filen.

Fråga: När vi skapar ett makro för att automatisera uppgiften sparar vi i allmänhet utdatafilen på en plats. Jag skulle vilja ha ett makro för att verifiera och i gengäld visa att filen är tillgänglig eller inte på den specifika sökvägen.

För att illustrera detta exempel kommer vi att spara filen "Sample.xlsx" i sökvägen "D: \ FolderName \ Sample.xlsx"

För att identifiera om arbetsboken finns måste vi följa stegen nedan för att starta VB -editor:

  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

  • Klicka på Infoga och sedan Modul
  • Detta skapar en ny modul
  • Ange följande kod i standardmodulen
 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 " Filen finns inte "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub 

  • Nu är makrot klart att köra, vi använder genvägstangenten F5 och filen "Exempel" öppnas

  • Om filen inte är tillgänglig på den fördefinierade sökvägen visas följande meddelanderuta

Slutsats: På detta sätt kan vi enkelt känna igen om en viss fil finns eller inte på en specifik sökväg med VBA -kod.

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.

Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen

Du kommer att bidra till utvecklingen av webbplatsen, dela sidan med dina vänner

wave wave wave wave wave