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 : 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
 
 
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;