ειμαι καινουργιος εδω και θα ηθελα την βοηθεια σας σε ενα προγραμμα ποθυ θελω να φτιαξω.

Όπως κι εγώ, την πρώτη φορά δεν έγραψα με Ελληνικά, επειδή δεν διάβασα τους κανόνες καθαρά :)

Πρέπει να το διορθώσεις!

 

---

1) άλλο XML άλλο Excel! (XLS)

2)τι ενοεις τροποποιεί? να ανοίγεις την εφαρμογή excel μεσα ασπο την εφαρμογή σου θες να κάνεις "δικο σου" excel?

3)κανείς δεν θα σου δώσει την λυση ολη έτοιμη απλα αν γινεις ποιο σαφείς τις καταληλες κατευθυντήριες γραμμές που πρεπει να ακολουθήσεις ωστε εσυ να κανεις το προγραμμα οχι αλλος για σενα ;-)

---

This Business Is Binary. You are a 1 or a 0. Alive or Dead.-

δεν ειπα αυτο

το μονο που ζηταω ειανι καποιοσ να με βοηθησει ετσι ωστε το προγραμμα να ανοιγει τα excel files και οπως ειπα ο χρηστης να μπορει να τα διαχηριζετε

δοκίμασε αυτό το Link

http://blogs.msdn.com/erikaehrli/archive/2005/08/26/hostofficeinnet.aspx

 

---

I hear and I forget. I see and I remember. I do and I understand

Κάνεις add reference στο project σου το Microsoft.Office.Interop.Excel 11.0 ή 12.0, όποιο θες.


 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)
 xlBook = xlApp.Workbooks.Open(your_filepath_as_string)

 For o = 1 To 12
                    xlSheet = CType(xlBook.Worksheets(o), Excel.Worksheet)
                    For j As Integer = 2 To 32
                        range1 = xlSheet.Range("A" & j)
                        range2 = xlSheet.Range("B" & j)
                        If range2.Value <> Nothing Then
                            SQLCmnd = New SqlCommand("INSERT INTO Eortes  VALUES ('" & range1.Value & "/" & o & "', '" & range2.Value & "');", SQLConn)
                            SQLCmnd.ExecuteNonQuery()
                        End If
                    Next
                Next
   xlBook.Close(False)
   xlApp.Quit()

Επεξήγηση:
Παίρνει από τα πρώτα 12 worksheets του αρχείου xls και διαβάζει τις εγγραφές στα κελία Α2:Α32 και Β2:Β32 και τις περνάει και στην βάση. Το παρόν είχε χρησιμοποιηθεί για αρχικοποίηση sql table με ονόματα εορτών. 2-32 για τις μέρες του μήνα και η μεταωλητη o, ως μήνας με τιμές από 1 έως 12.
Επίσης, στην xlBook.Close(False), γράφουμε false για να μην αποθηκευτούν αλλαγές που τυχόν κάναμε στο αρχείο xls. Εάν θέλεις να αποθηκεύονται οι αλλαγές σου γράφεις True, ενώ εάν επιθυμείς να σου πετάει save msgbox αστο χωρίς όρισμα.
Όλα τα παραπάνω είναι για διαχείριση του αρχείου προγραμματιστικά. Από την άλλη υπάρχει έτοιμο .COM component Microsoft Office Spreadsheet 10.0 και 11.0, που μπορείς να το κάνει add στα υπάρχοντα, πατώντας στο toolbox δεξί click και μετά choose items.

Ελπίζω να βοήθησα :D

---

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.

Από όσο γνωρίζω έχει σημασία ποια έκδοση θα κάνεις reference, για να τις έχεις και τις δύο,
μάλλον έκανες install και τις δύο εγκαταστάσεις Office Interop Assemblies. Υπάρχει μία για 2003
και μία για 2007. Ανάλογα ποια θα χρησιμοποιήσεις, πρέπει να υπάρχει και η αντίστοιχη εγκατάσταση
στον client.

Ακόμη για να πετύχεις κάτι τέτοιο υπάρχει και η δυνατότητα να κάνεις χρήση του OLE DB Provider 4.0
για να συνδεθείς σε ISAM Databases, όπως είναι και το Excel, χρησιμοποιώντας ADO Connection Object.

Δες αυτό το link.

---

earthcat:

δεν ειπα αυτο

μεσα απο το προγραμμα που θελω να φτιαξω θελω να ανοιγει excel files 

και ο χρηστησ να μπορει να αλλαζει ονοματα αριθμουσ κ.α

το μονο που ζηταω ειανι καποιοσ να με βοηθησει ετσι ωστε το προγραμμα να ανοιγει τα excel files και οπως ειπα ο χρηστης να μπορει να τα διαχηριζετε

Το Link που σου έδωσα δέν σε βοήθησε?

αυτό που ψάχνεις είναι το Microsoft Developer Support Office Framer Control Sample (KB 311765) 1.3 (Windows)

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/df5dbe2c-eca7-41a8-824b-d9d7224e8ef5

 

Εάν δέν το βρείς για DOWNLOAD δές εδώ

http://software.techrepublic.com.com/thankyou.aspx?&tag=content;leftCol&docid=790009&view=790009

 

---

I hear and I forget. I see and I remember. I do and I understand

Ίσως έχει δίκιο σε αυτό που λέει ο Τάσκος, απλά στο pc μου πέρασα office 2003 και μου πέρασε και τα 2. Εγω σε όλες μου τις εφαρμογές χρησιμοποιώ το latest.

---

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.