ImportExcelFile()

ImportExcelFile() – Datenimport aus einem Excel-File

Die Funktion ImportExcelFile() importiert Daten aus einer .xls Excel-Datei in eine Tabelle.
Hinweis:
Falls nEndRow kleiner nStartRow ist werden ALLE Zeilen importiert!
lCopyFieldNames:

• kann nur verwendet werden wenn es sich bei dem Tabellen-Objekt oTable um eine TMemCalcTable handelt
• es werden alle Felder aus der oTable entfernt, bevor diese automatisch erzeugt werden

• alle Felder werden als Memo Felder erzeugt

  Parameter	Beschreibung
  oTable:O	Tabellen-Objekt, in welches die Daten importiert werden
  cSource:C	.xls Excel-Datei, aus der die Daten importiert werden
  nFieldNameRow:N	Zeile in welcher sich die Feldnamen befinden; default = 0
  nStartRow:N	Gibt an, ab welcher Zeile die Daten importiert werden; default = 1
  nEndRow:N	Gibt an, bis zu welcher Zeile die Daten importiert werden; default = 0
  lShowMsg:L	Info-Fenster werden angezeigt z.B. bei Beenden oder Fehlern; default = false
  lShowStatus:L	Status-Fenster wird angezeigt; default = false
  nMode:N	Import Modus; default = 0 0 Datensätze werden ans Ende hinzugefügt 1 übereinstimmende Datensätze updaten (cKeys erforderlich) 2 übereinstimmende Datensätze updaten und nicht vorhandene ans Ende hinzufügen (cKeys erforderlich) 3 übereinstimmende Datensätze löschen (cKeys erforderlich) 4 alle Datensätze aus der "oTable" werden gelöscht. Anschließend wird die "oTable" mit den Import-Daten gefüllt
  cKeys:C	Feldnamen durch ; getrennt. Diese Felder werden für die Prüfung auf Übereinstimmung verwendet; default = Leerstring
  lCopyFieldNames	Erzeugt alle Felder automatisch anhand der "nFieldNameRow" Zeile der .xls Excel-Datei; default = true

Rückgabewert

Array - { Anzahl an neu hinzugefügten Datensätzen,
Anzahl der Datensätze in der "cSource" Datei,
Anzahl der gelöschten Datensätze,
Anzahl der aufgetretenen Fehler,
Anzahl an erfolgreich importierten Datensätze,
Anzahl der upgedateten Datensätze }

Beispiel

| oTable |

oTable := CreateObject('TMemCalcTable'),
ImportExcelFile(oTable, 'c:\test.xls', 1, 2, , , , , , true),
Browse(, oTable)