Smalltalk 如何通过visual works的excel com界面使用集合

Smalltalk 如何通过visual works的excel com界面使用集合,smalltalk,visualworks,Smalltalk,Visualworks,使用Excel COM自动化界面,我可以通过以下操作设置单元格中的值: excel := COMDispatchDriver createObject: 'Excel.Application'. excel getWorkbooks Add. excel setVisible: true. (excel getRange: 'A1') setValue: 100 有没有一种方法可以在收藏中实现这一点,比如: excel := COMDispatchDriver createObject: '

使用Excel COM自动化界面,我可以通过以下操作设置单元格中的值:

excel := COMDispatchDriver createObject: 'Excel.Application'.
excel getWorkbooks Add. 
excel setVisible: true.
(excel getRange: 'A1') setValue: 100
有没有一种方法可以在收藏中实现这一点,比如:

excel := COMDispatchDriver createObject: 'Excel.Application'.
excel getWorkbooks Add. 
excel setVisible: true.
(excel getRange: 'A1:A4') setValue: #(1 2 3 4)
ExcelApplicationController

| cont |
cont := (Examples.Excel97ApplicationController new).
[
  cont addWorkbook.
  cont isVisible: true.

  "Insert the title of our report."
  cont caption: 'First Quarter Results'.

  cont setRange: 'B5:E9'
     to: #( #( 10 20 30 40 ) #( 1 2 3 4 ) #( 101 201 301 401) #( 102 203 305 407 ) ).


] ensure:[
  cont notNil
        ifTrue: [
            cont release.
            cont := nil ]
]