Artifact 186c1193f2c37296e84795c785101adf0752acbf9674d2b975ca8272003bfa36:
- File examples/sample4.tcl — part of check-in [f4f5f9cdf6] at 2018-08-17 11:42:22 on branch trunk — added examples 4+5 (user: alex size: 416)
#!/bin/sh #\ exec tclsh8.6 "$0" "$@" lappend auto_path . package require ooxml source array.tcl set spreadsheet [::ooxml::xl_write new -creator {Alexander Schöpe}] if {[set sheet [$spreadsheet worksheet {Tabelle 1}]] > -1} { $spreadsheet row $sheet $spreadsheet cell $sheet 3 $spreadsheet cell $sheet 5 $spreadsheet cell $sheet {} -formula A1+B1 $spreadsheet write export4.xlsx } $spreadsheet destroy