[cyborgg4655]

Нужно вытащить из екселя значение строки и создать таблицу с назвнием равным этому значению. После того как открываю файл, вылазиет ошибка "Ошибка синтаксиса в инструкции CREATE TABLE" Вот мой код:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  ea:variant;
  row:integer;
  i: word;
  i2:integer;
  asd:string;
begin
  if opendialog1.Execute then
  asd:=Label5.Caption;
begin
  ea:=CreateOleObject('Excel.Application'); //Задубасить Ole обьект типа Eксель
  ea.Workbooks.Open(opendialog1.FileName); //Открываем нужную нам книгу
  ea.Visible:=false;// Скрываем, если конечно нужно
  Label5.Caption:=ea.Sheets[1].Cells[2,1];
asd:=Label5.Caption;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (Код number, Наименование char(255), Количество number, Дата date)', [asd]);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:= Format('SELECT * from %s', [asd]);
ADOQuery1.Open;

[cyborgg4655]

Все заработало)) просто дефис нельзя использовать в названии таблицы, в эксель ячейку перименовал и все заработало)