24.03.2011, 12:58
|
Местный
|
|
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
|
|
где то примерно так (Немного обрезал но основное что нужно вам тут есть):
Код:
var
excel, workbook, sheet: variant; //OLE
st,st1,st2,st3,st4,st5,st6,st7:string;
i,y,idf:integer;
lk:TTransactionDesc;
dtt:TdateTime;
isDealerNds,isRetailNDS,isRetailShopNDS:TNDS;
begin
try
excel := createoleobject('excel.application');//Создем объект OLE
excel.workbooks.open(sedit1.text,false); //Открываем файл
workbook:=excel.workbooks.item[1]; //Выбираем книгу
sheet := workbook.worksheets[1]; //Выбираем лист
sheet.cells.specialcells(xlcelltypelastcell,emptyparam).activate;
y := excel.activecell.row; //Получаем максимал. кол-во строк
for i:=2 to y do
begin
//получаем данные из ячеек
st1:=trim(sheet.cells[i,1]);
st2:=trim(sheet.cells[i,2]);
st3:=trim(sheet.cells[i,3]);
st4:=trim(sheet.cells[i,4]);
st5:=trim(sheet.cells[i,5]);
st6:=trim(sheet.cells[i,6]);
try
//Проверяем в запросе к Мускулу есть ли такая фамилия
//если нет то вставляем данные в новую таблицу
except
on e:Exception do
begin
//Если при вставке или запросе к БД вылез эксепшен
// то обрабатываем тут
showmessage(E.message);
end;
end;
end;
if not VarIsEmpty(Excel) then Excel.quit;// Выходим из Excel
except
on e:Exception do
begin
if not VarIsEmpty(Excel) then excel.quit;
end;
end;
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
|