Πώς να αντιγράψετε το κείμενο από κινητό DataGridView στο Excel

Εξαγωγή δεδομένων από τον έλεγχο DataGridView σας στο Microsoft Excel μπορείτε να εξοικονομήσετε χρόνο με την εξάλειψη βήματα, όταν θα πρέπει να αντιγράψετε τα δεδομένα στο Excel . Στη Visual Basic , μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη αντικειμένων του Microsoft Excel για την εξαγωγή δεδομένων από την εφαρμογή σας . Ο έλεγχος DataGridView παρέχει ένα προσαρμόσιμο πίνακα για την εμφάνιση δεδομένων . Ο έλεγχος μπορεί να συμπληρωθεί με το χέρι , ή μπορείτε να εμφανίσετε δεδομένα από βάσεις δεδομένων και άλλες πηγές δεδομένων με χρήση του " DataSource " ιδιοκτησίας. Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express . Κάντε κλικ στο " New Project ... " για το αριστερό τμήμα του παραθύρου της οθόνης σας , και στη συνέχεια επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK " για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " DataGridView " στο " Toolbox" παράθυρο για να προσθέσετε το στοιχείο ελέγχου στη φόρμα. Προσθέστε ένα κουμπί χρησιμοποιώντας την ίδια τεχνική .
Εικόνων 3

Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Ιδιότητες". Κάντε κλικ στην επιλογή "Αναφορές " και στη συνέχεια επιλέξτε "Προσθήκη ". Επιλέξτε " COM ". Κάντε κλικ στο " Microsoft Excel βιβλιοθήκη αντικειμένων . " Κάντε κλικ στο " OK".
Η 4

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

Με DataGridView1

RowHeadersVisible = False

Στήλες ( 0 ) Το όνομα = " ExcelValue "

End With

Dim αυξηθεί καθώς String ( ) = { " 1 " }

Dim gRow2 As String ( ) = { " 2 " }

Με Me.DataGridView1.Rows

. Προσθήκη ( αυξάνονται)

. Προσθήκη ( gRow2 )

End με τη
5

διπλό κλικ στο " Button1 " για να δημιουργήσετε μια διαδικασία click εκδήλωση για το κουμπί . Πληκτρολογήστε τον ακόλουθο κώδικα στην πρώτη γραμμή της μονάδας για την εισαγωγή του namespace του Microsoft Office :

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

6 Πληκτρολογήστε τον ακόλουθο κώδικα παρακάτω " Button1_Click " για να δημιουργήσετε οι μεταβλητές που χρησιμοποιούνται για το άνοιγμα του Excel :

Dim ExcelApp Όπως New Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = True

Dim ExcelWks Όπως Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk Όπως Excel.Workbook = ExcelWks.Add

Dim ExcelShts Όπως Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht Όπως Excel.Worksheet = ExcelShts ( " Φύλλο1 " )
Η 7

Προσθέστε τον ακόλουθο κώδικα στο βρόχο ανάμεσα στις γραμμές και να προσθέσετε τα στοιχεία των κυττάρων σε ένα νέο βιβλίο εργασίας του Excel :

για κάθε γραμμή Όπως DataGridViewRow Σε DataGridView1.Rows

ExcelSht.Range ( "A" & xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Value

xCntr + = 1

Επόμενη
8

Αποθηκεύστε το βιβλίο εργασίας με την προσθήκη του παρακάτω κώδικα :

ExcelSht.SaveAs ( " C : \\ ExcelFile.xlsx " )
Η 9

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο " Button1 " για να προσθέσετε τα δεδομένα στο Excel .
Η
εικόνων