Hallo
Bei auslesen der Exceltabelle habe ich immer dieses Problem,
das es mir die Zahl kürzt. Auch mit Text ist es das gleiche(Zellen Formatierung)
26.35689 auf 26.35
26.37589 auf 26.37
auslesen der Datei
oWorkBook := oExcel:workbooks:open(meineexecdatei)
aValues := oWorkBook:workSheets(1):usedRange:value
oWorkBook:close(.F.)
Kann mir da jemand ein Tip geben
Gruss
Thomas
Auslesen Excel Tabelle[erledigt]
Moderator: Moderatoren
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2936
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
-
- Der Entwickler von "Deep Thought"
- Beiträge: 2515
- Registriert: Mi, 28. Jul 2010 17:16
- Hat sich bedankt: 12 Mal
- Danksagung erhalten: 77 Mal
Re: Auslesen Excel Tabelle
Ich machs anders
so hat es bis jetzt immer funktioniert.
Code: Alles auswählen
oSheet := oWorkbook:Worksheets(1) //Referenz auf das 1. Worksheet
oSheet:select() // Blatt wählen
nCAnz := oSheet:cells:specialcells(11):Column // letzte benutze Col
nRAnz := oSheet:cells:specialcells(11):Row // letzte benutze Row
a := oSheet:range("A1:"+ZAHL2CHR(nCAnz)+ltrim(str(nRanz)) ) // Bereich festlegen
a:select() // Bereich auswählen
arr := a:value // Gewählter Bereich in Array übernehmen
////
function ZAHL2CHR(numColumns)
local nMal
local cEnde
if numColumns > 26
nMal := INT(numColumns/26)
cEnde := CHR(nMal+64)+CHR((numColumns-(nMal*26))+64)
else
cEnde := CHR(numColumns+64)
endif
return( cEnde )
Valar Morghulis
Gruss Carlo
Gruss Carlo
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2936
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: Auslesen Excel Tabelle
hast du dir mal aValues anzeigen lassen, welcher Wert steht denn da drin ?
Viele Grüße
Wolfgang
Wolfgang
- Muecke
- 1000 working lines a day
- Beiträge: 623
- Registriert: Di, 24. Okt 2006 7:19
- Wohnort: Samstagern CH
- Hat sich bedankt: 3 Mal
- Danksagung erhalten: 9 Mal
- Kontaktdaten:
Re: Auslesen Excel Tabelle
Besten Dank für eure Hinweise
Fehler gefunden.
Workbench geschlossen.(Fehler mit weiss ich was für Hinweise)
Computer neu gestartet.
Funktioniert wieder einwandfrei.
Gruss
Thomas
Fehler gefunden.
Workbench geschlossen.(Fehler mit weiss ich was für Hinweise)
Computer neu gestartet.
Funktioniert wieder einwandfrei.
Gruss
Thomas