[xyzzy:01914] RE: OLE 対応、ありがとうございました

["Hiroyasu Ohasi" <hohasi@xxxxxxxxxxxxxxxx>]

大橋です。自己レスです。

大橋>最後にひとつ質問ですが、VBですと、for each ... next という構文で、
dolistによ
大橋>うにOLEのコレクションの各要素をなめながらループ処理できるのですが、ｘｙ
ｚｚ
大橋>ｙ Lispではどう書けばよろしいのでしょうか。


すいません、意味のない質問を書いてしまいました。
countプロパティの回数分、ループすればいいだけですよね。

たとえば、

; 意味もなく全部のシートに「東西南北」を書き込む
(setq application (ole-create-object "Excel.Application"))
(ole-putprop application 'visible 1)
(setq workbook (ole-method (ole-getprop application 'Workbooks) 'Add))
(setq numbers-of-worksheets
      (ole-getprop
       (ole-getprop workbook 'worksheets)
       'count))
(setq worksheet-index 1)
(while (<= worksheet-index numbers-of-worksheets)
  (setq worksheet
 (ole-getprop workbook 'Worksheets worksheet-index))
  (ole-putprop (ole-method worksheet 'Range "A1:D1")
        'value #("東" "西" "南" "北"))
  (setq worksheet-index (+ worksheet-index 1)))

注: 未だにdotimesがマスターできないので、whileを使わせていただきました。

大橋 弘靖 <hohasi@xxxxxxxxxxxxxxxx>