Aquesta macro d'Excel us permet passar una ruta de fitxer per avaluar si el fitxer hi és. Per exemple, és possible que tingueu un procés que manipuli un fitxer en algun lloc del vostre ordinador. Per exemple, és possible que hàgiu d'obrir un llibre de treball existent per afegir-hi dades diàriament. En aquest cas, potser haureu de provar per veure si el fitxer que heu de manipular existeix.
El primer que cal notar d'aquesta macro és que és una funció, no un procediment Sub. Fer d'aquesta macro una funció us permet passar-hi qualsevol ruta de fitxer.
En aquesta macro, utilitzeu la funció Dir, que retorna una cadena que representa el nom del fitxer que coincideix amb el que li passeu. Aquesta funció es pot utilitzar de moltes maneres, però aquí, la feu servir per comprovar si la ruta del fitxer que hi passeu existeix:
La funció FileExists(FPath As String) com a booleà
"Pas 1: declara les teves variables
Dim FName com a cadena
"Pas 2: utilitzeu la funció Dir per obtenir el nom del fitxer
FName = Dir(FPath)
'Pas 3: si el fitxer existeix, retorneu True; altrament Fals
Si FName <> " Aleshores FileExists = True _
Altrament: FileExists = Fals
Funció final
El pas 1 declara una variable String que conté el nom del fitxer que retorna de la funció Dir. FName és el nom de la variable String.
Al pas 2, intenteu establir la variable FName. Això ho feu passant la variable FPath a la funció Dir. Aquesta variable FPath es passa a través de les declaracions de funció (vegeu la primera línia del codi). Aquesta estructura evita que hàgiu de codificar una ruta de fitxer, passant-la com a variable.
Si la variable FName no es pot establir, el camí que heu passat no existeix. Per tant, la variable FName està buida. El pas 3 només tradueix el resultat a una expressió Vertader o Fals.
Una vegada més, aquesta funció es pot utilitzar per avaluar qualsevol ruta de fitxer que hi passeu. Aquesta és la bellesa d'escriure la macro com a funció.
La macro següent mostra com utilitzar aquesta funció:
Sub macro1()
Si FileExists("C:TempMyNewBook.xlsx") = True Aleshores
MsgBox "El fitxer existeix."
Altrament
MsgBox "El fitxer no existeix."
Acaba si
End Sub
Per implementar aquesta macro, podeu copiar i enganxar ambdues peces de codi en un mòdul estàndard:
Activeu Visual Basic Editor prement Alt+F11.
Feu clic amb el botó dret al nom del projecte/llibre de treball a la finestra del projecte.
Seleccioneu Insereix → Mòdul.
Escriviu o enganxeu el codi al mòdul acabat de crear.
Com bloquejar Microsoft Word d'obrir fitxers en mode de només lectura a Windows Microsoft Word obre fitxers en mode de només lectura, cosa que fa que sigui impossible editar-los? No us preocupeu, els mètodes es mostren a continuació
Com corregir errors en imprimir documents incorrectes de Microsoft Word Els errors en imprimir documents de Word amb tipus de lletra canviats, paràgrafs desordenats, falta de text o contingut perdut són força habituals. No obstant això, no
Si heu utilitzat el llapis o el marcador per dibuixar a les vostres diapositives de PowerPoint durant una presentació, podeu desar els dibuixos per a la següent presentació o esborrar-los de manera que la propera vegada que el mostreu, començareu amb diapositives de PowerPoint netes. Seguiu aquestes instruccions per esborrar dibuixos a llapis i ressaltadors: Esborrant línies una a […]
La biblioteca d'estils conté fitxers CSS, fitxers de llenguatge de full d'estil extensible (XSL) i imatges utilitzades per pàgines mestres predefinides, dissenys de pàgina i controls a SharePoint 2010. Per localitzar fitxers CSS a la biblioteca d'estils d'un lloc de publicació: Trieu Accions del lloc→Visualitza Tot el contingut del lloc. Apareix el contingut del lloc. La biblioteca d'estil es troba a […]
No desbordeu el vostre públic amb números gigantesques. A Microsoft Excel, podeu millorar la llegibilitat dels vostres taulers i informes formatant els vostres números perquè apareguin en milers o milions.
Apreneu a utilitzar les eines de xarxes socials de SharePoints que permeten a persones i grups comunicar-se, col·laborar, compartir i connectar-se.
Les dates julianes s'utilitzen sovint en entorns de fabricació com a marca de temps i referència ràpida per a un número de lot. Aquest tipus de codificació de dates permet als minoristes, consumidors i agents de serveis identificar quan es va fabricar un producte i, per tant, l'antiguitat del producte. Les dates julianes també s'utilitzen en programació, militars i astronomia. Diferents […]
Podeu crear una aplicació web a Access 2016. Què és, de totes maneres, una aplicació web? Bé, web vol dir que està en línia i l'aplicació és només una abreviatura de "aplicació". Una aplicació web personalitzada és una aplicació de base de dades en línia a la qual s'accedeix des del núvol mitjançant un navegador. Creeu i manteniu l'aplicació web a la versió d'escriptori […]
La majoria de les pàgines del SharePoint 2010 mostren una llista d'enllaços de navegació a la barra d'inici ràpid al costat esquerre de la pàgina. La barra d'inici ràpid mostra enllaços al contingut del lloc destacat, com ara llistes, biblioteques, llocs i pàgines de publicació. La barra d'inici ràpid inclou dos enllaços molt importants: Enllaç de tot el contingut del lloc: el […]
Per a problemes senzills, Solver a Excel sol trobar ràpidament els valors òptims de la variable Solver per a la funció objectiu. Però, en alguns casos, Solver té problemes per trobar els valors de la variable Solver que optimitzen la funció objectiu. En aquests casos, Solver normalment mostra un missatge o un missatge d'error que descriu o discuteix el problema que […]
