[xyzzy:02863] Re: 編集のしかたは？

[HATTORI Masashi <hattori@xxxxxxxxxxxxxxxx>]

こすめさん、こんにちは。

Fri, 25 Jun 1999 12:09:58 +0900 の
[xyzzy:02862] Re: 編集のしかたは？ より

> 感動です！！できましたよ(^o^

おめでとうございます。＼(^o^)／

> あとは、エクセルでのラベル印刷だけです
> これは何とかなりそうです(^^;;

ちょっと見てみたんですが、Excelってラベル印刷は直接できない
のかな？
 -- Wordから差込印刷
 -- Accessからリンクしてレポート
という方法しかみつかりませんでした。

ラベル印刷目的なら、宛名印刷ソフトとかで読み込むのがあとあと何
かと楽そう。


もういらないものですが、oletest.lを見ながら、Excelを直接呼び出
して書き込むのを作ってみました。

---bar3.l---------------------------------------------------
(require "ole")

(defun bar3 ()
  (interactive)
  (let (app (row 1) (col 1))
    (setq app (ole-create-object "Excel.Application"))
    (setf #{app.Visible} t)
    #{app.Workbooks.Add}
    (save-excursion
      (beginning-of-buffer)
      (while (scan-buffer "\
名　　前：　\\(.*\\)
郵便番号：　\\(.*\\)
住　　所：　\\(.*\\)" :regexp t :tail t)
	(setq col 1)
	(dotimes (x 3)
	  (setf #{app.Cells[row][col]} (match-string col))
	  (setq col (+ col 1)))
	(setq row (+ row 1))))))
---bar3.l---------------------------------------------------

-----
 　　　。　　　　。　　　　　　　　　。
 　　　　　　　　　　。
 。    服部 昌司    >^)))彡    
 　。　　　　gyo@xxxxxxxxxxxxxx