Помогите найти ошибку. Программа выгружает данные из AutoCad в Excel/

((defun writeex10_com (shname1 shname2 bname /)
(vl-load-com)
(setq g_oex (vlax-get-or-create-object "Excel.Application.10"))
(vlax-put-property g_oex 'SheetsInNewWorkbook 2)
(vlax-put-property g_oex 'Visible :vlax-true)
(setq q_wbs (vlax-put-property g_oex 'Workbooks))
(setq g_cb (vlax-invoke-method g_wbs 'add))
(setq g_shs (vlax-get-property g_cb 'sheets))
(setq g_csh (vlax-get-property g_shs 'Item 1))
(vlax-put-property g_csh 'Name shname1)
(setq g_sh2 (vlax-get-property g_shs 'Item 2))
(vlax-put-property g_sh2 'Name shname2)
(setq g_r1 (vlax-get-property g_oex "Range" "B3:B3"))
(vlax-invoke-method g_sh2 'Activate)
(setq g_r2 (vlax-get-property g_oex "Range" "A2:C4"))
(vlax-invoke-method g_sh 'Activate)
(vlax-put-property g_r1 "Value2" 1234)
(vlax-put-property g_r2 "Value2" "Пишу в тишине")
(setq g_cr (vlax-get-property g_csh 'Range "E7"))
(vlax-put-property g_cr "Value2" -17.873)
(vlax-invoke-method g_cb 'SaveAs bname -4143 "" ""
:vlax-false :vlax-false nil)
(vlax-invoke-method g_oex "Quit")
(if (and g_cr (not (vlax-object-released-p g_cr)))
(vlax-release-object g_cr))
(if (and g_r2 (not (vlax-object-released-p g_r2)))
(vlax-release-object g_r2))
(if (and g_r1 (not (vlax-object-released-p g_r1)))
(vlax-release-object g_r1))
(if (and g_csh (not (vlax-object-released-p g_csh)))
(vlax-release-object g_csh))
(if (and g_sh2 (not (vlax-object-released-p g_sh2)))
(vlax-release-object g_sh2))
(if (and g_shs (not (vlax-object-released-p g_shs)))
(vlax-release-object g_shs))
(if (and g_cb (not (vlax-object-released-p g_cb)))
(vlax-release-object g_cb))
(if (and g_wbs (not (vlax-object-released-p g_wbs)))
(vlax-release-object g_wbs))
(if (and g_oex (not (vlax-object-released-p g_oex)))
(vlax-release-object g_oex))
(setq g_cr nil g_r2 nil g_r1 nil g_csh nil g_sh2 nil
g_shs nil g_cb nil g_wbs nil g_oex nil)
(gc)
)