Création de fichier en format Excel 2010
Bonjour,
Je suis sous Borland XE7
Mon objectif est d'ouvrir sous Excel un fichier texte avec des séparateurs tabulations, puis de l'"enregistrer sous" en format Excel.
L'ouverture se fait bien, mais au moment de l'enregistrer, un message d'erreur est renvoyé indiquant que le fichier Excel n'existe pas (ce qui est vrai, mais un enregistrer sous devrait le créer ???).
Merci pour votre aide :
Code:
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
|
AnsiString CheminC = GetCurrentDir();
Variant Vo,Vn,Vn2,Attachments;
try
{
Vo = Variant::GetActiveObject("Excel.Application");
}
catch(...)
{
Vo = Variant::CreateObject("Excel.Application");
}
Vo.OlePropertySet("Visible", true);
Variant vXLWorkbook, vXLWorkbooks;
Variant vNotUsed, vSeparator, vSaveChanges;
WideString vFileName = CheminC + "//text.txt";
vNotUsed = Unassigned;
vSeparator = 1;
vXLWorkbooks = Vo.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction(L"Open", vFileName, vNotUsed, vNotUsed,vSeparator);
WideString vFileName2;
vFileName2 = CheminC + "//Classeur1.xlsx";
vXLWorkbook.OleProcedure("Saveas", vFileName2);
vSaveChanges = Unassigned;
vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName2);
Vo.OleFunction("Quit");
Vo = Unassigned; |
