Artifact ef284e6e426a21777a0606bf208454e165c571fb64ed2d7f6a5fde8f6ee911cb:

• Executable file examples/xlsx-complexReadWrite.tcl — part of check-in [1cea2380dc] at 2025-03-06 10:44:11 on branch trunk — Reorganized sample files. (user: alex size: 372) [more...]

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

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

array set workbook [ooxml::xl_read original_excel.xlsx]

set spreadsheet [::ooxml::xl_write new]
$spreadsheet presetstyles workbook
$spreadsheet presetsheets workbook
$spreadsheet write complexReadWrite.xlsx
$spreadsheet destroy