1 Ανοίξτε το Microsoft Excel και πληκτρολογήστε "Field " σε " A1 ", " Field2 " σε " B1 ", " 1 " σε " A2 " και " 2 " σε " B2 ". Αποθηκεύστε το υπολογιστικό φύλλο στο "C : \\" ως 2
Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " " ExcelFileToRead.xlsx . " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας . " Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα
εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να σας " Module1.vb « ενότητα : .
Εισαγωγές Excel = Microsoft.Office.Interop.Excel
Module Module1
Sub Main ( )
Dim ExcelApp Όπως Excel.Application
Dim ExcelWkBook Όπως Excel.Workbook
Dim ExcelWkSheet Όπως Excel.Worksheet
Δημ. XLArray ( 10 ) Όπως String
ExcelApp = Νέα Microsoft.Office.Interop.Excel.Application
ExcelWkBook = ExcelApp.Workbooks.Open ( " C : \\ ExcelFileToRead.xlsx " )
ExcelWkSheet = ExcelWkBook.Worksheets ( " Φύλλο1 " )
XLArray ( 0 ) = ExcelWkSheet . Cells ( 1 , 1 ) . αξία
XLArray ( 1 ) = ExcelWkSheet.Cells ( 1 , 2 ) . αξία
XLArray ( 2 ) = ExcelWkSheet.Cells ( 2 , 1 ) . αξία
XLArray ( 3 ) = ExcelWkSheet.Cells ( 2 , Υπο
End Module
Η 4
Ξεκινήστε το πρόγραμμα πιέζοντας το κουμπί " F5 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα