ooxml

Artifact 8078cc94047d5042c17b206b5626b77d17d4d64517420eafd8180def2d629ab9:

• Executable file examples/sample9.tcl — part of check-in [cbe5996815] at 2024-04-16 12:40:54 on branch hyperlinks — xl_write hyperlinks with tooltip; example 9 (user: alex size: 726) [more...]

#!/bin/sh
#\
exec tclsh8.6 "$0" "$@"

set auto_path [linsert $auto_path 0 ..]
if {[catch {package require ooxml}]} {
  source ../ooxml.tcl
}

source array.tcl

set spreadsheet [::ooxml::xl_write new -creator {Steve Landers}]
if {[set sheet [$spreadsheet worksheet {Table 1}]] > -1} {
  $spreadsheet row $sheet
  $spreadsheet cell $sheet {} -hyperlink {https://fossil.sowaswie.de/ooxml/timeline}
  $spreadsheet row $sheet
  $spreadsheet cell $sheet {ooXML Home} -hyperlink {https://fossil.sowaswie.de/ooxml/}
  $spreadsheet row $sheet
  $spreadsheet cell $sheet {check tooltip} -hyperlink {https://fossil.sowaswie.de/ooxml/wiki?name=man-page} -tooltip {ooXML Manual Page}
}
$spreadsheet write export9.xlsx
$spreadsheet destroy