Avatar billede fanth Nybegynder
22. maj 2008 - 09:28 Der er 6 kommentarer og
1 løsning

Macro to close sheet

Jeg har et ark som henter data fra et andet ark og ligger dette i et array. Koden som åbner fil, henter data og lukker fil ser sådanne ud:

Set xls2 = CreateObject("Excel.Application")
xls2.Workbooks.Open sti + kildeFil
    With xls2
        .ActiveWorkbook.Sheets(sheetName).Activate
       
        Dim myArray1 As Variant
        myArray1 = xls2.Range("A1:BM40000")
    End With

xls2.Application.Quit
Set xls2 = Nothing

Hver gang jeg i koden kommer til "xls2.Application.Quit" bliver jeg spurgt om jeg vil gemme filen. Dette skal der ALTID svares nej på, så det ville være lækkert hvis jeg kan få dette tilføjet i koden. Er det muligt at få Excel/makroen selv til at sige nej til dette.


/F
Avatar billede supertekst Ekspert
22. maj 2008 - 09:45 #1
Prøv:

xls2.saved = true

xls2.Appliation.Quit
..
Avatar billede supertekst Ekspert
22. maj 2008 - 09:47 #2
eller nok nærmere:

xl2.activeworkbook.saved = true
Avatar billede fanth Nybegynder
22. maj 2008 - 10:02 #3
Har prøvet begge, men får følgende fejl i linien:
"Run-time error '438'

Object dosn't support this property or method"
Avatar billede supertekst Ekspert
22. maj 2008 - 11:12 #4
Har ikke testet - men prøver & vender tilbage
Avatar billede supertekst Ekspert
22. maj 2008 - 11:20 #5
Testet uden problemer:


Private Sub test()
Dim xls2, sti
    sti = ActiveWorkbook.Path
    Set xls2 = CreateObject("Excel.Application")
    xls2.Workbooks.Open sti + "\kildeFil.xls"

    With xls2
        .ActiveWorkbook.Sheets(1).Activate
       
        Dim myArray1 As Variant
        myArray1 = xls2.Range("A1:BM40000")
        .Cells(100, 100) = "Test"              'ændring
    End With

    xls2.ActiveWorkbook.Saved = True            '<---------------------
    xls2.Application.Quit
    Set xls2 = Nothing

End Sub
Avatar billede fanth Nybegynder
22. maj 2008 - 11:31 #6
Jamen, nu virker alt perfekt.

Smid et svar.

Takker
/F
Avatar billede supertekst Ekspert
22. maj 2008 - 11:32 #7
Ok - og selv tak
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