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

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

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

[Maks19]

Изначально я хотел записать из уже созданного заранее файла Excel с заданным количеством строк и столбцов в массив числовые данные.

Код:

 ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Workbooks.Open('C:\Pro\1.xlsx');
xx := ExcelApp.ActiveCell.Row;
 yy := ExcelApp.ActiveCell.Column;
for i:=1 to yy do
   for j:=1 to xx do
   Mas[i,j]:=

Подскажите, к чему надо приравнивать двухмерный массив Mas, чтобы записались данные из 2 столбцов и 5 строк?

[lmikle]

Что то типа того:

Код:

    // Access the first worksheet
    Worksheet := Workbook.Worksheets[1];

    // Access a specific cell (e.g., A1)
    Cell := Worksheet.Cells[1, 1];
    CellValue := Cell.Value;