[gelöst]ExcelBuffer Comment.Text ?

...................

Zuletzt geändert von wanmat am 2. Januar 2014 21:35, insgesamt 2-mal geändert.

Hallo,

anbei ein Beispiel, wie man den Kommentar einer EXCEL-Arbeitsblattzelle mittels Report einer Variablen zuweisen kann.
Das müßte dann noch in die Tabelle 370 umgewandelt werden.

Code:

//Globale Vereinbarungen
//Name        DataType      Subtype                                            Length
//Appl        Automation   'Microsoft Excel 9.0 Object Library'.Application   
//WBs         Automation   'Microsoft Excel 9.0 Object Library'.Workbooks   
//WB          Automation   'Microsoft Excel 9.0 Object Library'.Workbook   
//WS          Automation   'Microsoft Excel 9.0 Object Library'.Worksheet   
//R           Automation   'Microsoft Excel 9.0 Object Library'.Range   
//C           Automation   'Microsoft Excel 9.0 Object Library'.Comment   
//Kommentar   Text                                                             250

CREATE(Appl);
Appl.VISIBLE := TRUE;
WBs := Appl.Workbooks;
WB := WBs.Open('C:/testen/testcomment');  //Arbeitsmappe
WS := WB.ActiveSheet;
R := WS.Range('A1');                      //Zelle mit auszulesenden Kommentar
C := R.Comment;
Kommentar := C.Text;
Appl.Quit;
MESSAGE('C=%1',Kommentar);


...................

Zuletzt geändert von wanmat am 2. Januar 2014 21:36, insgesamt 1-mal geändert.

...................

Zuletzt geändert von wanmat am 2. Januar 2014 21:37, insgesamt 1-mal geändert.

Hallo,

kann es daran liegen, das an dem eingelesenen Feld kein Kommentar hinterlegt war?

Evtl. mit

Code:

if ISCLEAR(C) then
  Kommentar := C.text;

arbeiten

Gruß, Fiddi

...................

Zuletzt geändert von wanmat am 2. Januar 2014 21:36, insgesamt 1-mal geändert.

Sorry, war natürlich so gemeint

Code:

if not ISCLEAR(C) then
  Kommentar := C.text;

Gruß, Fiddi