Hej,
Nedan ser ni min kod, problemet jag har är att uppdateringen av pivottabellerna görs innan all data hämtats.
Jag vill att pivot1 ska uppdateras först efter att OLEDBConnection har hämtat all data klart, och efter att pivot 1 har uppdaterats klart ska pivot 2 uppdateras.
Någon som har något bra förslag på hur jag ska lösa det? :-)
Sub refresh()
With ActiveWorkbook.Connections("XXXXXXX").OLEDBConnection
.CommandText = "select * from XXX.dbo.XXXXXXX where XXXXXXX between '" & Range("A1").Value & "' and '" & Range("A2").Value & "'"
End With
ActiveWorkbook.Connections("XXXXXXX").refresh
Sheets("Pivot 1").Select
ActiveSheet.PivotTables("Pivottabell1").PivotCache.refresh
Sheets("Pivot 2").Select
ActiveSheet.PivotTables("Pivottabell2").PivotCache.refresh
End Sub
|
|