Visual basic και excel

[πc stratos]

καλημερα,

εχω την εξης απορια

μεσω της VB 2010 πως μπορω να παιρνω και να δινω δεδομενα σε ενα excel αρχειο;

και πρωτα απο ολα γινεται;αν υπαρχει καποιο tutorial ή παραδειγμα μπορειτε να μου το στειλετε;γιατι με ενα γρηγορο search δεν βρηκα κατι κατανοητο

[Tmark]

Χρειάζεσαι OLE Db Jet provider. Ψάξτο λίγο στο google.

[moukoublen]

Αν έχεις εγκατεστημένο το office τότε κατά πασα πιθανότητα θα σου έχει εγκαταστήσει τις COM η .Net βιβλιοθήκες του τις οποιες μπορείς να κανεις "Add" στα references στο project σου.

 

Έπειτα πρέπει να ψάξεις πως γίνεται η όλη ιστορία.

Είναι σχετικά εύκολη αλλα και κάπως χύμα.

 

Εγώ έχω κάνει διαφορα αλλα σε C# και μονο για εγγραφη σε excel (Για export report).

 

 

Αυτο εδώ γράφει ενα DataSet σε Excel αλλά είναι λίγο παλιό.

 

Γενικά ψάξε στο google "Write Excel Visual Basic 2010" ή διάφορα αλλα παρόμοια.

 

Δες ποια είναι και πως χρησιμοποιούνται τα βασικά αντικείμενα.

 

EDIT

 

Δες και εδώ.

[nspyrou]

Μπορείς να χρησιμοποιήσεις τους ISAM drivers για σύνδεση μέσω OLEDB. Σου δίνει την δυνατότητα να συνδεθείς μέσω ConnectionString, με OLEDBConnection, και Select statements για να πάρεις τα δεδομένα των WorkSheets.

 

Σχετικό παράδειγμα θα βρείς εδώ

[NikosKallithea]

καλημερα,

εχω την εξης απορια

μεσω της VB 2010 πως μπορω να παιρνω και να δινω δεδομενα σε ενα excel αρχειο;

και πρωτα απο ολα γινεται;αν υπαρχει καποιο tutorial ή παραδειγμα μπορειτε να μου το στειλετε;γιατι με ενα γρηγορο search δεν βρηκα κατι κατανοητο

 

 

Να υποθεσω οτι η 2010 ειναι περιπου ιδια με την 6 τοτε μπορεις να βγαλεις ακρη απο τον παρακατω κωδικα

 

>
nameexcel = "Nikos.xls"


      'SYNDEEI THN VBASIC ME TO EXCEL
      Set exc = CreateObject("Excel.application")
     
      'APOKRYPSH TOY EXEL
      exc.Visible = False
      
      'ANOIFEI TO PARAPANW ARXEIO KAI FYLO TOY EXCEL
      exc.workbooks.Open FileName:=nameexcel, ReadOnly:=False, ignoreReadOnlyRecommended:=True

      exc.Worksheets(1).Select 'TO MARKAREI
      exc.Worksheets(1).Activate 
      
      exc.cells(45, 5).Value = "GRAFW KATI STO EXCEL KELI 45 KATHETA 5 ORIZONTIA"
             
      originaltxt = exc.cells(33, 4).Value 'DIADAZW KATI APO TO EXCEL
                 
      exc.ActiveWorkbook.Save 'KANW SAVE TO ARXEIO
      exc.Quit 'APOSYNDEOMAI APO TO EXCEL

[πc stratos]

ok guys σας ευχαριστω παρα πολυ να στε καλα