Discussion :

[kerozan]

Bonjour à tous,
après ouverture d'un classeur Excel (en C++ Builder 5), je tente de le sauvegarder au format CSV en utilisant la procédure OLE Saveas comme explicitée dans la FAQ et dans le tutoriel "Pilotage OLE d'Excel ...".
Durant l'execution, Borland me sort une erreur EOleSysError : nom inconnu. venant de sysvari.h (void Variant::OleProcedure(const String& name, P1 p1, P2 p2) )
Voila l'extrait de mon source, si quelqu'un à une idée ... je prends!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Variant MSExcel = Variant::CreateObject("Excel.Application");
MSExcel.OlePropertySet("Visible", false);
MSExcel.OlePropertySet("DecimalSeparator", ".");
MSExcel.OlePropertySet("UseSystemSeparators", false);
Variant vFileName = StringToOleStr(OpenExcel->FileName);
Variant Workbook = MSExcel.OlePropertyGet("Workbooks");
Workbook.OleFunction("Open", vFileName);
Variant Csv = "temp.csv";    // just for testing
Workbook.OleProcedure("Saveas", Csv, 6);      // <--- C'est la que ça plante
Workbook.OleFunction("Close");
MSExcel.OleFunction("Quit");

Merci

[blondelle]

Salut kerozan
Un lien sur la Faq avec la fonction complete SaveAs

http://cpp.developpez.com/faq/bcb/?p...workbooksaveas

[kerozan]

Salut Blondelle,
merci pour le lien, mais je l'ai déjà scrupté avant d'exposer mon problème.
J'ai aussi essayé en passant tous les Variant, mais rien à faire .. toujours cette d'erreur.
A+ et n'abuse pas des Haribo (sympa Uzes !

[blondelle]

n'abuse pas des Haribo

Je ne fais jamais plus d'un abus a la fois
Ton code n'est pas complet d'ou l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Variant MSExcel = Variant::CreateObject("Excel.Application");
MSExcel.OlePropertySet("Visible", false);
MSExcel.OlePropertySet("DecimalSeparator", ".");
MSExcel.OlePropertySet("UseSystemSeparators", false);
//Variant vFileName = StringToOleStr(OpenExcel->FileName);
Variant Workbooks = MSExcel.OlePropertyGet("Workbooks");
Variant Workbook = Workbooks.OleFunction("Add");
Variant vWorksheet = Workbook.OlePropertyGet("Worksheets", 1);
//Workbook.OleFunction("Open", vFileName);
Variant FiCsv = "c:\\temp.CSV";    // just for testing
Workbook.OleProcedure("Saveas", WideString(FiCsv), 6);      // <--- C'est la que ça plante
Workbook.OleFunction("Close");
MSExcel.OleFunction("Quit");

Je te laisse modifier j'ai passe au rouge ce que j'ai modifie

[kerozan]

Merci Blondelle pour tes lumières !
j'avais effectivement sauté une étape.
Par contre as tu une idée pour faire plus simple, le but étant de convertir le contenu d'un fichier xls sélectionné par un TOpenDialog en un fichier ascii (le format csv me conviens parfaitement) pour post traitement.
J'avais opter pour l'ouverture d'excel en tache de fond (non visible), de charger le classeur au format xls puis de le sauver sous un nom bidon au format csv. Le problème est qu'une fenetre me demandant si je veux enregistrer les modifs de ce fichier bidon apparait alors que je souhaiterai qu'il n'y ai pas de confirmation à faire.
Voila mon nouveau code corrigé:

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
 
if (OpenExcel->Execute())
   {
   Variant MSExcel = Variant::CreateObject("Excel.Application");
   MSExcel.OlePropertySet("Visible", false);
   MSExcel.OlePropertySet("DecimalSeparator", ".");
   MSExcel.OlePropertySet("UseSystemSeparators", false);
 
   //_____________________________ ouvre le classeur
   Variant vFileName = StringToOleStr(OpenExcel->FileName);
   Variant Workbooks = MSExcel.OlePropertyGet("Workbooks");
   Variant Workbook = Workbooks.OleFunction("Open", vFileName);
 
   //_____________________________ Sauve classeur au format cvs (ascii)
   AnsiString s = Path + "\\temp.csv";
   Variant CSV = StringToOleStr(s);
   Workbook.OleProcedure("Saveas", WideString(CSV), 6);
 
   //_____________________________ fermeture du classeur
   Workbook.OleFunction("Close");
 
   //_____________________________ fermeture d'excel
   MSExcel.OleFunction("Quit");
   }

[kerozan]

Ne pas tenir compte du message précédent.
J'ai ajouté la demande de désactivation des messages Excel de demande de confirmation par:

Code :

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

1
2
 
MSExcel.OlePropertySet("DisplayAlerts", false);

et ça marche.
Merci encore pour le support !
A+