Πώς να μετατρέψετε τιμές πίνακα σε μορφή XLS σε VB.NET

A " DataTable " είναι ένα αντικείμενο VB.NET που σας επιτρέπει να εμφανίσετε τα δεδομένα σε στήλες και σειρές για τους αναγνώστες σας . Μπορείτε να εξάγετε DataTable πληροφορίες για μια σειρά - με - σειρά υπολογιστικό φύλλο Excel . VB.NET περιλαμβάνει μια βιβλιοθήκη τύπων του Excel , έτσι ώστε να μην χρειάζεται να εγκαταστήσετε εφαρμογές τρίτων για να δημιουργήσετε το φύλλο . Το αρχείο είναι αποθηκευμένο στον server με μια εφαρμογή Web ή στο σκληρό δίσκο του χρήστη σας με ένα desktop εφαρμογή . Οδηγίες
Η

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

Κάντε κλικ στο "Αρχείο " μενού και επιλέξτε " Άνοιγμα έργου ". Κάντε διπλό κλικ στο αρχείο έργου VB.NET να φορτώσει τον κώδικα . Στο δεξιό " Λύση Explorer " πίνακα, κάντε δεξί κλικ στο αρχείο που θέλετε να χρησιμοποιείτε για να εξαγάγετε τα δεδομένα και επιλέξτε " Προβολή κώδικα ".
Εικόνων 3

Προσθέστε τη βιβλιοθήκη του συστήματος που περιέχει το Excel λειτουργίες στην αρχή του αρχείου :

Εισαγωγές Excel = Microsoft.Office.Interop.Excel
Η 4

Δημιουργήστε ένα νέο υπολογιστικό φύλλο για να φορτώσει τις λειτουργίες του Excel και να δημιουργήσετε ένα νέο υπολογιστικό φύλλο με το όνομα " παραγγελίες " :

app = νέα Excel.Application ( )

φύλλο = ( Excel.Worksheet ) app.ActiveSheet

sheet.Name = " εντολές "

5

επαναλάβει μέσα από κάθε γραμμή του πίνακα και να το γράψετε στο υπολογιστικό φύλλο :

Δημ. μετράνε As Integer = 1

για κάθε γραμμή Όπως DataRow σε table.Rows

μετράνε + = 1

Για j As Integer = 1 Για να table.Columns.Count

Αν count = 2 τότε

sheet.Cells ( 1 , j) = τραπέζι. στήλες . ( j - 1 ) ColumnName

End If

sheet.Cells ( καταμέτρηση , j ) = row.Item ( j - 1 ) . ToString

Επόμενο

Επόμενο
Η 6

Αποθηκεύστε τις αλλαγές στο αρχείο " orders.xls " και κλείστε το βιβλίο εργασίας :

app.SaveAs ( " orders.xls " )

app.Close ( )
Η
εικόνων