ooxml

Hex Artifact Content
Login

Hex Artifact Content

Download

Artifact a4549c1eb1159a39f7fe481ddd32aefd2ada95cb85e7f73048e2e47c9c769c53:

0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 5c 0a 65 78 65  #!/bin/sh.#\.exe
0010: 63 20 74 63 6c 73 68 38 2e 36 20 22 24 30 22 20  c tclsh8.6 "$0" 
0020: 22 24 40 22 0a 0a 23 70 61 63 6b 61 67 65 20 72  "$@"..#package r
0030: 65 71 75 69 72 65 20 6f 6f 78 6d 6c 0a 73 6f 75  equire ooxml.sou
0040: 72 63 65 20 2e 2e 2f 6f 6f 78 6d 6c 2e 74 63 6c  rce ../ooxml.tcl
0050: 0a 0a 61 72 72 61 79 20 73 65 74 20 77 6f 72 6b  ..array set work
0060: 62 6f 6f 6b 20 5b 6f 6f 78 6d 6c 3a 3a 78 6c 5f  book [ooxml::xl_
0070: 72 65 61 64 20 66 6f 72 6d 38 2e 78 6c 73 78 5d  read form8.xlsx]
0080: 0a 0a 73 65 74 20 64 61 74 61 28 4e 41 4d 45 29  ..set data(NAME)
0090: 20 7b 45 72 69 6b 61 20 4d 75 73 74 65 72 6d 61   {Erika Musterma
00a0: 6e 6e 7d 0a 73 65 74 20 64 61 74 61 28 41 4e 53  nn}.set data(ANS
00b0: 43 48 52 49 46 54 29 20 7b 48 65 69 64 65 73 74  CHRIFT) {Heidest
00c0: 72 61 73 73 65 20 31 37 7d 0a 73 65 74 20 64 61  rasse 17}.set da
00d0: 74 61 28 50 4c 5a 4f 52 54 29 20 7b 35 31 31 34  ta(PLZORT) {5114
00e0: 37 20 4b c3 b6 6c 6e 7d 0a 73 65 74 20 64 61 74  7 Köln}.set dat
00f0: 61 28 70 6f 73 69 74 69 6f 6e 65 6e 29 20 33 0a  a(positionen) 3.
0100: 73 65 74 20 64 61 74 61 28 30 2c 42 45 5a 45 49  set data(0,BEZEI
0110: 43 48 55 4e 47 29 20 7b 4b 6f 70 69 65 72 70 61  CHUNG) {Kopierpa
0120: 70 69 65 72 20 38 30 67 20 35 30 30 20 42 6c 61  pier 80g 500 Bla
0130: 74 74 7d 0a 73 65 74 20 64 61 74 61 28 30 2c 4d  tt}.set data(0,M
0140: 45 4e 47 45 29 20 35 0a 73 65 74 20 64 61 74 61  ENGE) 5.set data
0150: 28 31 2c 42 45 5a 45 49 43 48 55 4e 47 29 20 7b  (1,BEZEICHUNG) {
0160: 4f 72 64 6e 65 72 20 41 34 20 62 72 65 69 74 7d  Ordner A4 breit}
0170: 0a 73 65 74 20 64 61 74 61 28 31 2c 4d 45 4e 47  .set data(1,MENG
0180: 45 29 20 31 0a 73 65 74 20 64 61 74 61 28 32 2c  E) 1.set data(2,
0190: 42 45 5a 45 49 43 48 55 4e 47 29 20 7b 48 61 66  BEZEICHUNG) {Haf
01a0: 74 6e 6f 74 69 7a 65 6e 20 35 78 35 63 6d 20 34  tnotizen 5x5cm 4
01b0: 30 20 42 6c 61 74 74 7d 0a 73 65 74 20 64 61 74  0 Blatt}.set dat
01c0: 61 28 32 2c 4d 45 4e 47 45 29 20 32 0a 0a 66 6f  a(2,MENGE) 2..fo
01d0: 72 65 61 63 68 20 6e 61 6d 65 20 7b 4e 41 4d 45  reach name {NAME
01e0: 20 41 4e 53 43 48 52 49 46 54 20 50 4c 5a 4f 52   ANSCHRIFT PLZOR
01f0: 54 20 50 4f 53 49 54 49 4f 4e 20 42 45 5a 45 49  T POSITION BEZEI
0200: 43 48 55 4e 47 20 4d 45 4e 47 45 7d 20 7b 0a 20  CHUNG MENGE} {. 
0210: 20 73 65 74 20 70 6f 73 69 74 69 6f 6e 28 24 6e   set position($n
0220: 61 6d 65 29 20 7b 7d 0a 7d 0a 66 6f 72 65 61 63  ame) {}.}.foreac
0230: 68 20 7b 6e 61 6d 65 20 76 61 6c 75 65 7d 20 5b  h {name value} [
0240: 61 72 72 61 79 20 67 65 74 20 77 6f 72 6b 62 6f  array get workbo
0250: 6f 6b 20 30 2c 76 2c 2a 5d 20 7b 0a 20 20 69 66  ok 0,v,*] {.  if
0260: 20 7b 5b 73 65 74 20 76 61 6c 75 65 20 5b 73 74   {[set value [st
0270: 72 69 6e 67 20 74 72 69 6d 20 24 76 61 6c 75 65  ring trim $value
0280: 5d 5d 20 69 6e 20 7b 4e 41 4d 45 20 41 4e 53 43  ]] in {NAME ANSC
0290: 48 52 49 46 54 20 50 4c 5a 4f 52 54 20 50 4f 53  HRIFT PLZORT POS
02a0: 49 54 49 4f 4e 20 42 45 5a 45 49 43 48 55 4e 47  ITION BEZEICHUNG
02b0: 20 4d 45 4e 47 45 7d 7d 20 7b 0a 20 20 20 20 6c   MENGE}} {.    l
02c0: 61 73 73 69 67 6e 20 5b 73 70 6c 69 74 20 24 6e  assign [split $n
02d0: 61 6d 65 20 2c 5d 20 73 68 65 65 74 20 74 61 67  ame ,] sheet tag
02e0: 20 72 6f 77 20 63 6f 6c 75 6d 6e 0a 20 20 20 20   row column.    
02f0: 73 65 74 20 70 6f 73 69 74 69 6f 6e 28 24 76 61  set position($va
0300: 6c 75 65 29 20 5b 6c 69 73 74 20 73 68 65 65 74  lue) [list sheet
0310: 20 24 73 68 65 65 74 20 72 6f 77 20 24 72 6f 77   $sheet row $row
0320: 20 63 6f 6c 75 6d 6e 20 24 63 6f 6c 75 6d 6e 5d   column $column]
0330: 0a 20 20 7d 0a 7d 0a 0a 69 66 20 30 20 7b 0a 20  .  }.}..if 0 {. 
0340: 20 73 65 74 20 77 6f 72 6b 62 6f 6f 6b 28 5b 64   set workbook([d
0350: 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f  ict get $positio
0360: 6e 28 4e 41 4d 45 29 20 73 68 65 65 74 5d 2c 76  n(NAME) sheet],v
0370: 2c 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73 69  ,[dict get $posi
0380: 74 69 6f 6e 28 4e 41 4d 45 29 20 72 6f 77 5d 2c  tion(NAME) row],
0390: 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73 69 74  [dict get $posit
03a0: 69 6f 6e 28 4e 41 4d 45 29 20 63 6f 6c 75 6d 6e  ion(NAME) column
03b0: 5d 29 20 24 64 61 74 61 28 4e 41 4d 45 29 0a 20  ]) $data(NAME). 
03c0: 20 73 65 74 20 77 6f 72 6b 62 6f 6f 6b 28 5b 64   set workbook([d
03d0: 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f  ict get $positio
03e0: 6e 28 41 4e 53 43 48 52 49 46 54 29 20 73 68 65  n(ANSCHRIFT) she
03f0: 65 74 5d 2c 76 2c 5b 64 69 63 74 20 67 65 74 20  et],v,[dict get 
0400: 24 70 6f 73 69 74 69 6f 6e 28 41 4e 53 43 48 52  $position(ANSCHR
0410: 49 46 54 29 20 72 6f 77 5d 2c 5b 64 69 63 74 20  IFT) row],[dict 
0420: 67 65 74 20 24 70 6f 73 69 74 69 6f 6e 28 41 4e  get $position(AN
0430: 53 43 48 52 49 46 54 29 20 63 6f 6c 75 6d 6e 5d  SCHRIFT) column]
0440: 29 20 24 64 61 74 61 28 41 4e 53 43 48 52 49 46  ) $data(ANSCHRIF
0450: 54 29 0a 20 20 73 65 74 20 77 6f 72 6b 62 6f 6f  T).  set workboo
0460: 6b 28 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73  k([dict get $pos
0470: 69 74 69 6f 6e 28 50 4c 5a 4f 52 54 29 20 73 68  ition(PLZORT) sh
0480: 65 65 74 5d 2c 76 2c 5b 64 69 63 74 20 67 65 74  eet],v,[dict get
0490: 20 24 70 6f 73 69 74 69 6f 6e 28 50 4c 5a 4f 52   $position(PLZOR
04a0: 54 29 20 72 6f 77 5d 2c 5b 64 69 63 74 20 67 65  T) row],[dict ge
04b0: 74 20 24 70 6f 73 69 74 69 6f 6e 28 50 4c 5a 4f  t $position(PLZO
04c0: 52 54 29 20 63 6f 6c 75 6d 6e 5d 29 20 24 64 61  RT) column]) $da
04d0: 74 61 28 50 4c 5a 4f 52 54 29 0a 0a 20 20 66 6f  ta(PLZORT)..  fo
04e0: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20  r {set i 0} {$i 
04f0: 3c 20 24 64 61 74 61 28 70 6f 73 69 74 69 6f 6e  < $data(position
0500: 65 6e 29 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  en)} {incr i} {.
0510: 20 20 20 20 73 65 74 20 77 6f 72 6b 62 6f 6f 6b      set workbook
0520: 28 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73 69  ([dict get $posi
0530: 74 69 6f 6e 28 50 4f 53 49 54 49 4f 4e 29 20 73  tion(POSITION) s
0540: 68 65 65 74 5d 2c 76 2c 5b 65 78 70 72 20 7b 5b  heet],v,[expr {[
0550: 64 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69  dict get $positi
0560: 6f 6e 28 50 4f 53 49 54 49 4f 4e 29 20 72 6f 77  on(POSITION) row
0570: 5d 20 2b 20 24 69 7d 5d 2c 5b 64 69 63 74 20 67  ] + $i}],[dict g
0580: 65 74 20 24 70 6f 73 69 74 69 6f 6e 28 50 4f 53  et $position(POS
0590: 49 54 49 4f 4e 29 20 63 6f 6c 75 6d 6e 5d 29 20  ITION) column]) 
05a0: 5b 65 78 70 72 20 7b 24 69 20 2b 20 31 7d 5d 0a  [expr {$i + 1}].
05b0: 20 20 20 20 73 65 74 20 77 6f 72 6b 62 6f 6f 6b      set workbook
05c0: 28 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73 69  ([dict get $posi
05d0: 74 69 6f 6e 28 42 45 5a 45 49 43 48 55 4e 47 29  tion(BEZEICHUNG)
05e0: 20 73 68 65 65 74 5d 2c 76 2c 5b 65 78 70 72 20   sheet],v,[expr 
05f0: 7b 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73 69  {[dict get $posi
0600: 74 69 6f 6e 28 42 45 5a 45 49 43 48 55 4e 47 29  tion(BEZEICHUNG)
0610: 20 72 6f 77 5d 20 2b 20 24 69 7d 5d 2c 5b 64 69   row] + $i}],[di
0620: 63 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f 6e  ct get $position
0630: 28 42 45 5a 45 49 43 48 55 4e 47 29 20 63 6f 6c  (BEZEICHUNG) col
0640: 75 6d 6e 5d 29 20 24 64 61 74 61 28 24 69 2c 42  umn]) $data($i,B
0650: 45 5a 45 49 43 48 55 4e 47 29 0a 20 20 20 20 73  EZEICHUNG).    s
0660: 65 74 20 77 6f 72 6b 62 6f 6f 6b 28 5b 64 69 63  et workbook([dic
0670: 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f 6e 28  t get $position(
0680: 4d 45 4e 47 45 29 20 73 68 65 65 74 5d 2c 76 2c  MENGE) sheet],v,
0690: 5b 65 78 70 72 20 7b 5b 64 69 63 74 20 67 65 74  [expr {[dict get
06a0: 20 24 70 6f 73 69 74 69 6f 6e 28 4d 45 4e 47 45   $position(MENGE
06b0: 29 20 72 6f 77 5d 20 2b 20 24 69 7d 5d 2c 5b 64  ) row] + $i}],[d
06c0: 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f  ict get $positio
06d0: 6e 28 4d 45 4e 47 45 29 20 63 6f 6c 75 6d 6e 5d  n(MENGE) column]
06e0: 29 20 24 64 61 74 61 28 24 69 2c 4d 45 4e 47 45  ) $data($i,MENGE
06f0: 29 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 43 65  ).  }.}..proc Ce
0700: 6c 6c 20 7b 20 2a 77 6f 72 6b 62 6f 6f 6b 20 2a  ll { *workbook *
0710: 70 6f 73 69 74 69 6f 6e 20 69 74 65 6d 20 7d 20  position item } 
0720: 7b 0a 20 20 75 70 76 61 72 20 24 7b 2a 77 6f 72  {.  upvar ${*wor
0730: 6b 62 6f 6f 6b 7d 20 77 6f 72 6b 62 6f 6f 6b 0a  kbook} workbook.
0740: 20 20 75 70 76 61 72 20 24 7b 2a 70 6f 73 69 74    upvar ${*posit
0750: 69 6f 6e 7d 20 70 6f 73 69 74 69 6f 6e 0a 0a 20  ion} position.. 
0760: 20 72 65 74 75 72 6e 20 5b 64 69 63 74 20 67 65   return [dict ge
0770: 74 20 24 77 6f 72 6b 62 6f 6f 6b 28 73 68 65 65  t $workbook(shee
0780: 74 6d 61 70 29 20 5b 64 69 63 74 20 67 65 74 20  tmap) [dict get 
0790: 24 70 6f 73 69 74 69 6f 6e 28 24 69 74 65 6d 29  $position($item)
07a0: 20 73 68 65 65 74 5d 5d 0a 7d 0a 0a 70 72 6f 63   sheet]].}..proc
07b0: 20 4f 70 74 69 6f 6e 73 20 7b 20 2a 77 6f 72 6b   Options { *work
07c0: 62 6f 6f 6b 20 2a 70 6f 73 69 74 69 6f 6e 20 69  book *position i
07d0: 74 65 6d 20 7b 72 6f 77 6f 66 66 73 65 74 20 30  tem {rowoffset 0
07e0: 7d 20 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 7b  } } {.  upvar ${
07f0: 2a 77 6f 72 6b 62 6f 6f 6b 7d 20 77 6f 72 6b 62  *workbook} workb
0800: 6f 6f 6b 0a 20 20 75 70 76 61 72 20 24 7b 2a 70  ook.  upvar ${*p
0810: 6f 73 69 74 69 6f 6e 7d 20 70 6f 73 69 74 69 6f  osition} positio
0820: 6e 0a 0a 20 20 73 65 74 20 73 68 65 65 74 20 5b  n..  set sheet [
0830: 64 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69  dict get $positi
0840: 6f 6e 28 24 69 74 65 6d 29 20 73 68 65 65 74 5d  on($item) sheet]
0850: 0a 20 20 73 65 74 20 72 6f 77 20 5b 65 78 70 72  .  set row [expr
0860: 20 7b 5b 64 69 63 74 20 67 65 74 20 24 70 6f 73   {[dict get $pos
0870: 69 74 69 6f 6e 28 24 69 74 65 6d 29 20 72 6f 77  ition($item) row
0880: 5d 20 2b 20 24 72 6f 77 6f 66 66 73 65 74 7d 5d  ] + $rowoffset}]
0890: 0a 20 20 73 65 74 20 63 6f 6c 75 6d 6e 20 5b 64  .  set column [d
08a0: 69 63 74 20 67 65 74 20 24 70 6f 73 69 74 69 6f  ict get $positio
08b0: 6e 28 24 69 74 65 6d 29 20 63 6f 6c 75 6d 6e 5d  n($item) column]
08c0: 0a 0a 20 20 73 65 74 20 6f 70 74 69 6f 6e 73 20  ..  set options 
08d0: 5b 6c 69 73 74 20 2d 69 6e 64 65 78 20 24 72 6f  [list -index $ro
08e0: 77 2c 24 63 6f 6c 75 6d 6e 5d 0a 20 20 69 66 20  w,$column].  if 
08f0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 77 6f  {[info exists wo
0900: 72 6b 62 6f 6f 6b 28 24 73 68 65 65 74 2c 73 2c  rkbook($sheet,s,
0910: 24 72 6f 77 2c 24 63 6f 6c 75 6d 6e 29 5d 7d 20  $row,$column)]} 
0920: 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 6f 70  {.    lappend op
0930: 74 69 6f 6e 73 20 2d 73 74 79 6c 65 20 24 77 6f  tions -style $wo
0940: 72 6b 62 6f 6f 6b 28 24 73 68 65 65 74 2c 73 2c  rkbook($sheet,s,
0950: 24 72 6f 77 2c 24 63 6f 6c 75 6d 6e 29 0a 20 20  $row,$column).  
0960: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 24 6f 70 74  }..  return $opt
0970: 69 6f 6e 73 0a 7d 0a 0a 73 65 74 20 73 70 72 65  ions.}..set spre
0980: 61 64 73 68 65 65 74 20 5b 3a 3a 6f 6f 78 6d 6c  adsheet [::ooxml
0990: 3a 3a 78 6c 5f 77 72 69 74 65 20 6e 65 77 5d 0a  ::xl_write new].
09a0: 24 73 70 72 65 61 64 73 68 65 65 74 20 70 72 65  $spreadsheet pre
09b0: 73 65 74 73 74 79 6c 65 73 20 77 6f 72 6b 62 6f  setstyles workbo
09c0: 6f 6b 0a 24 73 70 72 65 61 64 73 68 65 65 74 20  ok.$spreadsheet 
09d0: 70 72 65 73 65 74 73 68 65 65 74 73 20 77 6f 72  presetsheets wor
09e0: 6b 62 6f 6f 6b 0a 69 66 20 31 20 7b 0a 20 20 24  kbook.if 1 {.  $
09f0: 73 70 72 65 61 64 73 68 65 65 74 20 63 65 6c 6c  spreadsheet cell
0a00: 20 5b 43 65 6c 6c 20 77 6f 72 6b 62 6f 6f 6b 20   [Cell workbook 
0a10: 70 6f 73 69 74 69 6f 6e 20 4e 41 4d 45 5d 20 24  position NAME] $
0a20: 64 61 74 61 28 4e 41 4d 45 29 20 7b 2a 7d 5b 4f  data(NAME) {*}[O
0a30: 70 74 69 6f 6e 73 20 77 6f 72 6b 62 6f 6f 6b 20  ptions workbook 
0a40: 70 6f 73 69 74 69 6f 6e 20 4e 41 4d 45 5d 0a 20  position NAME]. 
0a50: 20 24 73 70 72 65 61 64 73 68 65 65 74 20 63 65   $spreadsheet ce
0a60: 6c 6c 20 5b 43 65 6c 6c 20 77 6f 72 6b 62 6f 6f  ll [Cell workboo
0a70: 6b 20 70 6f 73 69 74 69 6f 6e 20 41 4e 53 43 48  k position ANSCH
0a80: 52 49 46 54 5d 20 24 64 61 74 61 28 41 4e 53 43  RIFT] $data(ANSC
0a90: 48 52 49 46 54 29 20 7b 2a 7d 5b 4f 70 74 69 6f  HRIFT) {*}[Optio
0aa0: 6e 73 20 77 6f 72 6b 62 6f 6f 6b 20 70 6f 73 69  ns workbook posi
0ab0: 74 69 6f 6e 20 41 4e 53 43 48 52 49 46 54 5d 0a  tion ANSCHRIFT].
0ac0: 20 20 24 73 70 72 65 61 64 73 68 65 65 74 20 63    $spreadsheet c
0ad0: 65 6c 6c 20 5b 43 65 6c 6c 20 77 6f 72 6b 62 6f  ell [Cell workbo
0ae0: 6f 6b 20 70 6f 73 69 74 69 6f 6e 20 50 4c 5a 4f  ok position PLZO
0af0: 52 54 5d 20 24 64 61 74 61 28 50 4c 5a 4f 52 54  RT] $data(PLZORT
0b00: 29 20 7b 2a 7d 5b 4f 70 74 69 6f 6e 73 20 77 6f  ) {*}[Options wo
0b10: 72 6b 62 6f 6f 6b 20 70 6f 73 69 74 69 6f 6e 20  rkbook position 
0b20: 50 4c 5a 4f 52 54 5d 0a 20 20 66 6f 72 20 7b 73  PLZORT].  for {s
0b30: 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 64  et i 0} {$i < $d
0b40: 61 74 61 28 70 6f 73 69 74 69 6f 6e 65 6e 29 7d  ata(positionen)}
0b50: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
0b60: 24 73 70 72 65 61 64 73 68 65 65 74 20 63 65 6c  $spreadsheet cel
0b70: 6c 20 5b 43 65 6c 6c 20 77 6f 72 6b 62 6f 6f 6b  l [Cell workbook
0b80: 20 70 6f 73 69 74 69 6f 6e 20 50 4f 53 49 54 49   position POSITI
0b90: 4f 4e 5d 20 5b 65 78 70 72 20 7b 24 69 20 2b 20  ON] [expr {$i + 
0ba0: 31 7d 5d 20 7b 2a 7d 5b 4f 70 74 69 6f 6e 73 20  1}] {*}[Options 
0bb0: 77 6f 72 6b 62 6f 6f 6b 20 70 6f 73 69 74 69 6f  workbook positio
0bc0: 6e 20 50 4f 53 49 54 49 4f 4e 20 24 69 5d 0a 20  n POSITION $i]. 
0bd0: 20 20 20 24 73 70 72 65 61 64 73 68 65 65 74 20     $spreadsheet 
0be0: 63 65 6c 6c 20 5b 43 65 6c 6c 20 77 6f 72 6b 62  cell [Cell workb
0bf0: 6f 6f 6b 20 70 6f 73 69 74 69 6f 6e 20 42 45 5a  ook position BEZ
0c00: 45 49 43 48 55 4e 47 5d 20 24 64 61 74 61 28 24  EICHUNG] $data($
0c10: 69 2c 42 45 5a 45 49 43 48 55 4e 47 29 20 7b 2a  i,BEZEICHUNG) {*
0c20: 7d 5b 4f 70 74 69 6f 6e 73 20 77 6f 72 6b 62 6f  }[Options workbo
0c30: 6f 6b 20 70 6f 73 69 74 69 6f 6e 20 42 45 5a 45  ok position BEZE
0c40: 49 43 48 55 4e 47 20 24 69 5d 0a 20 20 20 20 24  ICHUNG $i].    $
0c50: 73 70 72 65 61 64 73 68 65 65 74 20 63 65 6c 6c  spreadsheet cell
0c60: 20 5b 43 65 6c 6c 20 77 6f 72 6b 62 6f 6f 6b 20   [Cell workbook 
0c70: 70 6f 73 69 74 69 6f 6e 20 4d 45 4e 47 45 5d 20  position MENGE] 
0c80: 24 64 61 74 61 28 24 69 2c 4d 45 4e 47 45 29 20  $data($i,MENGE) 
0c90: 7b 2a 7d 5b 4f 70 74 69 6f 6e 73 20 77 6f 72 6b  {*}[Options work
0ca0: 62 6f 6f 6b 20 70 6f 73 69 74 69 6f 6e 20 4d 45  book position ME
0cb0: 4e 47 45 20 24 69 5d 0a 20 20 7d 0a 7d 0a 24 73  NGE $i].  }.}.$s
0cc0: 70 72 65 61 64 73 68 65 65 74 20 77 72 69 74 65  preadsheet write
0cd0: 20 65 78 70 6f 72 74 38 2e 78 6c 73 78 0a 24 73   export8.xlsx.$s
0ce0: 70 72 65 61 64 73 68 65 65 74 20 64 65 73 74 72  preadsheet destr
0cf0: 6f 79 0a 0a                                      oy..