? Du må vite hvordan du finner ut om Microsoft Excel kjører hvis du kommer til å være å utvikle applikasjoner med Visual Basic for Applications ( VBA ) som vil bruke Microsoft Excel som en utgang for dine data . Den raskeste måten å finne ut om et program kjører i VBA er gjennom objekt variabler . Disse objekt variabler er i stand til å binde seg til Excel ved å bruke " Excel.Application " programmatisk identifikator. Instruksjoner
en
Launch Microsoft Word , klikk på " Developer " og klikk " Visual Basic " for å starte VBA Editor. Klikk på " Insert"-menyen og klikk " Module" for å sette inn en ny modul
2
Legg til følgende kode for å lage en ny prosedyre : .
Private Sub IsExcelOpen ( ) On Error GoTo Err_IsExcelOpen :
3
Kopier og lim inn følgende kode for å finne ut om Excel er allerede kjører : en
Dim xlsObject Som ObjectSet xlsObject = GetObject ( " Excel.Application " ;) Hvis ( xlsObject = "Microsoft Excel ") ThenMsgBox "Excel kjører ! " End If
4
Kopier og lim inn følgende kode for å fange en feil hvis Excel ikke kjører og slipp objektet fra minnet som ble opprettet i forrige trinn : en
Set xlsObject = NothingExit_IsExcelOpen : Exit SubErr_IsExcelOpen : Hvis err.number = 429 ThenMsgBox "Excel kjører ikke ! " End IfSet xlsObject = NothingEnd Sub
5
start Microsoft Excel og trykk " F5 " for å kjøre prosedyren. Du vil motta en melding om at Excel kjører. Lukk Excel og kjøre prosedyren på nytt for å motta en melding Excel kjører ikke.