Oplossing gezocht!!!!!!!!!!!

[JohnBoy]

Ik zal proberen mijn probleem voor te leggen;

Ik heb een bestand als tabel in access(ritten)
Vervolgens in excel diverse draaitabellen op bovenstaande database gebaseerd. Werkt goed.
Nu wil ik op het moment dat ik via een macro gegevens in de draaitabellen wil vernieuwen(via opdrachtknop) de vraag krijgen over welke periode de gegevens vernieuwd moeten worden.(van datum - tot datum)
Hoe kan ik dit het beste aanpakken.
Let wel het gaat om "gigabestanden" Een enkele maand genereerd ongeveer 40 Mb data.
Mocht je nadere informatie nodig hebben laat het mij dan even weten.

Alvast bedankt voor je reactie

 

[Withaar]

Met één of een paar macro's moet je eind kunnen komen, daarvoor is echter wel wat meer info nodig.
Bv. hoe is je tabel opgebouwd, 2 kolommen of meer.
N.b. Excel lijkt me niet helemaal hét programma te zijn als je met zo (40MB) grote bestanden werkt.
Kan je niet alles binen access doen?

 

[Withaar]

Misschien kan je alles direct naar Excel inladen.
Ik heb in het voorbeeld twee bestanden staan, 1 .txt deze moet je bijvoorkeur in je eigen documenten zetten.
En een excel blad met twee macro's onder button's.
Als je op de eerste klikt krijg je de vraag welk bestand je wilt laden, standaard staat deze op C:\Mijn documenten\Test voor excel.txt, maar je kunt dus ook een andere plek kiezen.
Excel laat je gegevens en de macro zorgt er voor dat de indeling direct klopt.
N.b deze marco werkt natuurlijk alleen maar met Test voor excel.txt...
Ga terug naar het eerste blad en klik op de tweede macro, dit is een voorbeeld hoe daarna een draai tabel gemaakt kan worden.

Het zijn natuurlijk alleen maar simpele voorbeelden...
Maar komt dit in de richting?

Hier de inhoud van de macro, ze zijn voor 90% gemaakt door gewoon de opname mogelijheid van excel te gebruiken.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 11-5-2003 door --.
filenaam = InputBox("welke file", , "C:\Mijn documenten\Test voor excel.txt")
Workbooks.OpenText Filename:=filenaam, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1))
End Sub
Sub Macro2()
'
' Macro2 Macro
' De macro is opgenomen op 11-5-2003 door --.
'

'
Windows("Test voor excel.txt").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Test voor excel'!R1C1:R3C10").CreatePivotTable TableDestination:="", _
TableName:="Draaitabel1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Draaitabel1").SmallGrid = False
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Veld 1")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Veld 7")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Veld 8")
.Orientation = xlDataField
.Position = 1
End With
End Sub