@MightyMAC
Das freut mich
ThoPie hat geschrieben:Hallo Leute,
ich möchte gern per XLSFunc_AddWorksheetAfter Arbeitsblätter für alle 12 Monate anlegen. Mein Quellcode-Fragment sieht wie folgt aus:
Code: Alles auswählen
DATEI=WorkDir+"Test.xls"
ES=XLSFunc_CreateExcelFile(WorkDir)
XLSFunc_SetExcelVisible(ES,#False)
XLSFunc_PageSetup(ES,#xlLandscape,1,1,2.5,1)
XLSFunc_RenameActiveSheet(ES,"Jan")
XLSFunc_AddWorksheetAfter(ES,"Feb")
XLSFunc_AddWorksheetAfter(ES,"Mrz")
XLSFunc_SaveAsWorkbook(ES,DATEI)
XLSFunc_SetExcelVisible(ES,#True)
XLSFunc_CloseWorkbook(ES)
XLSFunc_CloseExcel(ES)
Beim Erstellen der Februar-Tabelle kommt immer ein Adressfehler in der Zeile
NewSheet\SetProperty("Name='"+NewSheetName+"'")
der Prozedur XLSFunc_AddWorksheetAfter.
Kann mit bitte mal jemand sagen, was ich falsch mache.
Danke schön.
Ich habe zu XLSFunc_AddWorksheetAfter
eine weitere Procedure XLSFunc_AddWorksheetAfterSheet(Tabellennummer.l,NeueTabelle.s)
geschrieben, mit der Du gezielt eine neue Tabelle nach der anderen hintereinander einfügen kannst.
Sorry @Kiffi, das ich deinen Code dafür benutzt und umgeändert habe
Siehe ExcelFunctions.pbi am Threadanfang.
Dazu habe ich dein Beispiel hierzu angepasst:
Code: Alles auswählen
XIncludeFile "ExcelFunktion.pbi"
Define WorkDir.s, DATEI.s,ES.COMateObject
WorkDir="F:\Purebasic\X86\Falko\ExcelProgramm\"; hier den Verzeichnispfad korrigieren
DATEI=WorkDir+"Test.xls"
ES=XLSFunc_CreateExcelFile(WorkDir)
XLSFunc_ExcelVisible(ES,#False)
XLSFunc_PageSetup(ES,#xlLandscape,1,1,2.5,1)
XLSFunc_RenameActiveSheet(ES,"Jan")
XLSFunc_AddWorksheetAfterSheet(ES,1,"Feb")
XLSFunc_AddWorksheetAfterSheet(ES,2,"Mrz")
XLSFunc_SaveAsWorkbook(ES,DATEI)
XLSFunc_ExcelVisible(ES,#True)
XLSFunc_CloseWorkbook(ES)
Ich hoffe, Du kannst es gebrauchen
Gruß,
Falko