Еще раз пожалуста! У меня задача: в таблице,в первых трех ячейках пишется - фамилия,имя,отчество.При том вместо имени и отчества,могут быть записаны инициалы , а после них могут стоять точки , а могут и не стоять.
Надо зделать чтобы в 4-ой ячейке были собраны вместе фамилия имя и отчество или инициалы , а после инициалов в любом случае должна стоять точка.И четвертая ячейка должна автоматически копироваться на другом листе.( А еще может подскажете какой-нибудь сайт для тех кто учит ехсеl ).
Заранее благодарна!!!

На вкладке Servers есть хорошие компоненты

ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;

Открыть таблицу с их помощью можно:

ExcelApplication1.Free;
OpenDialog1.Filter:='List Microsoft Excel|*.xls';
if OpenDialog1.Execute then
begin
ExcelApplication1:=TExcelApplication.Create(self);
ExcelApplication1.ConnectKind:=ckNewInstance;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.AutoConnect:=true;
ExcelApplication1.AutoQuit:=true;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,LOCALE_SYSTEM_DEFAULT));
ExcelApplication1.ActiveWorkbook.ActiveSheet;
end;


Считать из ячейки и поставить в конце точку можно:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var MyRange,V:OleVariant;
s:String;
i:byte;
begin
s:=’’;
// Активный лист
MyRange:=ExcelWorksheet1.UsedRange[0];
// читаем из ячеек
MyRange:=ExcelWorksheet1.Range['a1',EmptyParam];
S:=MyRange;
MyRange:=ExcelWorksheet1.Range['a2',EmptyParam];
S:=s+’ ’+MyRange;
// узнаём стоит ли точка или нет
I:=Length(s);
// если не стоит, то ставим
If s[i]<>’.’ then
S:=s+’.’;
MyRange:=ExcelWorksheet1.Range['a3',EmptyParam];
S:=s+’ ’+MyRange;
// узнаём стоит ли точка или нет
I:=Length(s);
// если не стоит, то ставим
If s[i]<>’.’ then
S:=s+’.’;
// записываем в ячейку
MyRange:= S;
ExcelWorksheet1.Range['a4',EmptyParam] := MyRange;
end;




Это сообщение отредактировал(а) Albinos_x - 28.5.2004, 21:48

Поищи на форуме примеры работы с Excel, если не лень.
А еще лучше скачай DRKB

На форуме в теме "часто задаваемые вопросы" рассмотрена работа с Excel-ем. Можеш посмотреть ещё там.