Delphi и Excel

[rob7777]

Добрый день! У меня есть 2 excel файла("2012","2013"). Я читаю из них нужную мне информацию и выношу на график.

procedure TForm9.Button1Click(Sender: TObject);
begin
Ap1:=CreateOleObject('Excel.Application');                        //1ый файл
Ap1.Workbooks.Open(ExtractFilePath (ParamStr(0)) + '2012.xlsx');
Ap2:=CreateOleObject('Excel.Application');                        //2ой файл
Ap2.Workbooks.Open(ExtractFilePath (ParamStr(0)) + '2013.xlsx');

mas1[1]:=Ap1.Cells[99,12].Value;         //выписываю информацию в массив
mas1[2]:=Ap2.Cells[99,12].Value;   //деньги
mas[1]:=Ap1.Cells[99,11].Value;
mas[2]:=Ap2.Cells[99,11].Value;     //тонны
chart1.Series[0].Add(Round(StrtoFloat(mas1[1])/1000),'2012',random($FFFFFF));           //вывожу на график
chart1.Series[0].Add(Round(StrtoFloat(mas1[2])/1000),'2013',random($FFFFFF));

chart2.Series[0].Add(StrtoFloat(mas[1]),'2012',random($FFFFFF));
chart2.Series[0].Add(StrtoFloat(mas[2]),'2013',random($FFFFFF));    
end;

ВОПРОС: Количество этих файлов с каждым кодом будет увеличиваться. "2014","2015" и т.д. Как сделать, чтобы программа обрабатывала не только эти два файла, а все в зависимости от текущего года(это может вводить пользователь например). Я собственно не понимаю, как открывать эти файлы. Ведь "Ap1,Ap2 и т.д." я объявляю в начале...

[Аватар]

Добавить поле ГОД и засунуть всю информацию в один файл

[rob7777]

Сообщение от Аватар

Добавить поле ГОД и засунуть всю информацию в один файл

Ну это самый крайний вариант, вообще так очень не хотелось бы.

[Аватар]

А в чем проблема вместо забитой константы '2012.xlsx' использовать строковую переменную с нужным номером года? Аналогично для '2013.xlsx' и всех жестко пробитых годов в проге

[rob7777]

проблема в том, что мне нужно открыть их всех одновременно. Там график сравнения, и я все эти значения должен вывести на график.

за все года

Вот вариант,но где-то ошибка.

procedure TForm9.Button1Click(Sender: TObject);
var u,f,i:integer;  l: array[1..250] of string;
begin
u:=2;    //количество файлов(может задавать пользователь)
f:=2012; //год, с которого ведется отсчет
for i:=1 to u do begin
l[i]:=Inttostr(f);         //записываем в массив названия файлов, исходя из их количества
f:=f+1
                end;

Ap1:=CreateOleObject('Excel.Application');

for i:=1 to 1000 do    //1000 лет:)
if FileExists(ExtractFilePath (ParamStr(0)) + Pchar(l[i])) then begin   //если есть такой файл

Ap1.Workbooks.Open(ExtractFilePath (ParamStr(0)) + Pchar(l[i]));    //открываем его
mas1[1]:=Ap1.Cells[99,12].Value;                                    //выписываем значения
mas[1]:=Ap1.Cells[99,11].Value;
chart1.Series[0].Add(Round(StrtoFloat(mas1[1])/1000),Pchar(l[i]),random($FFFFFF));  //заполняем график
chart2.Series[0].Add(StrtoFloat(mas[1]),Pchar(l[i]),random($FFFFFF));
Ap1.Workbooks.Close;    //закрываем файл и начинаем сначала
                                                                                  end;

end;

[rob7777]

Все сделал!!!!!!!!!
Вот код,если кому понадобится))

procedure TForm9.Button1Click(Sender: TObject);
var u,f,i:integer;  l: array[1..250] of string;
begin
u:=4;// может вводить пользователь
f:=2012;
for i:=1 to u do begin
l[i]:=Inttostr(f);
f:=f+1;
                end;
Ap1:=CreateOleObject('Excel.Application');

for i:=1 to u do
if FileExists(ExtractFilePath (ParamStr(0)) + l[i] +'.xlsx') then begin
Ap1.Workbooks.Open(ExtractFilePath (ParamStr(0)) + Pchar(l[i]));
mas1[1]:=Ap1.Cells[99,12].Value;
mas[1]:=Ap1.Cells[99,11].Value;
chart1.Series[0].Add(Round(StrtoFloat(mas1[1])/1000),l[i],random($FFFFFF));
chart2.Series[0].Add(StrtoFloat(mas[1]),l[i],random($FFFFFF));
Ap1.Workbooks.Close;
end;

end;