procedure TForm2.BitBtn3Click(Sender: TObject);
var
Ex, WorkBook, Sheet: Variant;
i: Integer;
begin
if OpenDialog3.Execute then
begin
Ex := CreateOleObject('Excel.Application');
WorkBook := Ex.WorkBooks.Open(OpenDialog3.FileName); // открытие файла
for i:= 1 to WorkBook.Sheets.Count do //пробегаем по всем листам
begin
Sheet := WorkBook.WorkSheets[i];
case i of // прописываем в зависимости от номера листа присвоение данных
ComboBox3.Text:= Sheet.Range['Q12'].Value;
ComboBox4.text:= Sheet.Range['M13'].Value;
end;
end;
end;
WorkBook.Close;
Ex.Quit;
end;
end;
var
Ex, WorkBook, Sheet: Variant;
i: Integer;
begin
if OpenDialog3.Execute then
begin
Ex := CreateOleObject('Excel.Application');
WorkBook := Ex.WorkBooks.Open(OpenDialog3.FileName); // открытие файла
for i:= 1 to WorkBook.Sheets.Count do //пробегаем по всем листам
begin
Sheet := WorkBook.WorkSheets[i];
case i of // прописываем в зависимости от номера листа присвоение данных
1: ComboBox3.Text:= Sheet.Range['Q12'].Value;
1: ComboBox4.text:= Sheet.Range['M13'].Value;
1: Memo1.Text:= Sheet.Range['B26:B43'].Value;
end;
end;
end;
WorkBook.Close;
Ex.Quit;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.