Auslesen Excel Tabelle[erledigt]

Zugriff, Engines, Konvertierung. Von ADS über DBF bis zu SQL.

Moderator: Moderatoren

Antworten
Benutzeravatar
Muecke
1000 working lines a day
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:

Auslesen Excel Tabelle[erledigt]

Beitrag von Muecke »

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
Zuletzt geändert von Muecke am Mi, 31. Jul 2019 17:33, insgesamt 1-mal geändert.
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Auslesen Excel Tabelle

Beitrag von Wolfgang Ciriack »

Evtl. hilft ein set decimals to 6 (oder mehr) ?
Viele Grüße
Wolfgang
Benutzeravatar
Muecke
1000 working lines a day
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

Beitrag von Muecke »

Hallo Wolfgang

Geht auch nicht

Gruss
Thomas
ramses
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2513
Registriert: Mi, 28. Jul 2010 17:16
Hat sich bedankt: 12 Mal
Danksagung erhalten: 77 Mal

Re: Auslesen Excel Tabelle

Beitrag von ramses »

Ich machs anders

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 )
   
     
     
so hat es bis jetzt immer funktioniert.
Valar Morghulis

Gruss Carlo
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Auslesen Excel Tabelle

Beitrag von Wolfgang Ciriack »

hast du dir mal aValues anzeigen lassen, welcher Wert steht denn da drin ?
Viele Grüße
Wolfgang
Benutzeravatar
Muecke
1000 working lines a day
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

Beitrag von Muecke »

Besten Dank für eure Hinweise

Fehler gefunden.

Workbench geschlossen.(Fehler mit weiss ich was für Hinweise)

Computer neu gestartet.

Funktioniert wieder einwandfrei.
:color:

Gruss
Thomas
Antworten