|
Von:Georg Hoelscher georg.hoelscher@gmx.net An:All :gelesen |
erstellt am:18.12.2018 10:57:03
- #17709 in section
Antworten Antworten mit Zitat
Hallo Zusammen, ich habe folgendes Problem: Seit dem Wechsel von Excel 2010 auf Excel 2016 funktioniert die Eigenschaft "Save()" beim Excel-Zugriff nicht mehr. Ich bekomme bei der Syntax: LOCAL oExcel oExcel = CREATEOBJECT("Excel.Application") oExcel.Application.workbooks.OPEN("c:\test.xlsx") cZelle = "Tabelle2!A2" oExcel.Range(cZelle).Value = "Hallo Welt" oExcel.Save() folgende Fehlermeldung: OLE Dispatch exception code 0 from Microsoft Excel: Die Save-Eigenschaft des Application-Objektes kann nicht zugeordnet werden. Hat jemand dafür eine Lösung, oder habe ich etwas übersehen ? Vielen Dank im Vorraus Georg |
Von:Christoph Zintel Zintel@fruchtmanager.de An:Georg Hoelscher georg.hoelscher@gmx.net :gelesen |
erstellt am:18.12.2018 12:42:54
- #17710 in section
Antworten Antworten mit Zitat
Hallo Georg, die save-Methode betrifft das Workbook, das Du öffnest. Probier's mal so: LOCAL oExcel oExcel = CREATEOBJECT("Excel.Application") oExcel.Application.workbooks.OPEN("c:\test.xlsx") cZelle = "Tabelle2!A2" oExcel.Range(cZelle).Value = "Hallo Welt" oExcel.activeworkbook.Save() Ciaoooooooooooooo Christoph Zintel Software Design GmbH |
Von:Georg Hoelscher Georg.hoelscher@gmx.net An:Christoph Zintel Zintel@fruchtmanager.de :gelesen |
erstellt am:18.12.2018 13:30:40
- #17711 in section
Antworten Antworten mit Zitat
Hallo Christoph, Problem gelöst !!. Vielen Dank für die schnelle Antwort. Schöne Feiertage und einen guten Rutsch. Georg |
Von:Georg Hoelscher Georg.hoelscher@gmx.net An:Christoph Zintel Zintel@fruchtmanager.de :gelesen |
erstellt am:18.12.2018 13:30:50
- #17712 in section
Antworten Antworten mit Zitat
Hallo Christoph, Problem gelöst !!. Vielen Dank für die schnelle Antwort. Schöne Feiertage und einen guten Rutsch. Georg |
Von:Matthias Kahlert usenet@max-pro.de An:Christoph Zintel Zintel@fruchtmanager.de :gelesen |
erstellt am:19.12.2018 15:08:57
- #17713 in section
Antworten Antworten mit Zitat
--from Newsreader at Mittwoch, 19. Dezember 2018; 15:08:57-- Am 18.12.2018 um 12:42 schrieb Christoph Zintel: > die save-Methode betrifft das Workbook, das Du öffnest. Probier's mal so: > > LOCAL oExcel > oExcel = CREATEOBJECT("Excel.Application") > oExcel.Application.workbooks.OPEN("c:\test.xlsx") > cZelle = "Tabelle2!A2" > oExcel.Range(cZelle).Value = "Hallo Welt" > > oExcel.activeworkbook.Save() Variante: LOCAL oExcel, oWorkbook oExcel = CREATEOBJECT("Excel.Application") oWorkbook = oExcel.Application.Workbooks.Open("c:\test.xlsx") oSheet = oWorkbook.Sheets(2) oSheet.Cells(1,2).Value = "Hallo Welt" oWorkbook.Save() -- Matthias |
Von:Georg Hoelscher georg.hoelscher@gmx.net An:Matthias Kahlert usenet@max-pro.de |
erstellt am:20.12.2018 11:01:48
- #17714 in section
Antworten Antworten mit Zitat
Hallo Matthias, Das macht den Zugriff auf die einzelnen Zellen noch einfacher. Vielen Dank und Gruß Georg |