Application.GetTextImportElementList
Methode: GetTextImportElementList(pImportSettingsals TextImportExportSettings)als ElementList
Beschreibung
GetTextImportElementListruft Importinformationen über die in pImportSettings definierte Textdatei ab. Die Funktion gibt eine Sammlung von ElementListItems zurück, wobei die ElementListItem.Name Eigenschaften die Namen der in der Datei gefundenen Felder enthält. Die Werte der restlichen Eigenschaften werden nicht definiert.
Wenn die Textdatei keine Spaltenüberschriften enthält, setzen Sie pImportSettings.HeaderRow auf false. Die erzeugte Elementliste enthält allgemeine Spaltennamen wie 'Field1' usw.
Fehler
1111 | Das application-Objekt ist nicht mehr gültig. |
1100 | Ungültiger Parameter oder es wurde für den Rückgabeparameter eine ungültige Adresse angegeben. |
1107 | Import aus Datenbank ist fehlgeschlagen. |
1115 | Fehler beim Import der Textelementliste. Für die Importdatei kann kein Parser erstellt werden. |
1116 | Fehler beim Import der Textelementliste. |
Beispiel
' ---------------------------------------------------------
' VBA client code fragment - import selected fields from text file
' ---------------------------------------------------------
DimobjImpSettings AsTextImportExportSettings
SetobjImpSettings = objSpy.GetTextImportExportSettings
objImpSettings.ImportFile = "C:\ImportMe.txt"
objImpSettings.HeaderRow = False
DimobjList AsElementList
SetobjList = objSpy.GetTextImportElementList(objImpSettings)
'exclude first column
objList.RemoveItem 1
DimobjImpDoc AsDocument
OnErrorResume Next
SetobjImpDoc = objSpy.ImportFromText(objImpSettings, objList)
CheckForError