Comment lire xls fichier vb

Instructions

1. Ouvrez Microsoft Excel et le type "Champ" dans "A1," "Champ2" dans "B1," "1" dans "A2," et "2" dans "B2." Sauvegardez votre feuille de calcul "C:" comme "ExcelFileToRead.xlsx."

2. Démarrez Microsoft Visual Basic Express et clic "Nouveau projet..." sur le volet de gauche de votre écran. Double-cliquez sur "Application console." Appuyez "Ctrl" et "UN" puis appuyez sur "Effacer" pour supprimer tout le code existant.

3. Copiez et collez le code suivant à votre "Module1.vb" Module:

   Importations Excel = Microsoft.Office.Interop.Excel

   Module Module1

   Sub Main ()
   Dim ExcelApp Comme Excel.Application
   Dim ExcelWkBook Comme Excel.Workbook
   
   
   Dim ExcelWkSheet Comme Excel.Worksheet
   Dim XLArray (10) As String
   ExcelApp = New Microsoft.Office.Interop.Excel.Application
   ExcelWkBook = ExcelApp.Workbooks.Open ("C: ExcelFileToRead.xlsx")
   ExcelWkSheet = ExcelWkBook.Worksheets ("Sheet1")
   
   
   
   XLArray (0) = ExcelWkSheet.Cells (1, 1) .value
   XLArray (1) = ExcelWkSheet.Cells (1, 2) .value
   XLArray (2) = ExcelWkSheet.Cells (2, 1) .value
   XLArray (3) = ExcelWkSheet.Cells (2, 2) .value
   MsgBox (XLArray (0))
   MsgBox (XLArray (1))
   MsgBox (XLArray (2))
   MsgBox (XLArray (3))
   ExcelWkBook.Close ()
   ExcelApp.Quit ()
   End Sub

   Module d'extrémité

4. Commencez votre programme en appuyant sur "F5."