Καλημέρα παιδιά,

αυτή τη φορά θα ήθελα την βοήθειά σας σε ένα θέμα που αφορά την αποθήκευση δεδομένων σε ένα .xls αρχείο!

 

 

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)

xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)

temp = System.IO.Path.GetFullPath("Print.xls")

xlBook = xlApp.Workbooks.Open(temp)

xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

'#Διάφορες εντολές

xlBook.PrintOut()

xlApp.Quit()

 

Με τον παραπάνω κώδικα μπορώ και αλλάζω τα δεδομένα στο Print.xls  file και να τα εκτυπώσω..παρόλ' αυτά δεν θέλω ο χρήστης να δέχεται το μνμ για αποθήκευση ή όχι των νέων αλλαγών στο αρχείο! Πως μπορώ να το καταφέρω αυτό?

 

---

No knowledge can be certain, if it is not based
upon mathematics or upon some other knowledge
which is itself based upon the mathematical
sciences.

Δοκίμασε να κάνεις xlBook.Close πριν το Quit. H Close (αν θυμάμαι καλά) δέχεται παράμετρο για το πως θα κάνει το κλείσιμο.

---

Vir prudens non contra ventum mingit

η εντολη (C#)
xlBook.Close(false, Missing.Value, Missing.Value);

κανει αυτο που θελεις, η πρωτη παραμετρος ειναι αυτη για το αν θελεις να κανεις save η οχι. Και οπως σωστα ειπε και ο KelMan, πριν το Quit...

---

Software Engineer, specializes in Microsoft .net/C#, COM, Sql Server and now Python.

Τέλεια! Ευχαριστώ πάρα πολύ!

---

No knowledge can be certain, if it is not based
upon mathematics or upon some other knowledge
which is itself based upon the mathematical
sciences.