Piilotettujen Excel-istuntojen sulkeminen VBA: ssa

Microsoft Office -ohjelmiston kanssa toimivat sovelluskehittäjät voivat käynnistää yhden Office-tuotteen toisesta. Esimerkiksi, jos sinä tai joku yrityksesi ohjelmoijista käyttää Visual Basic for Applicationsin CreateObject-toimintoa avataksesi Excelin PowerPointista tai Wordista, Excel toimii piilotetussa tilassa, ellet aseta sen sovellusta. Kun ohjelmointi tehdään toisessa Office-sovelluksessa, saatat haluta sulkea piilotetut Excel-istunnot, jotka saattavat olla käynnissä. Voit tehdä sen kirjoittamalla lyhyen VBA Sub -työn, joka suorittaa tämän tehtävän.

1.

Käynnistä PowerPoint, Excel tai muu Office-sovellus. Avaa “Visual Basic” -editori painamalla “Alt F11”. Luodaan VBA Sub-sovelluksen, joka etsii ja sulkee piilotetut Excel-sovellukset.

2.

Napsauta ”Lisää” ja valitse ”Moduuli”, jos haluat lisätä uuden moduulin projektiin.

3.

Liitä seuraava koodi muokkausikkunaan:

Sub CloseExcel () Dim sovellus objektina

Dim closeApp kuten merkkijono Dim appToClose As String appToClose = "Excel.exe" Aseta sovellus = CreateObject ("Excel.Sheet") app.Application.Visible = True

MsgBox "Excel-objekti luotu"

AppToClose-muuttujalla on suljettavan sovelluksen nimi. Sen arvo on tässä tapauksessa "Excel.exe". CreateObject-toiminto luo uuden Excel-objektin. App.Application.Visible-lause asettaa objektin näkyvyyden "True". Näin voit nähdä Excel-ikkunan, kun se avautuu. Lopullinen lausunto näyttää viestiruudun, jossa kerrotaan, että Excel-objekti on auki.

4.

Liitä alla oleva koodi edellisessä vaiheessa luetellun koodin jälkeen:

closeApp = "taskkill / f / im" + appToClose Shell closeApp, vbHide MsgBox "Excel-objekti suljettu" End Sub

Taskkill on toiminto, joka tappaa käynnissä olevan prosessin. Viimeisessä rivissä näkyvä Shell-lauseke käynnistää tehtäväpalkin ja sulkee sovelluksen, joka on nimetty appToClose-muuttujassa.

5.

Suorita koodi painamalla "F5". Se käynnistää uuden Excel-ikkunan ja pop-up-sanoman sanotaan: "Excel-objekti on luotu." Klikkaa "OK" -näppäintä jatkaaksesi. Loput koodin suorittaa ja sulkee Excel-ikkunan.

 

Jätä Kommentti