Kjo makro Excel ju lejon të kaloni një shteg skedari për të vlerësuar nëse skedari është aty. Për shembull, mund të keni një proces që manipulon një skedar diku në kompjuterin tuaj. Për shembull, mund t'ju duhet të hapni një libër pune ekzistues për të shtuar të dhëna në të çdo ditë. Në këtë rast, mund t'ju duhet të provoni për të parë nëse skedari që duhet të manipuloni ekziston.
Si funksionon makroja
Gjëja e parë që duhet vënë re në lidhje me këtë makro është se është një funksion, jo një procedurë nën. Duke e bërë këtë makro një funksion ju mundëson të kaloni çdo shteg skedari tek ai.
Në këtë makro, ju përdorni funksionin Dir, i cili kthen një varg që përfaqëson emrin e skedarit që përputhet me atë që i kaloni. Ky funksion mund të përdoret në shumë mënyra, por këtu, ju e përdorni për të kontrolluar nëse shtegu i skedarit që kaloni tek ai ekziston:
Funksioni FileExists (FPath si varg) Si Boolean
'Hapi 1: Deklaroni variablat tuaja
Dim FName si varg
'Hapi 2: Përdorni funksionin Dir për të marrë emrin e skedarit
FName = Dir(FPath)
'Hapi 3: Nëse skedari ekziston, kthejeni True; tjetër E rreme
Nëse FName <> " Atëherë FileExists = E vërtetë _
Tjetër: FileExists = False
Funksioni i Fundit
Hapi 1 deklaron një variabël String që mban emrin e skedarit që kthehet nga funksioni Dir. FName është emri i ndryshores String.
Në hapin 2, ju përpiqeni të vendosni ndryshoren FName. Ju e bëni këtë duke kaluar variablin FPath në funksionin Dir. Kjo ndryshore FPath kalon përmes deklaratave të funksionit (shih rreshtin e parë të kodit). Kjo strukturë ju pengon të kodoni një shteg skedari, duke e kaluar atë si një variabël.
Nëse ndryshorja FName nuk mund të vendoset, rruga që keni kaluar nuk ekziston. Kështu, ndryshorja FName është bosh. Hapi 3 thjesht e përkthen atë që rezulton në një shprehje të vërtetë ose të rreme.
Përsëri, ky funksion mund të përdoret për të vlerësuar çdo shteg skedari që kaloni tek ai. Kjo është bukuria e shkrimit të makro si funksion.
Makroja e mëposhtme tregon se si të përdoret ky funksion:
Nën makro1()
Nëse FileExists ("C:TempMyNewBook.xlsx") = E vërtetë atëherë
MsgBox "Skedari ekziston."
Përndryshe
MsgBox "Skedari nuk ekziston."
Fundi Nëse
Fundi Nën
Si të përdorni makro
Për të zbatuar këtë makro, mund të kopjoni dhe ngjitni të dy pjesët e kodit në një modul standard:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.
Zgjidhni Fut → Modul.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.