Þetta Excel fjölvi gerir þér kleift að senda skráarslóð til að meta hvort skráin sé þar. Til dæmis gætirðu verið með ferli sem vinnur með skrá einhvers staðar á tölvunni þinni. Til dæmis gætir þú þurft að opna fyrirliggjandi vinnubók til að bæta gögnum við hana daglega. Í þessu tilviki gætirðu þurft að prófa til að sjá hvort skráin sem þú þarft að vinna sé til.
Hvernig macro virkar
Það fyrsta sem þarf að taka eftir um þetta fjölvi er að það er fall, ekki Sub aðferð. Með því að gera þetta fjölvi að aðgerð gerir þér kleift að senda hvaða skráarslóð sem er til hans.
Í þessu fjölvi notarðu Dir fallið, sem skilar streng sem táknar nafnið á skránni sem passar við það sem þú sendir til hennar. Þessi aðgerð er hægt að nota á marga vegu, en hér notarðu hana til að athuga hvort skráarslóðin sem þú sendir til hennar sé til:
Aðgerð FileExists(FPath As String) Sem Boolean
'Skref 1: Lýstu breytunum þínum
Dimmt FName sem strengur
'Skref 2: Notaðu Dir aðgerðina til að fá skráarnafnið
FName = Dir(FPath)
'Skref 3: Ef skrá er til, skilaðu True; annars rangt
Ef FName <> " Þá er FileExists = True _
Annað: FileExists = False
Lokaaðgerð
Skref 1 lýsir yfir String breytu sem geymir skráarnafnið sem skilar frá Dir fallinu. FName er heiti String breytunnar.
Í skrefi 2 reynirðu að stilla FName breytuna. Þú gerir þetta með því að senda FPath breytuna í Dir fallið. Þessi FPath breyta er send í gegnum fallyfirlýsingarnar (sjá fyrstu línu kóðans). Þessi uppbygging kemur í veg fyrir að þú þurfir að harðkóða skráarslóð og senda hana sem breytu í staðinn.
Ef ekki er hægt að stilla FName breytuna er slóðin sem þú fórst ekki til. Þannig er FName breytan tóm. Skref 3 þýðir aðeins að niðurstaðan sé sönn eða ósönn.
Aftur er hægt að nota þessa aðgerð til að meta hvaða skráarslóð sem þú sendir til hennar. Þetta er fegurðin við að skrifa makróið sem fall.
Eftirfarandi fjölvi sýnir hvernig á að nota þessa aðgerð:
Sub Macro1()
If FileExists("C:TempMyNewBook.xlsx") = True Þá
MsgBox "Skrá er til."
Annar
MsgBox "Skrá er ekki til."
End If
End Sub
Hvernig á að nota macro
Til að útfæra þetta fjölvi geturðu afritað og límt báða kóðastykkin í venjulega einingu:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11.
Hægrismelltu á heiti verkefnis/vinnubókar í verkefnaglugganum.
Veldu Insert→ Module.
Sláðu inn eða límdu kóðann í nýstofnaða einingu.