λογισμικό

* Γνώση Υπολογιστών >> λογισμικό >> Microsoft Access

Πώς να διαβάσετε ένα υπολογιστικό φύλλο του Excel Από VB6

τα αρχεία Excel χρησιμοποιείται για να περιέχει μικρές ποσότητες δεδομένων για τις μικρές ή μεγάλες επιχειρήσεις . Visual Basic 6 ( VB6 ) είναι ένας compiler της γλώσσας που χρησιμοποιείται για τη δημιουργία desktop εφαρμογών . Visual Basic ενσωματώνει καλά με άλλα προϊόντα της Microsoft , όπως το Word , Access και το Excel . Μπορείτε να χρησιμοποιήσετε το Visual Basic γλώσσα για την ανάκτηση πληροφοριών από ένα φύλλο εργασίας του Excel και να την εντάξει στο desktop εφαρμογή σας . Οδηγίες
Η 1

Εισαγωγή των βιβλιοθηκών που χρησιμοποιούνται για να καλέσετε τις λειτουργίες και τις ιδιότητες του Excel . Συμπεριλάβετε τα παρακάτω γραμμές κώδικα στην κορυφή της Visual Basic αρχείο σας :

εισαγωγές Microsoft.Office.InteropImports System.Runtime.InteropServices 2

Δημιουργία Excel μεταβλητές φύλλο σας . Αυτές οι μεταβλητές περιλαμβάνουν αντικείμενα για το αρχείο Excel , το βιβλίο εργασίας και φύλλο . Ο παρακάτω κώδικας δημιουργεί μεταβλητές που απαιτούνται για να διαβάσετε τα αρχεία Excel :

Dim excel Όπως φύλλο New Excel.ApplicationDim Όπως Excel.WorksheetDim wb Όπως Excel.Workbook
εικόνων 3

Ανοίξτε το Excel σας αρχείο και να ορίσετε το ενεργό φύλλο εργασίας . Ο ακόλουθος κώδικας ανακτά ένα αρχείο Excel που ονομάζεται " myFile » και εκχωρεί στις μεταβλητές που δημιουργήσατε στο Βήμα 2 :

Ορισμός wb = excel.Workbooks.Open ( "c : \\ myFile.xls " ) Set φύλλο = wb . Sheets.Item ( 1 )
Η 4

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

myCell1.Text = sheet.Cells ( 1 , 1 ) = myCell2.Text sheet.Cells ( 1 , 2 )
5

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

excel.ActiveWorkbook.Close False , "c : \\ myFile.xls "
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα