? Excel 2010 kommer med Visual Basic for Applications ( VBA ) , som är ett enkelt programmeringsspråk som du kan använda för att manipulera din Excel-kalkylblad . VBA kan också utföra några enkla datoruppgifter , som att öppna eller ändra en angiven fil . Om din Excel VBA-kod måste arbeta med filer , kan det vara till hjälp för att avgöra om en fil existerar innan koden försöker köra . Du kan ställa in en VBA -funktion för att söka efter filen existens , och sedan anropa funktionen när du behöver leta efter en fil . Instruktioner
1
Öppna ett nytt Excel 2010 -kalkylblad . Tryck på " Alt " och " F11 " för att öppna VBA -konsolen .
2
Högerklicka på " Blad1 " på vänster sida av konsolen . Flytta musen över " Insert " på popup-menyn och välj " Modul . " Dubbelklicka på modulen som visas i listan över objekt på vänster sida av skärmen . Addera 3
Klicka på det tomma utrymmet på höger sida av VBA -konsolen . Skriv in följande kod :
Funktion checkfile ( filnamn As String ) As Boolean
checkfile = ( Dir ( filename ) < > " " ) katalog
End Function
Detta kommer att skapa en funktion som heter " checkfile " som du kan ringa från andra delar av VBA-kod . Funktionen är Boolean eftersom den ger antingen ett ja eller nej , och det kräver att du anger ett filnamn när du anropar funktionen . Funktionen kommer att använda " Dir " -kommandot för att sätta filen i minnet . Om filen inte finns där , kommer kommandot dir returnera en tom post och " Checkfile " kommer att vara falsk .
4
Tryck " Enter " för att komma till en ny rad nedanför den funktion du just skapade . Skriv följande kod :
Sub Filetest ( ) katalog p Om checkfile ( " c : \\ screenshot1.bmp " ) Sen
MsgBox " Japp "
Else
MsgBox " Nope "
End If
End Sub
p Detta är bara ett enkelt makro som kommer att använda din Checkfile funktion och returnera en " Yup "eller" Nej "-meddelande , beroende på om filen finns eller inte. Ändra " C : \\ screenshot1.bmp " till vad filen du söker efter . Klicka på den gröna " Play " -knappen i VBA : s befäl bar att köra makrot och kontrollera filens existens .
