Πώς να εξαγάγετε από το σύνολο δεδομένων στο φύλλο του Excel χρησιμοποιώντας το Vb.Net

. NET Μια δέσμη παρέχει μια εφαρμογή με μια λίστα των εγγραφών . Το λογισμικό ανακτά το σύνολο δεδομένων από μια βάση δεδομένων , ή μπορείτε να δημιουργήσετε ένα σύνολο δεδομένων από τις τιμές που εισάγει ο χρήστης . Για να εξαγάγετε το σύνολο δεδομένων σε ένα αρχείο Excel , χρησιμοποιήστε τα . Βιβλιοθήκες NET Excel περιλαμβάνεται με το NET γλώσσα προγραμματισμού . . Προγραμματιστές χρησιμοποιούν τη διαδικασία εξαγωγής που επιτρέπει στους χρήστες να μεταφέρουν δεδομένα και να το αποθηκεύσετε σε μορφή αρχείου XLS . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft . NET Framework , " και στη συνέχεια κάντε κλικ στο κουμπί " Visual Studio . " Ανοίξτε σας . NET έργου στο πρόγραμμα επεξεργασίας . 2

Κάντε διπλό κλικ στο . NET κώδικα του αρχείου που θέλετε να χρησιμοποιείτε για να εξαγάγετε τα δεδομένα . Δημιουργήστε τις μεταβλητές του Excel για τα στοιχεία του βιβλίου εργασίας , την εφαρμογή και φύλλο :

Dim app As New Microsoft.Office.Interop.Excel.ApplicationClass

Dim wb Όπως Microsoft.Office.Interop.Excel.Workbook

Dim ws Όπως Microsoft.Office.Interop.Excel.Worksheet
εικόνων 3

Loop μέσα από κάθε στοιχείο δέσμη και να προσθέσετε το στοιχείο σε μια στήλη του Excel . Ο ακόλουθος κώδικας δείχνει πώς μπορείτε να βρόχο μέσω ενός συνόλου δεδομένων και την εξαγωγή του τομέα δέσμη σε ένα σχετικό στήλη του Excel :

Dim i As Integer

Dim k As Integer

Για στήλες = 0 Για να ds.Tables ( 0 ) Columns.Count - . 1.

Για γραμμή = 0 Για να ds.Tables ( 0 ) Rows.Count - . 1

Cells ( i , k ) . Value = ds.Tables ( 0 ) . Γραμμές ( γραμμή ) . ItemArray ( στήλες)

i + = 1

Επόμενο

k + = 1

Next
Η 4

Αποθηκεύστε τα δεδομένα σε ένα υπολογιστικό φύλλο του Excel . Ο ακόλουθος κώδικας δείχνει πώς μπορείτε να αποθηκεύσετε τα δεδομένα σε ένα αρχείο με όνομα " ExcelExport.xlsx " :

excelname = "c : \\ ExcelExport.xlsx "

Excel.ActiveCell.Worksheet.SaveAs ( excelname )
Η
εικόνων