ouverture fichier excel

Version imprimable

Jai un petit soucie,

quand je fais sa :

Code:

1
2
3
4
5
6
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", false);
vFileName = "c:\\ProjBapt\\testExcel\\listclient.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

sa fonctionne niquel, mais l'inconveniant c'est que le chemin est codé en dur

Si je fais sa

Code:

1
2
3
4
5
6
7
8
9
  AnsiString asRep = ExtractFilePath(Application->ExeName);

asFile = asRep + "listeclient.xls";
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", false);
vFileName = asFile ;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

il me fais une erreur sur la ligne qui est en gras, quelqu'un pourais m'aider ? svp

Cordialement Baxter

07/04/2008, 15h49
Galkir

et en ajoutant la fonction StringToOleStr() pour convertir le nom de fichier en chaine version OLE, ca merchera peut-etre un poil mieu (a vérifier)

oui merci sa marche super comme sa :

Code:

1
2
3
4
5
6
7
8
9
 
AnsiString asRep = ExtractFilePath(Application->ExeName);
asFile =asRep + "listeclient.xls";
 
                vMSExcel = Variant::CreateObject("Excel.Application");
                vMSExcel.OlePropertySet("Visible", false);
                vFileName = StringToOleStr(asFile);
                vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
                vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

merci beaucoup

Cordialement baxter