? Du skal vide, hvordan du kan afgøre , om Microsoft Excel kører , hvis du vil være at udvikle applikationer ved hjælp af Visual Basic for Applications ( VBA ), der vil bruge Microsoft Excel som en udgang til dine data. Den hurtigste måde at afgøre, om et program kører i VBA er gennem objektvariabler . Disse objektvariabler er i stand til at binde til Excel ved at bruge " Excel.Application " programmatisk id. Instruktioner
1
Launch Microsoft Word, skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VBA Editor. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte et nyt modul
2
Føj følgende kode til at oprette en ny procedure : .
Private Sub IsExcelOpen () On Error GoTo Err_IsExcelOpen :
3
Kopier og indsæt følgende kode til at afgøre, om Excel allerede kører : Hej
Dim xlsObject Som ObjectSet xlsObject = GetObject ( " Excel.Application " ;) Hvis ( xlsObject = "Microsoft Excel " ) ThenMsgBox " Excel kører! " End If
4
Kopier og indsæt følgende kode for at fange en fejl, hvis Excel ikke kører og frigivelse objektet fra hukommelse, der blev oprettet i det forrige trin : Hej
Set xlsObject = NothingExit_IsExcelOpen : Exit SubErr_IsExcelOpen : Hvis Err.Number = 429 ThenMsgBox " Excel kører ikke ! " End IfSet xlsObject = NothingEnd Sub < br >
5
Start Microsoft Excel og trykke på " F5 " for at køre proceduren. Du vil modtage en besked om, at Excel kører. Luk Excel og køre proceduren igen for at modtage en besked, Excel ikke kører.