OpenOffice.info

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

hallo zusammen,

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

[code]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[/code]

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