Avatar billede luke_56 Nybegynder
08. oktober 2008 - 10:14 Der er 6 kommentarer og
1 løsning

Luk Excel 2007 helt ned efter lidt VB kode

Hej

Jeg har et Excel 2007 regneark, som er udviklet af et andet firma, og bruges til at lave nogle rapporter.

Når regnearket åbnes, åbner det automatisk endnu et regneark i baggrunden.

Når brugerne ønsker at lukke regnearket klikker de på X i øverste hjørne. Det resulterede tidligere i at det andet regneark kom frem, til stor forvirring for brugeren for han/hun havde jo kun åbnet et regneark.

Jeg har derfor tilføjet lidt VB kode:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Autoclose report.xls when closing books.xls
Dim wbk As Workbook

For Each wbk In Workbooks
    If wbk.Name = "Report.xls" Or wbk.Name = "Report" Then
        wbk.Close False

    End If
Next wbk

Application.Quit

End Sub

Koden lukker det andet ark (report.xls), men jeg ender nu med en tom excel, som skal lukkes ned. Hvis report.xls ikke er åben lukkes excel helt ned. Det er kun når report.xls er åben, at excel ikke lukkes helt ned.

Hvad gør jeg galt?
Avatar billede excelent Ekspert
09. oktober 2008 - 19:07 #1
prøv

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("Report.xls").Close
End Sub
Avatar billede luke_56 Nybegynder
09. oktober 2008 - 21:56 #2
Resultatet er det samme. En tom Excel der skal lukkes ned.
Avatar billede lerskov Praktikant
14. oktober 2008 - 20:47 #3
Hvad hvis du indsætter dette sidst??

Application.Quit
Avatar billede lerskov Praktikant
14. oktober 2008 - 21:04 #4
Undskyld den havde du jo brugt. Havde ikke fået kopieret hele din kode, med over i VB.
Tænker lige videre.
Avatar billede kabbak Professor
14. oktober 2008 - 23:14 #5
Prøv at droppe Application.Quit, den skulle jo selv lukke, efter at der er trykket på X i øverste hjørne.

Jeg har rettet til i koden


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Autoclose report.xls when closing books.xls
Dim wbk As Workbook

For Each wbk In Workbooks
    If wbk.Name <> ThisWorkbook.Name Then
        wbk.Close False ' lukker alle Workbooks, udentagen den med denne kode i
    End If
Next wbk

End Sub
Avatar billede luke_56 Nybegynder
21. oktober 2008 - 11:17 #6
Resultatet er det samme. En tom Excel der skal lukkes ned.
Avatar billede luke_56 Nybegynder
15. september 2010 - 06:22 #7
Lukker tråden
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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