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