Sellest artiklist õpime, kuidas Microsoft Excel 2010 -s VBA abil sulgeda töövihikut.
Kui teie VBA makro / kood on teinud kõik nõutavad toimingud, soovite, et makro faili kas salvestaks või jätaks selle salvestamata. Nii et siin on valikud, mida saate koodi sisestada, paludes sellel faili sulgeda. Töövihikute sulgemiseks ja avamiseks saab kasutada VBA suletud ja avatud meetodit.
Kui soovite, et kood lihtsalt sulgeks faili ilma muudatusi salvestamata - kasutage seda rida koodi lõpus või kõikjal, kus vaja -
ActiveWorkbook.Close (vale) või ActiveWorkbook. Sulge vale või ActiveWorkbook.CloseSaveChanges: = FALSE
Vaadake alloleval pildil olevat koodi. Koodi kopeerimiseks vajutage klaviatuuril klahve Alt + F11, tagades samal ajal, et Exceli leht on avatud. Seejärel paremklõpsake Microsoft Exceli objekte ja valige Lisa. Seejärel klõpsake moodulil. Kopeerige pildi all olev kood -
Valik Selge
Alammakro1 ()
ActiveWorkbook. Sulge vale
End Sub
Märkus. Saate muuta teksti ActiveWorkbook, et see viitaks töövihiku nimele või muutujale, mida kasutasite oma töö järgi töövihiku tuvastamiseks.
Kui soovite, et kood faili sulgemise ajal muudatused salvestaks, kasutage
ActiveWorkbook. Sulge (tõsi) või ActiveWorkbook. Sulgege tõsi või ActiveWorkbook.Sulge SaveChanges: = TRUE
Siin on kood -
Valik Selge
Alammakro1 ()
ActiveWorkbook. Sulgege tõsi
End Sub
Kui aga soovite, et kasutaja otsustaks, peate lihtsalt sisestama
ActiveWorkbook.Sulge
Siin on kood -
Valik Selge
Alammakro1 ()
ActiveWorkbook.Sulge
End Sub
Kasutaja saab hüpikakna, kus küsitakse, kas ta soovib töövihiku salvestada või mitte.
Töövihikud ("File1.XLS"). Sulge SaveChanges: = False
See näide sulgeb File1.xls ja loobub kõik sellesse tehtud muudatused.
Järeldus:
Kui „Application.DisplayAlerts” on seatud väärtusele Väär, ei saa te hüpikaknaid ja töövihik suletakse otse ilma salvestamist palumata.
See hüpikaken kuvatakse juhul, kui „Application.DisplayAlerts” pole kusagil enne Exceli vba Activeworkbooki seadistatud väärtusele Väär. Sule koodirida.
Nii et isegi kui kood nõuab hoiatuste väljalülitamist, veenduge, et enne rakendust Activeworkbook.Close oleks olemas tekst „Application.DisplayAlerts = True“.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile aadressile -posti sait