CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

pcjunkie Nybegynder

14. oktober 2011 - 10:57 Der er 15 kommentarer og
1 løsning

automatisk opdatering af alle pivottabeller i alle excel filer i en given mappe

Jeg har et Excel ark med mange faner. Hver fane indeholder en pivottabel. Jeg har fundet en makro som kan opdatere pivottabellerne i alle faneblade. Så langt så godt.

Problemet er at min pc er begyndt at brokke sig over manglende ressourcer når jeg retter og/eller tilføjer flere faneblade.

Jeg bruger Excel 2007 og har 8 gb RAM - det kan der ikke ændres ved.

Spørgsmålet er: Hvis jeg gemmer alle fanebladene som separate regneark i en bestemt folder - fx f:\alleark - så kan få en makro til at åbne alle ark i den givne mappe, opdatere pivottabellen, gemme og lukke, så jeg efterfølgende ved at opdatere kæder til arkene, får opdaterede data (kæderne opdaterer nemlig ikke evt. pivottabeller)?
vh

Synes godt om

iver_mo Nybegynder

14. oktober 2011 - 15:20 #1

Det kan man sagtens, men inden kunne jeg godt tænke mig at høre hvor mange faneblade der er tale om. Jeg er vant til at arbejde i rimelig store ark og er kun løbet i problemer hvis jeg gjorde noget på en uhensigtsmæssig måde.

Hvor mange faner? Hvor store/mange tabeller? Hvor store/mange pivot'er? Bruger pivot'erne fælles hukommelse (mener det er standard i 2007)? Hvor stor er filen?

Synes godt om

luffeladefoged Praktikant

14. oktober 2011 - 17:18 #2

Hvis du har en pivot og kopierer denne til den næste istedet for at lave en ny pivot, så vil de referere til den samme database, bruge meget mindre hukommelse og hvis du opdaterer én pivol bliver alle de andre også opdateret.
Hilsen Luffe

Synes godt om

pcjunkie Nybegynder

23. oktober 2011 - 22:48 #3

Ja men de skal netop IKKE rettes alle steder når jeg ændrer den ene
vh

Synes godt om

pcjunkie Nybegynder

23. oktober 2011 - 22:50 #4

iver_mo

der er +10 faner 0g der opdateres fra en access base på ca 1,4 gb
-men for at undgå en længere tråd om det - og altså ikke for at være arrogant - "Det kan man sagtens" - vil du så ikke bare skrive hvordan?
vh

Synes godt om

iver_mo Nybegynder

24. oktober 2011 - 00:35 #5

Lav et Excel ark og gå ind i VBA'en. Tilføj referencen: Microsoft Scripting Runtime (VBA -> toolbar -> "Tools" -> "References...").

indsæt koden:

Sub open_files()
Application.DisplayAlerts = False

Dim oFS As New FileSystemObject
Dim book As Excel.Workbook

Dim sDir
Set sDir = oFS.GetFolder("C:\test\")

Dim uFile
For Each uFile In sDir.Files
Set book = Application.Workbooks.Open(uFile.Path)
'indsæt din update pivot kode her
book.Save
book.Close
Next
Application.DisplayAlerts = True
End Sub

Udbyt C:\test\ med den mappe hvor dine ark ligger.
Sørg for at der kun ligger excel ark i mappen, da jeg ikke har lagt noget tjek ind om hvilken filtype den kører det på.

Synes godt om

pcjunkie Nybegynder

24. oktober 2011 - 11:08 #6

mange tak
glæder mig til at teste det
vh

Synes godt om

pcjunkie Nybegynder

24. oktober 2011 - 11:29 #7

Nu har jeg prøvet dette
Sub open_files()
Application.DisplayAlerts = False

Dim oFS As New FileSystemObject
Dim book As Excel.Workbook

Dim sDir
Set sDir = oFS.GetFolder("U:\pivottest\")

Dim uFile
For Each uFile In sDir.Files
Set book = Application.Workbooks.Open(uFile.Path)

Sub UpdatePivot()
ActiveWorkbook.RefreshAll
End Sub

book.Save
book.Close
Next
Application.DisplayAlerts = True
End Sub

men får en compile error
only comments may appear after end sub.....

Synes godt om

iver_mo Nybegynder

24. oktober 2011 - 12:30 #8

Du må ikke sætte en sub i en anden sub. Du må kun kalde den.

Lav det om til:

Sub open_files()
Application.DisplayAlerts = False

Dim oFS As New FileSystemObject
Dim book As Excel.Workbook

Dim sDir
Set sDir = oFS.GetFolder("C:\test\")

Dim uFile
For Each uFile In sDir.Files
Set book = Application.Workbooks.Open(uFile.Path)
book.RefreshAll
book.Save
book.Close
Next
Application.DisplayAlerts = True
End Sub

Får du updatet din Access data bare ved .RefreshAll?

Synes godt om

pcjunkie Nybegynder

24. oktober 2011 - 13:30 #9

ja - den makro med Refresh all opdaterer alle pivotabeller i alle faner i det aktuelle regneark - den fik jeg af en anden her inde:=)

Synes godt om

iver_mo Nybegynder

24. oktober 2011 - 13:55 #10

Kører det så nu?

Synes godt om

pcjunkie Nybegynder

25. oktober 2011 - 08:27 #11

nej
der kommer compile error
user defined type not defined

vh

Synes godt om

iver_mo Nybegynder

25. oktober 2011 - 08:33 #12

Paste lige hele din kode. Det lyder dog til at du er sprunget over dette fra tidligere:

Tilføj referencen: Microsoft Scripting Runtime (VBA -> toolbar -> "Tools" -> "References...").

Kom gerne med en liste over hvilke referencer der tilføjet. De tilføjede står samlet øverst.

Synes godt om

pcjunkie Nybegynder

25. oktober 2011 - 11:27 #13

det kan godt ske
-jeg var faktisk lidt i tvivl om hvordan jeg gjorde det?
vh

Sub open_files()
Application.DisplayAlerts = False

Dim oFS As New FileSystemObject
Dim book As Excel.Workbook

Dim sDir
Set sDir = oFS.GetFolder("u:\pivottest\")

Dim uFile
For Each uFile In sDir.Files
Set book = Application.Workbooks.Open(uFile.Path)
book.RefreshAll
book.Save
book.Close
Next
Application.DisplayAlerts = True
End Sub

Synes godt om

iver_mo Nybegynder

25. oktober 2011 - 15:13 #14

det kan godt ske
-jeg var faktisk lidt i tvivl om hvordan jeg gjorde det?

Har du så gjort det nu?

I VBA'en:
Gå i værktøjslinien
Vælg "Tools"
Vælg "References..."
Find "Microsoft Scripting Runtime" og sæt hak i den.

Skriv ned hvilke andre ting der sat hak i og meld det tilbage her. Dem med hak i er samlet øverst.

Synes godt om

pcjunkie Nybegynder

03. november 2011 - 11:27 #15

Det ser lovende ud - mange tak for hjælpen - det var dit "hak" jeg manglede - er det noget med at du skal markere dit som en løsning for at jeg kan give point, iver_mo?

Synes godt om

iver_mo Nybegynder

03. november 2011 - 13:13 #16

Svar :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS