Pivottabelle Range ändern

Stony · 7. Dezember 2009

Hallo zusammen,

ich versuche mit Lotus Script die Source-Daten einer Pivottabelle zu ändern.

Leider bekomme ich beim With die Fehlermeldung "Instance member PIVOTTABLEWIZARD does not exist".

Hier noch der Quellcode:

Code

Dim ws As New NotesUIWorkspace
	Dim excelApp As Variant
	Dim ExcelWorkbook As String
Dim files As Variant

	files = ws.OpenFileDialog(True, "File List", "", "C:\")
	If Isempty(files) Then
		Exit Sub
	End If

	Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		With excelApp.PivotTableWizard
			.SourceType= 1
			.SourceData = "Basis!R1C1:R116C19"
		End With

		excelApp.quit
		Set excelApp = Nothing	
	End Forall

	Msgbox "Fertig!!"

Alles anzeigen

Danke schonmal!

Gruß Stony

taurec · 7. Dezember 2009

Na weil PivotTableWizard auch weder eine Eigenschaft noch eine Methode vom Application Objekt ist, sondern wenn schon dann vom Worksheet Objekt.
Hättest du ganz einfach in der Excel VBA Hilfe nachschauen können

Stony · 7. Dezember 2009

Hallo,

OK. Danke schonmal dafür.
Wie bekomme ich denn jetzt die neuen Source-Daten in die existierende Pivottabelle?

Habe mir im Excel mal ein Makro aufgezeichnet und es versucht auf LS umzubauen....leider ohne Erfolg. Es kommt zwar keine Fehlermeldung, aber es wird auch nichts geändert.

Code

Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
excelSheet.Activate
Call excelSheet.PivotTableWizard (1, "Basis!R1C1:R116C19")

Stony · 8. Dezember 2009

Hallo,

habe es jetzt mal so versucht:

Code

Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
		excelSheet.Activate
		Set excelPivot = excelSheet.PivotTables(1)
		excelPivot.SourceData = "Basis!A2:S116"
		excelPivot.RefreshTable

		excelApp.quit
		Set excelApp = Nothing	
	End Forall

Alles anzeigen

Leider funktioniert das auch nicht. Ich bekomme im Excel eine Fehlermeldung (siehe Anhang)

taurec · 8. Dezember 2009

Die Fehlermeldung sagt doch klar aus wo das Problem ikst.
Also korrigier dein Excel File insoweit und gut ist

[color=FF0000]Bitte aufs Themenpräfix achten[/color]

Stony · 8. Dezember 2009

Hallo,

die Basis enthält keine Spalten ohne Überschrift.
Wenn ich die SourceDaten direkt in der Exceltabelle über den Pivotassistenten ändere funktioniert es.

Stony · 8. Dezember 2009

....jetzt habe ich es mal hiermit versucht....

Code

excelApp.Range("A1").Select
		newAddress = excelApp.ConvertFormula("A1:S116","xlA1","xlR1C1") 'Convert A1 to R1C1
		Call excelSheet.PivotTableWizard(1,"Basis!"+newAddress)

Nur leider schmiert der Notes Client bei dem Aufruf "ConvertFormula" komplett ab.
Wenn ich PivotTableWizard mit R1C1 Format ausführe, funktioniert das ganze.

Da der Bereich aber dynamisch sein muss, muss ich A1 in R1C1 konvertieren.

Hat noch jemand ne Idee?

Stony · 8. Dezember 2009

Hallo zusammen,

ich habs hinbekommen.

Ich baue mir den R1C1 String selber zusammen....

Code

Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		'Basis Tabellenblatt wählen
		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(2)
		excelSheet.Activate

		'letzte Zeile suchen
		range = "a1"
		excelValue = excelApp.Range(range).value
		i = 1
		While Not excelValue = ""
			range = "A" + Trim( Cstr(i))
			excelApp.Range("A" + Trim( Cstr( i ) ) ).Select			
			excelValue = excelApp.Range("A" + Trim( Cstr( i ) ) ).value
			i = i +1		
		Wend

		'Tabellenblatt mit Pivot angeben
		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
		excelSheet.Activate

		'Pivot wählen und SourceData ändern
		excelApp.Range("A1").Select
		newAddress =  "R1C1:R"+Cstr(i-2)+"C19"
		Call excelSheet.PivotTableWizard(1,"Basis!"+newAddress)

		'Excel speichern / schließen
		excelApp.save
		excelApp.quit
		Set excelApp = Nothing	
	End Forall

Alles anzeigen

Vielen Dank für eure Hilfe.

Gruß Stony

Teilen