[Maks19]

Здравствуйте, при попытке импортировать файл возникает ошибка "К сожалению нам не удалось найти файл H:\Pro\1.xls. Возможно он был перемещен, переименован"

Код:

ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Workbooks.Open('H:\Pro\1.xls')

Файл 1.xls находится в папке с проектом.
Подскажите, почему возникает такая ошибка?

[lmikle]

Ну, для начала проверь, что файл не заблокирован (например, уже не открыт в другой копии Excel'я).

[Maks19]

Excel не запущен. Файл не открыт. После нажатия на команду по которой должен работать код

Код:

ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Workbooks.Open('H:\Pro\1.xls')

Excel появляется в списке фоновых процессов.

[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;

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

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