Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte aplikáciu Microsoft Excel a zadajte " Pole " v " A1 " , " pole2 " v " B1 " , " 1 " v " A2 " a " 2 " v " B2 " . Uložte tabuľku do " C : \\ " ako 
 2 
 Spustite program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " " ExcelFileToRead.xlsx . " na ľavom paneli obrazovky . Double - kliknite na " Console Application . " Stlačte tlačidlo " Ctrl " a " A " a stlačte tlačidlo " Delete " odstrániť všetky existujúce kód 
 3 
 Skopírujte a vložte nasledujúci kód do vášho " Module1.vb " modulu : . 
 
 Dovoz Excel = Microsoft.Office.Interop.Excel 
 
 Module Module1 
 
 Sub Main ( ) 
 
 Dim ExcelApp Ako Excel.Application 
 
 Dim ExcelWkBook Ako Excel.Workbook 
 
 Dim ExcelWkSheet Ako Excel.Worksheet 
 
 Dim XLArray ( 10 ) As String 
 
 ExcelApp = Nové Microsoft.Office.Interop.Excel.Application 
 
 ExcelWkBook = ExcelApp.Workbooks.Open ( " C : \\ ExcelFileToRead.xlsx " ) 
 
 ExcelWkSheet = ExcelWkBook.Worksheets ( " Hárok1 " ) 
 
XLArray ( 0 ) = ExcelWkSheet . cells ( 1 , 1 ) . hodnota celým
XLArray ( 1 ) = ExcelWkSheet.Cells ( 1 , 2 ) . hodnota celým
 XLArray ( 2 ) = ExcelWkSheet.Cells ( 2 , 1 ) . hodnota 
 
 XLArray ( 3 ) = ExcelWkSheet.Cells ( 2 , Sub 
 
 End Module 
 4 
 Spustite program stlačením tlačidla " F5 " .