comment afficher un fichier Excel dans listBox dans VB6

Question

j'ai essayé d'afficher un fichier Excel dans VB6, et j'ai essayé le code suivant pour l'afficher:

Private Sub Command1_Click() 
     Dim xlsApp As Excel.Application 
     Set xlsTemp = New Excel.Application 
     wbk = xlsTemp.Workbooks.Open = "C:\MANGO\Test.xls" 'xls file path 
     List1.AddItem (wbk) 'add data wbk 
End Sub 

mais, il est retourné 449 erreur

si , que dois-je faire pour le faire fonctionner comme un charme. Merci

Answer 1

Vous ne pouvez pas ajouter un Workbook object à une liste, cela est incohérent.

Vous pouvez ajouter un String alors essayez quelque chose comme:

Private Sub Command1_Click() 
     Dim xlsApp As Excel.Application 
     Set xlsTemp = New Excel.Application 
     wbk = xlsTemp.Workbooks.Open = "C:\MANGO\Test.xls" 'xls file path 
     List1.AddItem (wbk.Name) 'add data wbk 
End Sub 

en utilisant la propriété Name de l'objet Workbook.

BTW, vous auriez pu trouver par vous-même en utilisant Excel inclus l'aide:

• sélectionnez AddItem
• presse F1
• lire le fichier d'aide vous dire Wich arguments que vous devriez donner, en particulier qui type (dans ce cas, AddItem attendu un String pour l'argument Text