Code: Alles auswählen
IDXLSFile is int = xlsOpen("D:\Programme\WinDev12\my_projects\Excel_lesen\Data\test1.xls")
IF IDXLSFile <> -1 THEN
Info("Die XLS Datei wurde geöffnet!")
ELSE
Info(xlsMsgError(IDXLSFile))
END
WWorksheet is int = xlsCurrentWorksheet(IDXLSFile,2) //lesen aus dem 2. Worksheet
FOR iEXPRESS = 1 TO 5
ResData is string = xlsData(IDXLSFile, iEXPRESS, 6,False)
// False ist wichtig!!
// Wenn eine Spalten ganz leer ist, zählt WinDev diese sonst nicht mit(siehe Hilfe)
Info(ResData)
END
xlsClose(IDXLSFile)
Alfred