Document.ExportToText

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Referenz für Programmierer > Applikations-API > Schnittstellen > Document >

Document.ExportToText

Siehe auch

 

Methode: ExportToText (pFromChild als XMLData, pExportSettings als ExportSettings, pTextSettings als TextImportExportSettings)

 

Beschreibung

ExportToText exportiert Tabellendaten aus dem Dokument beginnend mit pFromChild in eine oder mehrere Textdateien. Die Spalten der erzeugten Tabellen werden in alphabetischer Reihenfolge nach den Namen der Tabellenspalten generiert. Verwenden Sie GetExportElementList, um zu sehen, welche Daten exportiert werden. Der Parameter pExportSettings definiert die näheren Einzelheiten für den Export. Setzen Sie die Eigenschaft ExportSettings.ElementList auf die - möglicherweise geänderte - Liste, die von GetExportElementList zurückgegeben wird, damit nicht alle enthaltenen Tabellen exportiert werden. Der Parameter pTextSettings definiert die Optionen für den Textexport und -import. Sie müssen die Eigenschaft TextImportExportSettings.DestinationFolder setzen, bevor Sie ExportToText aufrufen. UpdateXMLData() wird eventuell indirekt benötigt, da Sie XMLData als Parameter an diese Funktion übergeben müssen.

 

Fehler


1400

Das Objekt ist nicht mehr gültig.


1407

Ungültiger Parameter oder es wurde für den Rückgabeparameter eine ungültige Adresse angegeben.


1416

Fehler beim Export..

 

1430

Dokumentexport fehlgeschlagen.

 

Beispiel

' ---------------------------------------------------------

' VBA client code fragment - export document to text files

' ---------------------------------------------------------

 Dim objDoc As Document

 Set objDoc = objSpy.ActiveDocument

 

 Dim objExpSettings As ExportSettings

 Set objExpSettings = objSpy.GetExportSettings

 objExpSettings.ElementList = objDoc.GetExportElementList(

                                                         objDoc.RootElement,

                                                         objExpSettings)

     

 Dim objTextExp As TextImportExportSettings

 Set objTextExp = objSpy.GetTextExportSettings

 objTextExp.HeaderRow = True

 objTextExp.DestinationFolder = "C:\Exports"

 

 On Error Resume Next

 objDoc.ExportToText objDoc.RootElement, objExpSettings, objTextExp

 

 If Err.Number <> 0 Then

         a = MsgBox("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: "                                & Err.Description)

 End If


© 2019 Altova GmbH