Just nu i M3-nätverket
Jump to content

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


fritiof

Recommended Posts

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

 

Link to comment
Share on other sites

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.

 

 

 

 

 

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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]

 

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...