Avatar billede steen_villy Nybegynder
18. september 2003 - 19:38 Der er 9 kommentarer

Hvordan lukker jeg excel.

Hej Experter
Jeg har lavet et lille menu system som kan åbne nogle excel filer jeg ofte skriver ud.
Problemet er hver gang jeg har aktiveret en fil og udskrevet den lukker jeg Excel, men excel bliver liggende som en aktiv proces og jeg kan ikke åbne en ny fil, før jeg har afsluttet excel med ctrl-alt delete /jobliste/processer
Afslut EXCEL.EXE
Håber der er nogen der kan hjælpe mig, da jeg er ret ny i VBA.
MVH Steen H.
Avatar billede Slettet bruger
18. september 2003 - 20:04 #1
Set Excel = Nothing hvor Excel er navnet på din variabel til Excel objektet.
Avatar billede martin_moth Mester
18. september 2003 - 20:16 #2
bertie: Tror ikke der er tale om et Excel objekt - det er vist VBA og ikke VB...

steen: Prøv at vis lidt af din kode
Avatar billede Slettet bruger
18. september 2003 - 20:25 #3
Ja det er altså ikke nemt når vi ikke har en VBA kategori :-)
Men hvad så med Excel.Quit, det burde virke.
Avatar billede steen_villy Nybegynder
18. september 2003 - 22:49 #4
Her er min kode som jeg har lavet i VB 6
---------------------------
Dim sti As String
Dim ex As excel.Application

Private Sub Command1_Click()

If Combo1.Text = "VÆLG Behandlingsprogram" Then
MsgBox "Du skal vælge et behandlingsprogram"
Exit Sub
End If

    sti = "c:\sygepleje\Sygepleje- og behandlingsprogram" & " " & Combo1.Text
     
    Set ex = New excel.Application
   
    Dim work As excel.Workbook
    Workbooks.Open FileName:=sti
    ex.Visible = True
   
End Sub
Avatar billede martin_moth Mester
18. september 2003 - 22:56 #5
set ex = nothing

Evt. ex.close forinden

Hvorfor skriver du at det er VBA når det er VB6.. Hmmmm
Avatar billede steen_villy Nybegynder
18. september 2003 - 23:11 #6
Har prøvet set ex = nothing efter ex visible, virker stadig ikke ex.close understøttes ikke
Avatar billede bak Forsker
19. september 2003 - 09:55 #7
prøv med
ex.quit
Avatar billede martin_moth Mester
19. september 2003 - 09:57 #8
eller .End
Avatar billede bak Forsker
19. september 2003 - 09:58 #9
fik lige trykket send lidt for tidligt. Du mangler et ex foran workbook.open
Set ex = New excel.Application
   
    Dim work As excel.Workbook
    ex.Workbooks.Open FileName:=sti
    ex.Visible = True
    ex.quit
    set ex = nothing
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester