Aufruf: under construction

STRING = XLSImport(tcXlsFile AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: STRING

Code: under construction

PROCEDURE XLSImport (tcXlsFile AS STRING) AS STRING
	*/ Neuer Import für Dateien.???
	LOCAL loReturn,lcReturn,lni,lcAlias
	lcReturn = ""
	loReturn = My.Functions.AnyToDbf.ImportAny(m.tcXlsFile)
	IF !ISNULL(m.loReturn)
		FOR m.lni = 1 TO loReturn.TablesCount
			lcAlias = JUSTSTEM(loReturn.TABLES(m.lni))
			USE IN (SELECT(m.lcAlias))
			USE (loReturn.TABLES(m.lni)) ALIAS &lcAlias IN 0 EXCLUSIVE
			=BlankFields4IsNull(m.lcAlias)
			lcReturn = m.lcReturn + "," + m.lcAlias
		NEXT m.lni
		lcReturn = SUBSTR(m.lcReturn,2)
	ENDIF
	RETURN m.lcReturn
ENDPROC