Fråga i MS-query som sedan skall bli pivottabell

[fritiof]

Hej jag undrar om det går att skapa en pivottabell från extern data där man får fylla i ett villkor från MS-qury. Detta vilkor skall fyllas i varje gång som man uppdaterar pivottabellen. I MS-query står frågan mellan [] och om resultatet läses rakt in i exle fungerar det fint. Problemet uppstår om jag vill skapa en pivottabell av resultatet.

 

Är det någon som begriper vad jag försöker fråga är jag tacksam för svar.

 

/fritiof

 

[XL-Dennis]

Hej,

 

Jo, jag förstår både frågan och problemet. Problemet är att när du försöker uppdatera P-Tabellen så sker ingen uppdatering då uppdateringen inte exekverar din Query-fråga.

 

Det där kan lösas på olika sätt (som med de flesta sakerna i programvärlden) men oavsett lösning krävs det VBA.

 

Fråga 1: Är det OK med en VBA-lösning?

 

Vill du göra en lösning som hoppar över MS Query och att lagra data i ett kalkylblad kan du titta närmare på följande lösning:

http://www.xldennis.com/pt%28vba%29.htm

 

Den får dock betraktas som avancerad.

 

 

 

 

 

 

[fritiof]

Det är ok med en VBA-lösning

 

Jag skall fördjupa mig lite mer i din lösnning från din hemsida, när jag får lite mer tid den ser intressant ut.

 

Hur skulle en lösning med MS Query kunna se ut?

 

Mvh Fritiof

 

[XL-Dennis]

fritiof,

 

Nedanstående exempel ger dig vägledning och du borde rimligtvis få upp dialogrutan för att ange parameter-värdet ifråga när proceduren exekveras.

 

[color="#0000ff"]Option Explicit[/color]

[color="#0000ff"]Sub[/color] Refresh_Pivottable()
[color="#0000ff"]Dim[/color] wbBook As Workbook
[color="#0000ff"]Dim[/color] wsSheet As Worksheet

[color="#0000ff"]Set[/color] wbBook = ThisWorkbook
[color="#0000ff"]Set[/color] wsSheet = wbBook.Worksheets([GRÅ]"Sheet1"[/GRÅ])

[color="#0000ff"]With[/color] wsSheet
    .QueryTables(1).Refresh
    .PivotTables(1).RefreshTable
[color="#0000ff"]End[/color] [color="#0000ff"]With[/color]

[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]