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 " .