importer fichier xslx

Bonjour tout le monde
je veux importer des donnes a partir d'un fichier excel mais je veux effectuer un teste de contrôles de données il faut importer des données du même type que les données enregistrer sur ma base de données sql j'ai utiliser ce code mais ça marche pas

Code:

---

1 2 3 4 5 6 7 8

Dim Obj As New Collection For cCnt = 1 To range.Columns.Count Obj.Add(CType(range.Cells(1, cCnt), Excel.Range))   If Obj(Obj.Count).value = int(i) Then If TypeName(Obj(Obj(0).Count).value))= char etc....

---