Altova Authentic 2024 Desktop

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

 

Beschreibung

ExportToTextexportiert Tabellendaten aus dem Dokument beginnend mit pFromChildin 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 pExportSettingsdefiniert die näheren Einzelheiten für den Export. Setzen Sie die Eigenschaft ExportSettings.ElementListauf die - möglicherweise geänderte - Liste, die von GetExportElementListzurückgegeben wird, damit nicht alle enthaltenen Tabellen exportiert werden. Der Parameter pTextSettingsdefiniert die Optionen für den Textexport und -import. Sie müssen die Eigenschaft TextImportExportSettings.DestinationFoldersetzen, bevor Sie ExportToText aufrufen.UpdateXMLData()wird eventuell indirekt benötigt, da Sie XMLDataals 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.GetTextImportExportSettings

 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

© 2017-2023 Altova GmbH