Πώς να δημιουργήσετε γραφήματα του Excel σε Vb.Net

Microsoft Excel είναι ένα δημοφιλές πρόγραμμα υπολογιστικών φύλλων που δημιουργεί , επίσης, διαγράμματα και γραφικές παραστάσεις από όλες τις ποικιλίες . Μέρος του Microsoft Office , Excel κάνει την προβολή και ανάλυση των δεδομένων γρήγορη και εύκολη . Ωστόσο , εάν θέλετε να δημιουργήσετε ένα μεγάλο αριθμό των charts και το κάνει με το χέρι μπορεί να είναι χρονοβόρα και επιρρεπής σε λάθη . Αντ 'αυτού , μπορείτε να χρησιμοποιήσετε το Microsoft Visual Basic . NET , νέες και βελτιωμένες γλώσσας προγραμματισμού Visual Basic της Microsoft , για να αυτοματοποιήσει την εργασία . Ενσωματωμένη ενοποίηση Excel το κάνει ένα αεράκι . Τα πράγματα που θα χρειαστείτε για Microsoft Excel (δημιουργός ή έκδοση Professional ) για Microsoft Visual Basic . NET
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic . NET και να δημιουργήσει ένα νέο έργο . 2

κάντε δεξί κλικ στο έργο σας και επιλέξτε Προσθήκη αναφοράς . Πηγαίνετε στην καρτέλα COM και κάντε κλικ στο Microsoft Excel Object Library . Κάντε κλικ στο OK .
Εικόνων 3

Προσθέστε κώδικα στο Κύρια λειτουργία του έργου σας για να δημιουργήσετε ένα νέο στιγμιότυπο της εφαρμογής Excel . Θα πρέπει να μοιάζει κάπως έτσι :

Dim excelApp Όπως New Microsoft.Office.Interop.Excel.Application ( )
Η 4

Προσθήκη κώδικα για να δημιουργήσετε ένα νέο υπολογιστικό φύλλο . Για παράδειγμα :

Δημ. wb Όπως Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ( )
5

Προσθήκη κώδικα για να ανακτήσετε το πρωτογενές φύλλο εργασίας από το υπολογιστικό φύλλο . Για παράδειγμα :

Dim φύλλο Όπως Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
Η 6

Προσθήκη δεδομένων στο υπολογιστικό φύλλο . Για παράδειγμα , για να ορίσετε την τιμή στο επάνω αριστερό κελί του υπολογιστικού φύλλου ( κελί A1 ) σε 5 , το κελί A2 έως 8 , και Α3 έως 4 , γράψτε τον ακόλουθο κώδικα :

sheet.Cells ( 1 , 1 ) . Value = 5sheet.Cells ( 1 , 2 ) . Value = 8sheet.Cells ( 1 , 3 ) . Value = 4

Κάντε το αυτό για όλα τα δεδομένα που θέλετε να χρησιμοποιήσετε στο γράφημά σας .
Η 7

Προσθήκη κώδικα για να δημιουργήσετε το γράφημα :

Dim διάγραμμα Όπως Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add ( ) chart.ChartWizard ( φύλλο . Range ( "A1 : A3" ) , Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn , , Excel.XlRowCol.xlColumns )
8

Προσθήκη κώδικα για να δημιουργήσει τη σειρά δεδομένων για το γράφημα :

Dim σειρά Όπως Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection ( 1 ) series.XValues ​​= sheet.Range ( "A1 " , " A3" )
Η 9

Το διάγραμμά σας έχει πλέον ολοκληρωθεί . Μπορείτε να προσαρμόσετε περαιτέρω χρησιμοποιώντας τις λειτουργίες που παρέχονται από το Γραφείο Developer Center του Δικτύου προγραμματιστές της Microsoft στο http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart ( office.11 ​​) . Aspx
Η
εικόνων