Discussion :

[Charo]

Bonjour,
J'essaie de lire le contenu d'un fichier Excel
Voici le code que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 directoryname="d:\microf\pmi\Import\"
Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder=fso.GetFolder(directoryname)
Set filecollection = mainfolder.Files
For Each file In filecollection
Response.Write file.Name & "<BR>"
 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = False 
'permet d'enregistrer sans confirmation 
objExcel.DisplayAlerts = FALSE 
 
M_Fichier = file.Name
 
//on ouvre le fichier 
Set objWorkbook = objExcel.Workbooks.Open("d:\microf\pmi\import\"&M_Fichier) 
//on ouvre la premiere feuille 
Set objWorksheet = objWorkbook.Worksheets(1) 
 
M_NoPalette = objWorksheet.Cells(1,2) 
M_Essence = objWorksheet.Cells(2,2)
M_Qualite = objWorksheet.Cells(3,2) 
Response.Write M_NoPalette & " - " & M_Essence & " - " & M_Qualite & "<BR>"
i = 6
M_NoPaquet = objWorksheet.Cells(i,1)
Do While (M_NoPaquet <> "")
M_NoPaquet = objWorksheet.Cells(i,1)
M_Long = objWorksheet.Cells(i,2)
M_Largeur = objWorksheet.Cells(i,3)
M_NbFeuillet = objWorksheet.Cells(i,4)
M_PMS = objWorksheet.Cells(i,5)
 
Response.Write M_NoPaquet & "; " & M_Long & "; " & M_Largeur & "; " & M_NbFeuillet & "; " & M_PMS & "<BR>"
M_Total_PMS = M_Total_PMS + M_PMS
i = i + 1
Loop
Response.Write M_Total_PMS & "<BR>"
 
//on sauvegarde le classeur 
objWorkbook.Save() 
objWorkbook.close() 
//on ferme le fichier 
objExcel.Quit
 
Next

J'ai le message d'erreur suivant qui apparaît:
Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object: 'Excel.Application'
/pmi/Import_Inv_NClasse.asp, line 47
Mon serveur est sous Windows Server 2003 et IIS6.0
Microsoft Office n'est pas installer sur le serveur.

Est-ce que quelqu'un peut m'aider à trouver la solution à ce problème.

Merci de votre aide

[Immobilis]

Salut,

Tu n'est pas obligé d'installer Office, mais un peu qd mm.
Probalement que OWC10.msi ou OWC11.msi devraient suffire. Il sont sur le CD d'install de Office.

A+

[Charo]

Je les copie ou les fichiers??

Merci

[Immobilis]

Un msi ça s'installe, ça ne se copie pas.

[Charo]

Bonjour,

J'installe ça comment un fichier .msi

Merci

[amar00]

pour lire le contenu d'un fichier excel tu peux aussi utiliser ADO (moins couteux que de passer par un composant com qui fonctionne en mode "out of process").J'utilise pour ça un fournisseur Oledb.

Ouverture de la connection au fichier excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim strConnectionString 
'HDR=Yes : pour avoir les noms des colonnes
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_
                        & "C:\.....\monfichier.xls"_
                        & ";Extended Properties=""Excel 8.0;HDR=Yes:IMEX=1"""  
oConn.ConnectionString = strConnectionString
oConn.open

Ensuite mettons qu'on ne connaisse pas le nom des feuilles(ou onglets), on prend la première

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim rsListeTables , strSheet
set rsListeTables = oConn.OpenSchema(adSchemaTables)
strSheet= rsListeTables("TABLE_NAME")

reste à charger dans un recordset les données de cette feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim strSelInfos 
strSelInfos = " SELECT * FROM [" & strSheet & "]"
dim rsSheet: set rsSheet= server.CreateObject("ADODB.Recordset")
rsSheet.Open strSelInfos ,oConn,adOpenKeyset,adLockReadOnly

il n'ya plus qu'à parcourir le jeu d'enregistrements ainsi créé