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 39 40 41 42
|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString IniPath = ExtractFileDir(ParamStr(0));
String FileName = IniPath + "\\TestExcel.xls" ;
TStringList *point=new TStringList; //Creation de la StringList
String sTabExcel[10] = {"A1","A2","A3","A4","A15","A6","A7","A8","A9","A10"};
int i,j; //index
//Ouverture d'excel
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
//Création d'un classeur
//vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
//vXLWorkbook = vXLWorkbooks.OleFunction("Add");
//Ouverture du classeur
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook=vXLWorkbooks.OleFunction("Open", FileName.c_str());
//mettre dans la feuille donne
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "Donne");
//lecture du fichier txt
sFileName = IniPath + "\\point.crb";
point->LoadFromFile(sFileName);
//Tant que la lecture n'est pas de 10 valeurs
while((i-1)!= 10 )
{
vRange = sTabExcel[i-1];
vCell = vWorksheet.OlePropertyGet("Range", vRange); //aller à la cellule
vValue = i;
vCell.OlePropertySet("Value", vValue); // initialisé à la nouvelle valeur de la cellule
i++;
}
}
delete point; //effacer le contenu de la StringList
} |
Partager