Avatar billede ceacer Praktikant
12. oktober 2007 - 18:14 Der er 6 kommentarer og
1 løsning

Makro til autosave

Jeg skal bruge en makro, der automatisk gemmer en kopi i samme mappe, når jeg gemmer mit ark. Jeg opdaterer mit ark hver uge, hvor det får navnet:
2007-41 for år 2007 uge 41 osv.

Jeg skal dog samtidig bruge en kopi af den nyeste opdatering med et bestemt navn - lad os sige "Model 4". Jeg har nemlig et andet ark, der bruger Model 4 som input, og der skal jeg bruge de nyeste data.

Jeg er dog også åben overfor andre forslag. Det skal bare foregå så nemt så muligt. Jeg kan ikke rigtig få min anden model til hente data fra et nyt ark hver uge, så jeg synes umiddelbart at en makro til den første virker mest overskuelig.

Jeg ved dog ikke, om det er bedst, at makroen udføres, når jeg gemmer arket (altså når jeg trykker gem, så gemmer den en kopi med navnet "Model 4" i samme mappe som det anden med navnet 2007-XX og overskriver den gamle Model 4) eller om det skal foregå sådan, at jeg selv skal trykke på en knap før det virker.
Avatar billede word-hajen Nybegynder
12. oktober 2007 - 19:02 #1
Nedenstående sørger for at gemme din fil (hvis du har gemt filen tidligere), gemme den igen som Model 4, åbne den første fil (for ellers har du nu fat i Model 4), og lukke Model 4-filen.

***************
Public Sub CreateCopy()
    Dim objCopy As Workbook
    Dim strFile As String
   
    If ActiveWorkbook.Path <> "" Then
        ActiveWorkbook.Save
        strFile = ActiveWorkbook.FullName
       
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\Model 4.xls", FileFormat:=56
        Application.DisplayAlerts = True
        Set objCopy = ActiveWorkbook
       
        Workbooks.Open (strFile)
        objCopy.Close False
    End If
End Sub
Avatar billede ceacer Praktikant
13. oktober 2007 - 15:54 #2
metode lyder rigtig god men jeg kan ikke helt få den til at virke. Der kommer en run-time error '1004' fejl. den siger fejlen er i:
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\Model 4.xls", FileFormat:=56
Avatar billede word-hajen Nybegynder
13. oktober 2007 - 23:12 #3
Det kan være filformatet, den er gal med (jeg kører Excel 2007). Prøv lige at optage en makro, hvor du gemmer en Excel-fil. Der vil du kunne se det rigtige filformat. Ret det og prøv igen.
Avatar billede ceacer Praktikant
14. oktober 2007 - 13:46 #4
min er ikke en 2007 udgave. Jeg vil tro den er fra omkring år 2000. Jeg prøvede at slette FileFormat:=56 og så ser det ud til at virke. I mine øvrige makroer står der ikke noget om FileFormat.
Giver det mening at det skal udelades? I så fald må du gerne smide et svar for jeg kan umiddelbart ikke se nogen problemer.
Avatar billede word-hajen Nybegynder
14. oktober 2007 - 14:37 #5
Hvis du kører Excel 2000, kan det godt give mening, at der ikke skal angives filformat. Hvis du kan åbne din kopi uden problemer, så er alt, som det skal være.

Så hermed et svar :-)
Avatar billede ceacer Praktikant
14. oktober 2007 - 14:50 #6
super! tak for hjælpen!
Avatar billede word-hajen Nybegynder
14. oktober 2007 - 15:12 #7
Velbekomme (tak for point).
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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