close and save excel

[RepCad]

Hi guys, I open excel file and then close it after edit via autolisp, it works correctly , but Changes don't save :

 

  (vlax-invoke-method wbk 'Close :vlax-true)
  (vlax-release-object wbk)
  (vlax-invoke-method excel 'Quit)
  (vlax-release-object excel)

 

can anyone help me?

[rlx]

(vl-catch-all-apply 'vlax-invoke-method (list wbk "Save"))) ?

 

[RepCad]

Yes, I put put that code but it doesn't save again : 

 

(vl-catch-all-apply
    'vlax-invoke-method
    (list wbk "Save")
  )

  (vlax-invoke-method wbk 'Close :vlax-true)
  (vlax-release-object wbk )
  (vlax-invoke-method excel 'Quit)
  (vlax-release-object excel)

 

[rlx]

hard to tell without sample from your lisp and your excel workbook. You could try to find out if saving works at all

(if (vl-catch-all-error-p (setq err (vl-catch-all-apply 'vlax-invoke-method (list wbk "Save"))))
    (prompt (strcat "\nError: " (vl-catch-all-error-message err))))

 

make sure you are saving the workbook and not just the active sheet

 

maybe this is a good read : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/save-and-close-excel-worksheet/td-p/864033

 

there a many excel posts on this forum (Bigal even wants to give them their own seperate forum )

 

GetExcel.lsp

Edited March 2, 2019 by rlx

[RepCad]

Thank you for the lisp, I have another question, how can I find last row in column, for example column "A" ? (via autolisp)

[rlx]

in my loop generator app (LG) I use :

(if (and LG-ExcelApp LG-ExcelWorkBook LG-ExcelSheet)
    (progn
      (setq CurRegion (vlax-get-property  LG-ExcelSheet 'UsedRange))
      (setq LG-XlsMaxRow (vlax-get-property (vlax-get-property CurRegion "Rows") "Count"))
      (setq LG-XlsMaxCol (1+ (vlax-get-property (vlax-get-property CurRegion "Columns") "Count"))))))

just subst. your names for the excel-app / workbook / sheetname