Comment importer des informations d'Excel vers Visual Basic 6

La création d'informations dans Excel étant plus facile que dans VB6, il est parfois parfois plus pratique d'importer des informations d'Excel vers VB6.

Étape 1

Démarrer un nouveau projet Visual Basic.

Étape 2

Ajouter une zone de liste et un bouton de commande au formulaire.

Étape 3

Sélectionnez "Menu Projet" puis sélectionnez l'option "Références". À partir de là, sélectionnez "Bibliothèque Microsoft Excel".

Étape 4

Entrez le code suivant: Private Sub Command1_Click () Dim objXLApp As Excel.Application Dim intLoopCounter As Integer

Définir objXLApp = New Excel.Application

Avec objXLApp .Workbooks.Open "C: \ File.xls" .Workbooks (1) .Worksheets (1) .Sélectionnez

Pour intLoopCounter = 1 To CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("To" & intLoopCounter) Suivant intLoopCounter

.Workbooks (1) .Fermer False .Quit End With

Définir objXLApp = Nothing End Sub

Étape 5

Remplacez "C: \ File.xls" par le nom de votre fichier Excel. Cela va maintenant importer les informations de votre feuille de calcul Excel.