17.11.2012, 22:41
|
|
Always hardcore!
|
|
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
|
|
Кусок рабочего кода из одного проекта:
Код:
procedure TfMain.ImportExcel(filename: string);
var
xla: OleVariant;
x, y: integer;
comm: string;
// ...
begin
try
xla := CreateOleObject('Excel.Application');
xla.Visible := false;
xla.Workbooks.Open(filename);
if xla.Cells.CurrentRegion.Columns.Count = 10 then begin
for y:=1 to xla.Cells.CurrentRegion.Rows.Count do begin
// ...
comm := 'NULL';
for x:=1 to 10 do
if not VarIsClear(xla.Cells.Item[y, x].Comment) then
comm := dbstring(xla.Cells.Item[y, x].Comment.Text);
// ...
end;
end else begin
MessageDlg('Неопознанный формат таблицы',mtError,[mbOk],0);
end;
xla.ActiveWorkbook.Close(false);
xla.Quit;
MessageDlg('Импорт успешно завершён',mtInformation,[mbOk],0);
except
on E: Exception do
MessageDlg('Импорт из Microsoft Excel невозможен на вашем компьютере'#10#13+e.Message,mtError,[mbOk],0);
end;
end;
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
|