#
# dostep do modelu obiektowego Excela ...
#

lappend auto_path {D:\TclTk\tcom\lib\tcom}
package require tcom

set app [::tcom::ref createobject "Excel.Application"]
$app Visible 1
set wkbs [$app Workbooks]
set wkb [$wkbs Add]
set wkss [$wkb Worksheets]
set wks [$wkss Item [expr 1]]

set r1 [$wks Range "A1"]
set r2 [$wks Range "A2"]
set wy [$wks Range "B1"]
$wy Formula =A1+A2

$r1 Formula 1111; $r2 Formula 2222; $wy Value
  #% 3333.0