Τρόπος εισαγωγής δεδομένων του Excel σε Visual Basic 6

Microsoft Excel είναι ένα πρόγραμμα υπολογιστικών φύλλων που σας επιτρέπει να δημιουργήσετε υπολογιστικά φύλλα για να οργανώσετε και να υπολογίσει δεδομένων και των γραφημάτων . Visual Basic 6 ( VB6 ) είναι μια έκδοση του Visual Basic , η οποία είναι η γλώσσα προγραμματισμού και ολοκληρωμένο περιβάλλον ανάπτυξης που δημιουργήθηκε από τη Microsoft . Δημιουργία πληροφοριών στο Excel είναι πιο εύκολο από ό, τι σε VB6 , γι 'αυτό μερικές φορές είναι πρακτικό για την εισαγωγή δεδομένων από το Excel στο VB6 . Υπάρχουν διάφοροι τρόποι να γίνει αυτό , αλλά η πιο απλή είναι μια γραμμή κώδικα σε Visual Basic που αυτοματοποιεί τη διαδικασία . Οδηγίες
Η 1

Ξεκινήστε ένα νέο έργο της Visual Basic . 2

Προσθέστε ένα πλαίσιο λίστας και το κουμπί εντολής στη φόρμα .
Εικόνων 3

Επιλέξτε " Μενού Project" και στη συνέχεια επιλέξτε το "Αναφορές " επιλογή . Από εκεί , επιλέξτε τη γραμμή " του Microsoft Excel " .
Η 4

Εισάγετε τον κωδικό .

Private Sub Command1_Click ( )

Dim objXLApp Όπως Excel .
εφαρμογή

Dim intLoopCounter As Integer

Set objXLApp = Νέα Excel.Application

Με objXLApp

Workbooks.Open " C : \\ File.xls " .

. Τετράδια ( 1 ) . Φύλλα εργασίας ( 1 ) . Επιλέξτε

Για intLoopCounter = 1 Για να CInt ( . ActiveSheet.Cells.SpecialCells ( xlCellTypeLastCell ) . Row )

List1 . AddItem . Range ( "A" & intLoopCounter )

Επόμενο intLoopCounter

. Τετράδια ( 1 ) . Κλείστε False

. Κλείστε

End With

Set objXLApp = Τίποτα

End Sub
5

Αλλάξτε το " C : \\ File.xls " στο όνομα του αρχείου Excel . Αυτό θα εισάγει τώρα τα δεδομένα από το υπολογιστικό φύλλο του Excel .
Η
εικόνων