[lmikle]

Ну, у меня это работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp : Variant;
  Workbook : Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  Workbook := ExcelApp.Workbooks.Open('C:\Users\xxxxx xxxxxx\Documents\Сказка.Оружие.xls');
  ExcelApp.Visible := True;
end;

только еще в uses руками добавил "ComObj, ActiveX".
Если задать неправильно имя файла (добавил "1" в имя в конце), то действительно вылетает ошибка. Т.е. подозреваю, что все-таки что то не так с именем файла.
Попробуй для начала выбрать файл в OpenDialog:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp : Variant;
  Workbook : Variant;
begin
  if OpenDialog1.Execute then
  begin
    ExcelApp := CreateOleObject('Excel.Application');
    Workbook := ExcelApp.Workbooks.Open(OpenDialog1.FileName);
    ExcelApp.Visible := True;
  end;
end;

Тут уж точно имя файла будет правильное.

ЗЫ. Еще вариант - неправльный формат файла.