Amikor az Excel-munkafüzetek automatikus megnyitásán gondolkodik, gondolja át, mi történhet, ha egy már nyitva lévő könyvet próbál megnyitni. A nem VBA világban az Excel megpróbálja újra megnyitni a fájlt, és a megjelenő üzenet figyelmezteti, hogy a nem mentett módosítások elvesznek. Az ilyen esetek ellen úgy védekezhet, hogy az újbóli megnyitás előtt ellenőrzi, hogy egy adott fájl nyitva van-e már.
Kerülje el ezt a figyelmeztető üzenetet.
Az első dolog, amit észre kell venni ezzel a makróval kapcsolatban, hogy ez egy függvény, nem pedig egy aleljárás. Amint látni fogja, a makró funkcióvá tétele lehetővé teszi, hogy bármilyen fájlnevet átadjon neki, hogy tesztelje, hogy az adott fájl már nyitva van-e.
Ennek a kódnak a lényege egyszerű. Egy adott fájlnevet tesztel, hogy megtudja, hozzárendelhető-e egy objektumváltozóhoz. Csak a megnyitott munkafüzetek rendelhetők objektumváltozóhoz. Amikor egy zárt munkafüzetet próbál hozzárendelni a változóhoz, hiba történik.
Ha az adott munkafüzet hozzárendelhető, a munkafüzet nyitva van; hiba esetén a munkafüzet bezárul.
Függvény FileIsOpenTest(TargetWorkbook As String) Logikai értékként
'1. lépés: Deklarálja a változókat
Dim tesztfüzet munkafüzetként
'2. lépés: Mondja meg az Excelnek, hogy hiba esetén folytassa
Hiba esetén Folytatás a következővel
'3. lépés: Próbálja meg hozzárendelni a célmunkafüzetet a TestBookhoz
Tesztkönyv beállítása = Munkafüzetek (Célmunkafüzet)
4. lépés: Ha nem történt hiba, a munkafüzet már meg van nyitva
Ha Err.Number = 0 Akkor
FileIsOpenTest = Igaz
Más
FileIsOpenTest = Hamis
Vége Ha
Funkció befejezése
A makró első dolga, hogy deklarál egy String változót, amely tartalmazza a felhasználó által választott fájlnevet. A TestBook a String változó neve.
A 2. lépésben közli az Excellel, hogy hiba lépett fel a kód futtatásakor, és hiba esetén folytatja a kód futtatását. E sor nélkül a kód egyszerűen leállna, ha hiba történik. Ismét tesztel egy adott fájlnevet, hogy megnézze, hozzá lehet-e rendelni egy objektumváltozóhoz. Ha az adott munkafüzet hozzárendelhető, akkor nyitva van; ha hiba történik, akkor bezárul.
A 3. lépésben megpróbálja hozzárendelni az adott munkafüzetet a TestBook Object változóhoz. A hozzárendelni kívánt munkafüzet egy TargetWorkbook nevű karakterlánc-változó. A TargetWorkbook átadásra kerül a függvénynek a függvénydeklarációkban (lásd a kód első sorát). Ez a struktúra kiküszöböli a munkafüzet nevének kemény kódolását, lehetővé téve helyette változóként történő átadását.
A 4. lépésben egyszerűen ellenőrizze, nem történt-e hiba. Ha nem történt hiba, a munkafüzet meg van nyitva, ezért a FileIsOpenTest értékét igazra kell állítani. Ha hiba történt, a munkafüzet nincs megnyitva, és a FileIsOpenTest értékét False értékre állítja.
Ez a függvény is felhasználható bármely fájl kiértékelésére, amelyet a TargetWorkbook argumentumán keresztül továbbít neki. Ez a makró funkcióba helyezésének szépsége.
A következő makró bemutatja ennek a funkciónak a megvalósítását. Itt hívja meg az új FileIsOpenTest függvényt, hogy megbizonyosodjon arról, hogy a felhasználó nem tud megnyitni egy már megnyitott fájlt:
Almakró1()
'1. lépés: Határozzon meg egy String változót
Dim FName Változatként
Dim FNFileOnly As String
'2. lépés: A GetOpenFilename Method aktiválja a párbeszédpanelt
FName = Application.GetOpenFilename( _
FileFilter:="Excel-munkafüzetek,*.xl*", _
Title:="Válasszon munkafüzetet a megnyitáshoz", _
MultiSelect:=False)
'3. lépés: Nyissa meg a kiválasztott fájlt, ha még nincs megnyitva
Ha FName <> False Akkor
FNFileOnly = StrReverse(Left(StrReverse(FName), _
InStr(StrReverse(FName), ") - 1))
Hogyan lehet megakadályozni, hogy a Microsoft Word csak olvasható módban nyissa meg a fájlokat Windowson A Microsoft Word csak olvasható módban nyitja meg a fájlokat, így lehetetlenné teszi a szerkesztést? Ne aggódjon, a módszerek az alábbiakban találhatók
A nem megfelelő Microsoft Word dokumentumok nyomtatásának hibáinak kijavítása Meglehetősen gyakoriak a megváltozott betűtípusú, rendetlen bekezdésekkel, hiányzó szöveggel vagy elveszett tartalommal rendelkező Word dokumentumok nyomtatásának hibái. Azonban ne
Ha prezentáció közben a tollat vagy a kiemelőt használta a PowerPoint diákra való rajzoláshoz, mentheti a rajzokat a következő bemutatóhoz, vagy törölheti őket, így a következő bemutatáskor tiszta PowerPoint diákkal kezdheti. Kövesse az alábbi utasításokat a toll- és kiemelőrajzok törléséhez: A vonalak törlése egyenként […]
A Stíluskönyvtár CSS-fájlokat, XSL-fájlokat, valamint előre meghatározott mesteroldalak, oldalelrendezések és vezérlők által használt képeket tartalmaz a SharePoint 2010-ben. A CSS-fájlok megkereséséhez a közzétételi webhely stíluskönyvtárában: Válassza a Webhelyműveletek→Nézet lehetőséget. A webhely összes tartalma. Megjelenik az oldal tartalma. A Style könyvtár a […]
Ne árassza el közönségét óriási számokkal. A Microsoft Excelben javíthatja irányítópultjai és jelentései olvashatóságát, ha a számokat több ezerben vagy millióban formázza.
Ismerje meg, hogyan használhatja a SharePoints közösségi hálózati eszközöket, amelyek lehetővé teszik az egyének és csoportok közötti kommunikációt, együttműködést, megosztást és kapcsolódást.
A Julian-dátumokat gyártási környezetekben gyakran használják időbélyegként és gyors hivatkozásként a tételszámhoz. Az ilyen típusú dátumkódolás lehetővé teszi a kiskereskedők, fogyasztók és szervizek számára, hogy azonosítsák a termék elkészítésének időpontját, és ezáltal a termék korát. A Julian-dátumot a programozásban, a katonaságban és a csillagászatban is használják. Különböző […]
Létrehozhat webalkalmazást az Access 2016-ban. Tehát mi az a webalkalmazás? Nos, a web azt jelenti, hogy online van, az alkalmazás pedig az „alkalmazás” rövidítése. Az egyéni webalkalmazás egy online adatbázis-alkalmazás, amely a felhőből, böngészővel érhető el. Ön elkészíti és karbantartja a webalkalmazást az asztali verzióban […]
A SharePoint 2010 legtöbb oldala a navigációs hivatkozások listáját jeleníti meg az oldal bal oldalán található Gyorsindító sávon. A Gyorsindító sáv hivatkozásokat jelenít meg a kiemelt webhelytartalomra, például listákra, könyvtárakra, webhelyekre és közzétételi oldalakra. A Gyorsindító sáv két nagyon fontos hivatkozást tartalmaz: Az összes webhelytartalom linkje: A […]
Egyszerű problémák esetén az Excelben található Megoldó rendszerint gyorsan megtalálja a célfüggvény optimális Megoldóváltozó-értékeit. Bizonyos esetekben azonban a Solver nehezen találja meg a Solver változó értékeit, amelyek optimalizálják a célfüggvényt. Ezekben az esetekben a Solver általában egy üzenetet vagy hibaüzenetet jelenít meg, amely leírja vagy megvitatja a […]
