Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Alexis am 12.12.06 - 16:56:42

Titel: Fehlermeldung beim Excel-Export
Beitrag von: Alexis am 12.12.06 - 16:56:42
Hallo Forum,

beim Excel-Export erhalte ich die folgende Fehlermeldung:

Zitat
Microsoft Office Excel: Die AutoFilter-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Trotzdem wird brav die Filterfunktion im Excel-Sheet gebracht.

Der Code-Abschnitt endet mit:

Code
xlApp.Application.Selection.Autofilter = True

Kann mir jemand sagen, wie die Range-Angabe heissen muss?


Alexis
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: ZaLudtske am 12.12.06 - 17:02:35
Bitte kompletten Code-Abschnitt posten.

Rainer
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: Alexis am 12.12.06 - 19:07:52
Hier der betreffende Abschnitt:

Code
'Erste Reihe Spaltenbeschriftung
	xlApp.application.Rows("1:1").Select
	With xlApp.application.Selection
		.Font.bold = True
		.Font.ColorIndex = 0
		.Font.Name = "Arial"
		.Font.Size = 10
		.Interior.ColorIndex = 0
	End With
	' ---------------------------------------------------------------------------------
'Fenster fixieren
	xlApp.application.Rows("2:2").Select
	xlApp.application.ActiveWindow.FreezePanes = True
	
'Aussehen der Spalten und Kopfzeile
	xlApp.cells.select
	xlApp.selection.Columns.AutoFit 
	xlApp.application.rows("1:1").Select
	xlApp.ActiveSheet.PageSetup.centerheader = "&""Arial Black,Fett"" Database: Plant System Inventory"  + "  Export created on: " +  Format(Now,"dd/MM/yyyy HH:MM")	
	xlApp.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
	xlApp.ActiveSheet.PageSetup.PrintGridlines = True
	xlApp.ActiveSheet.PageSetup.Orientation = 2
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "[" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "]" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "(" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace ")" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "<" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace ">" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "'" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	xlApp.Application.ScreenUpdating = True
	
	xlApp.Application.Selection.Autofilter = True


Alexis
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: Axel am 12.12.06 - 19:51:43
Versuch's mal so:

   xlApp.Application.Selection.Autofilter

Die AutoFilter-Eigenschaft ist nämlich schreibgeschützt.


Was mir noch aufgefallen ist, sind die vielen EnableEvents- und DisplayAlerts-Anweisungen. Meines Erachtens kannst du dir die sparen.

Code
...
xlApp.Application.DisplayAlerts = False
xlApp.Application.EnableEvents = False
xlApp.Cells.Replace "[" , "" 
xlApp.Cells.Replace "]" , "" 
xlApp.Cells.Replace "(" , "" 
xlApp.Cells.Replace ")" , "" 
xlApp.Cells.Replace "<" , "" 
xlApp.Cells.Replace ">" , "" 
xlApp.Cells.Replace "'" , "" 
xlApp.Application.EnableEvents = True
xlApp.Application.DisplayAlerts = True
xlApp.Application.ScreenUpdating = True
...

Axel
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: just.do.it am 13.12.06 - 07:53:09
Zitat von: Alexis am 12.12.06 - 16:56:42
beim Excel-Export erhalte ich die folgende Fehlermeldung:

Zitat
Microsoft Office Excel: Die AutoFilter-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Trotzdem wird brav die Filterfunktion im Excel-Sheet gebracht.

Der Code-Abschnitt endet mit:

Code
xlApp.Application.Selection.Autofilter = True

Kann mir jemand sagen, wie die Range-Angabe heissen muss?

Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen

xlApp.Application.Selection.Autofilter
Gruß
Dirk
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: Axel am 13.12.06 - 08:31:56
Zitat von: just.do.it am 13.12.06 - 07:53:09
Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen


Es gibt auch eine AutoFilter-Eigenschaft. Du hast aber Recht, in diesem Fall geht's um die Methode.


Axel
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: Alexis am 13.12.06 - 08:48:50
Hallo,

Danke für Eure Tipps.

DAS war's!

Alexis
Titel: Re: Fehlermeldung beim Excel-Export
Beitrag von: just.do.it am 13.12.06 - 09:08:00
Zitat von: Axel am 13.12.06 - 08:31:56
Zitat von: just.do.it am 13.12.06 - 07:53:09
Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen
Es gibt auch eine AutoFilter-Eigenschaft. Du hast aber Recht, in diesem Fall geht's um die Methode.

Richtig, die Worksheet-Klasse hat eine AutoFilter-Eigenschaft, während die Range-Klasse eine entsprechende Methode hat.  ;D (*klugscheiß*)  ;)

Gruß
Dirk