[Gelöst] Excel Import Spalte 2 Wert?

8. Februar 2018 15:53

Hallo

Ich möchte ein Excel Einlesen und habe zwei Spalten im Excel A + B mit Werten.
So wie es jetzt ist liest es im code und description den gleichen Wert ein von der Spalte A

Wie kann ich den Wert der zweite Spalte B ansprechen ?

Code:
    IF TempExcelBuffer.GET(RecNo,1) THEN BEGIN
      CASE SheetName OF
        '05':                                   
         IF  llocation.GET('05') THEN BEGIN   
              lneuerlagerplatz.INIT;
              lneuerlagerplatz.Code := TempExcelBuffer."Cell Value as Text";
              lneuerlagerplatz.Description := TempExcelBuffer."Cell Value as Text";     

              IF lneuerlagerplatz.INSERT THEN;
         END;
       END;
    END;


Danke Euch
Lg Dany
Zuletzt geändert von riffaquarium am 8. Februar 2018 16:48, insgesamt 1-mal geändert.

Re: Excel Import Spalte 2 Wert?

8. Februar 2018 16:47

Habs wieder mal selber rausgefunden :-)

Code:
    IF TempExcelBuffer.GET(RecNo,1) THEN BEGIN
      CASE SheetName OF
        '05':                                 
         IF  llocation.GET('05') THEN BEGIN   
              lneuerlagerplatz.INIT;
              lneuerlagerplatz.Code := TempExcelBuffer."Cell Value as Text";
              lneuerlagerplatz."Location Code"  := llocation.Code;
             
              TempExcelBuffer.GET(RecNo,2);
              lneuerlagerplatz.Description := TempExcelBuffer."Cell Value as Text";     

              IF lneuerlagerplatz.INSERT THEN;
         END;
       END;