datenpiloten bei externer quelle auslesen

[kannenklaus]

hallo zusammen,

folg. makro listet mir die internen namen der datenpiloten über alle blätter, wenn die quelltabelle in calc enthalten ist.

Code: Alles auswählen

Sub DPilotAuslesen
   Dim oDoc as Object, aktBlatt as Object 
   Dim alleBlaetter as Object 
   Dim AnzalleBlaetter as Integer 
   Dim AnzDPaktBlatt as Integer 'Anzahl der DPs im aktuellen Blatt 
   Dim DPaktBlaetter as Object 'alle DPs des aktuellen Blattes 
   Dim DPaktBlatt as Object 'ein DP des aktuellen Blattes 
   Dim i as integer, j as integer
   oDoc =ThisComponent 
   alleBlaetter = oDoc.sheets 
   AnzalleBlaetter =alleBlaetter.count 
		for i=0 to AnzalleBlaetter-1
		   DPaktBlaetter=alleBlaetter(i).getDataPilotTables() 
		 '  DPaktBlaetter=aktBlatt.getDataPilotTables() 
		   AnzDPaktBlatt=DPaktBlaetter.count 
		   for j = 0 to AnzDPaktBlatt-1 
		      DPaktBlatt=DPaktBlaetter.getByIndex(j) 
		   '   xray DPaktBlatt 
		   '   DPaktBlatt.refresh() 
		       x = x & DPaktBlatt.name & CHR(13)
		   next 
		next
   msgbox(x) 
End Sub

im fall von angemeldeten/externen datenquellen werden die datenpiloten nicht erkannt. wo liegt der fehler? ist es ein bug?

freue mich auf jeden sachkundigen hinweis.

grüße
klaus