Convertir un fichier excel en mode VB
Fermé
Taha
-
20 févr. 2009 à 09:43
akelo Messages postés 52 Date d'inscription jeudi 22 janvier 2009 Statut Membre Dernière intervention 28 mars 2011 - 20 févr. 2009 à 09:45
akelo Messages postés 52 Date d'inscription jeudi 22 janvier 2009 Statut Membre Dernière intervention 28 mars 2011 - 20 févr. 2009 à 09:45
A voir également:
- Convertir un fichier excel en mode VB
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier iso - Guide
1 réponse
akelo
Messages postés
52
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
28 mars 2011
11
20 févr. 2009 à 09:45
20 févr. 2009 à 09:45
Un objet Excel et Sheet:
Dim oXL As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim numFields As Integer
Dim numRows As Integer
Dim curField As Integer
Dim curRow As Integer
oXL = New Excel.Application
oBook = oXL.Workbooks.Open(c:\fichier.xls)
oXL.Visible = False
' compte les champs
While Not (oBook.ActiveSheet.Cells(1, numFields + 1).value Is MyNull)
numFields = numFields + 1
End While
' compte les lignes
While Not (oBook.ActiveSheet.Cells(numRows + 1, 1).value Is MyNull)
numRows = numRows + 1
End While
' lecture
For curRow = 1 To numRows
For curField = 1 To numFields
LineIn = LineIn & oBook.ActiveSheet.Cells(curRow, curField).Value
Next curField
LineIn = “”
Next curRow
oBook.Close()
oXL = Nothing
Dim oXL As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim numFields As Integer
Dim numRows As Integer
Dim curField As Integer
Dim curRow As Integer
oXL = New Excel.Application
oBook = oXL.Workbooks.Open(c:\fichier.xls)
oXL.Visible = False
' compte les champs
While Not (oBook.ActiveSheet.Cells(1, numFields + 1).value Is MyNull)
numFields = numFields + 1
End While
' compte les lignes
While Not (oBook.ActiveSheet.Cells(numRows + 1, 1).value Is MyNull)
numRows = numRows + 1
End While
' lecture
For curRow = 1 To numRows
For curField = 1 To numFields
LineIn = LineIn & oBook.ActiveSheet.Cells(curRow, curField).Value
Next curField
LineIn = “”
Next curRow
oBook.Close()
oXL = Nothing
