Start " Microsoft Visual Basic 2008 Express . " Επιλέξτε από το μενού "Αρχείο" , στη συνέχεια, κάντε κλικ στο " New Project ... " Κάντε κλικ στο " Windows Forms Application " υπό τον τίτλο " Visual Studio εγκατεστημένα πρότυπα . " Επιλογή "OK". 2
Πατήστε το πλήκτρο "Ctrl ", " Alt " και "Χ " για να ανοίξει το "Toolbox ". κάντε διπλό κλικ στο " κουμπί" υπό τον τίτλο " Κοινή Έλεγχοι "για να προσθέσετε ένα νέο κουμπί στο " Φόρμα1 ".
εικόνων 3
Κάντε κλικ στο" Έργο ", στη συνέχεια, επιλέξτε " Add Reference . " Κάντε κλικ στο" COM " επιλέξτε" Microsoft Excel 12.0 Object Βιβλιοθήκη " και κάντε κλικ στο " OK ".
Η
4 κάντε διπλό κλικ στο " Button1 " για να ανοίξετε το " " μονάδα Form1.vb . Πληκτρολογήστε την ακόλουθη στην κορυφή της " Form1.vb " για να προσθέσετε μια αναφορά :
Εισαγωγές Microsoft.Office.Interop
5
Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας μέσα " υπο Button1_Click " :
Dim excelApplication Όπως New Excel.ApplicationDim excelWrkBook Όπως Excel.Workbook
6
Τύπος " excelApplication.Visible = False " για να κρύψει Excel.Type " excelApplication.DisplayAlerts = Λάθος "για να απενεργοποιήσετε την εμφάνιση προειδοποιήσεων μήνυμα
Η 7
Πληκτρολογήστε το παρακάτω, για να ανοίξετε τον δικό σας . " XLS " βιβλίο και να το αποθηκεύσετε ως" CSV " :
excelWrkBook = _FileFormat : . = Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV )
Όταν τρέξετε το πρόγραμμά σας και κάντε κλικ στο " Button1 , " αυτός ο κώδικας θα εκτελέσει για να μετατρέψετε το αρχείο σας
8
Πληκτρολογήστε το παρακάτω, για να κλείσει και να σταματήσουν την αίτησή σας :
excelWrkBook.Close ( ) excelApplication.DisplayAlerts = TrueexcelApplication.Quit ( )
Η
9 Πατήστε το πλήκτρο " F5 " για να εκτελέσει το πρόγραμμά σας . Κάντε κλικ στο " Button1 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα