请教如何与excel连接储存数据？

huajuanli

请教一下如何建立excel类型库把数据储存到excel里保存？？还有如何保存以建立的新的excel工作簿？

meflying

http://www.mjtd.com/a2/list.asp?id=348

meflying

运行：(main) (defun Exl-Open (filename dmode / appsession)
(princ "\n创建一个新的 Excel 电子表格文件...")
(cond
((setq appsession (vlax-create-object "Excel.Application"))
(vlax-invoke-method (vlax-get-property appsession 'WorkBooks) 'open filename)
(if (= (strcase dmode) "SHOW")
(vla-put-visible appsession 1)
(vla-put-visible appsession 0)
);IF
);COND1
);COND
appsession
)
(defun Exl-quit (appsession)
(cond
((not (vlax-object-released-p appsession))
(vlax-invoke-method appsession 'QUIT)
(vlax-release-object appsession)
)
)
) (defun main( / filename sheet appsession cells workbook)
(setq filename (getfiled "打开存放数据的Excel电子表格文档" "" "XLS" 8))
(if filename
(progn
(setq appsession (Exl-Open filename "HIDE"))
(setq sheet (vlax-get-property appsession 'ActiveSheet))
(setq cells (vlax-get-property sheet 'cells))
(setq val (vlax-put-property cells 'item 1 2 "abc"))
(setq WorkBook (vlax-get-property appsession 'ActiveWorkBook))
(vlax-invoke-method WorkBook 'Save)
(Exl-quit appsession)
)
)
(princ)
)