Все отлично работает но, как всегда приколы с кодировкой.
В excel все выходи в таком виде ????? ????? ??????
тоесть получается что данные уже попадают в программу в таком виде, проверяю в memo.
- Код: Выделить всё
procedure TForm1.Button2Click(Sender: TObject);
var
S,S1: string;
I: integer;
Excelapp:Variant;
begin
Excelapp:=CreateOleObject('Excel.Application');
Excelapp.WorkBooks.Open('C:\1.xls');
ExcelApp.Visible := false;
S := 'insert into '+edit1.Text+' '+edit2.Text+' values (';
for i:=1 to 15 do
begin
s1:=Excelapp.Cells[1,i].value;
s:=s+''''+s1+''',';
end;
memo1.Text:=''+S+'';
memo1.Text:=copy(memo1.Text,1,length(memo1.Text)-1)+''+')'+'';
ZQuery1.sql.text:=''+memo1.Text+'';
ZQuery1.ExecSQL;
excelapp.quit;
end;