Convertir un fichier excel en mode VB
Taha
-
akelo Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
akelo Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
s'il vous plais, je viens ous poser une questions sur les étapes comprenants sur la conversion d'un fichier excel en mode Visual Basic
j'ai un fichier excel(Microsoft Office 2003) " Stocks de magasin@ et je voudrai le convertir en mode VB pour que les autres utilisateurs de notre reseau puissent l'utiliser (ajout, modification, suppression,....)
et merci d'avance
s'il vous plais, je viens ous poser une questions sur les étapes comprenants sur la conversion d'un fichier excel en mode Visual Basic
j'ai un fichier excel(Microsoft Office 2003) " Stocks de magasin@ et je voudrai le convertir en mode VB pour que les autres utilisateurs de notre reseau puissent l'utiliser (ajout, modification, suppression,....)
et merci d'avance
A voir également:
- Convertir un fichier excel en mode VB
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Mode avion - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
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