Excel

[Kitayets]

видимо в FPC 2.4 COM починили...
Жаль, что для загрузки с сайта lazarus доступен , бинарный дистрибутив только с fpc 2.2.4...

[m_guest]

Качайте снапшоты
ftp://ftp.freepascal.org/pub/lazarus/snapshots/

[Alana]

У меня вот такой код работает. FPC 2.4.0, Lazarus 0.9.29

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
path: string;
Excel, Sheet: OleVariant;
begin
  path:=ExtractFilePath(Application.ExeName)+'Reports\blank_z.xls';
  Excel:=CreateOLEObject('Excel.Application');
  try
    Excel.WorkBooks.Open(WideString(UTF8Decode(path)));
    Excel.Visible:=true;
    Excel.Range('B6'):='B6';
    Excel.Range('B7'):='B7';
    Excel.Range('G7'):='G7';
    Excel.Range('I7'):='I7';
  except
    on E:EOleException do
      ShowMessage(UTF8Encode(E.Message));
  end;
end;

Хм, у меня выдает ошибку "Не удалось найти ''. Проверьте задание имени и местоположение файла. При попытке открытия файла с использованием списка недавно использованных файлов из меню "Файл" убедитесь, что файл не был переименован, перемещен или удален."

При этом файл на месте, имя не изменено.

[Mr.Smart]

А какой путь и имя файла получается в переменной path?

[Kitayets]

2Alana

у меня такая же ошибка. думаю что это из-за старого fpc. скачайте снапшот из ссылки выше с новым компилятором, возможно поможет.

Код: Выделить всё

An unhandled exception occurred at $00420A43 :
EOleException : Не удалось найти ' D:\ME\SRC\pascal\work.xls'. Проверьте задание имени и местоположения файла.

При попытке открытия файла с использованием списка недавно использованных файлов из меню ''Файл' D:\ME\SRC\pascal\work.xls
' убедитесь, что файл не был переименован, перемещен или удален.
  $00420A43
  $00420F78
  $004212DA
  $00427CB0
  $00408D68
  $004017A3


[Alana]

2Alana
у меня такая же ошибка. думаю что это из-за старого fpc. скачайте снапшот из ссылки выше с новым компилятором, возможно поможет.

А не подскажете, что именно лучше скачать? А то в этих fpc что-то не очень разбираюсь....

[GrayEddy]

Код от evd рабочий, проверил. Мда, действительно сделали.
Путь к файлу Excel подсмотреть визуально

Код: Выделить всё

ShowMessage(patch)

> Alana
Идем на http://www.hu.freepascal.org/lazarus/
Выбираем и качаем дистр Lazarus + fpc 2.4.3 (win32), устанавливаем.
Потом указываем в IDE
1. Путь к компилятору D:\lazarus\fpc\2.4.3\bin\i386-win32\fpc.exe (в моем случае)
2. Исходники D:\lazarus\fpc\2.4.3\source\
3. Путь к make D:\lazarus\fpc\2.4.3\bin\i386-win32\make.exe

Главное - точно указать на новый компилятор не на старый!

[alexmai]

А чем не нравиться компонента FPSpreadsheet
вот ссылочка что это такое
http://wiki.lazarus.freepascal.org/FPSpreadsheet/ru
Я поставил и забыл эту проблему, причем и под виндой и под линхом

[Alana]

А чем не нравиться компонента FPSpreadsheet
вот ссылочка что это такое
http://wiki.lazarus.freepascal.org/FPSpreadsheet/ru
Я поставил и забыл эту проблему, причем и под виндой и под линхом

Что-то не поняла, откуда и как скачать...

[Vadim]

Alana
Там вверху статьи есть ссылка:
http://lazarus-ccr.svn.sourceforge.net/ ... readsheet/

[Alana]

Alana
Там вверху статьи есть ссылка:
http://lazarus-ccr.svn.sourceforge.net/ ... readsheet/

Господи ужас там какой. И все файлики качать? Это же компонент, его надо устанавливать? Не подскажете как? А то я при установке ZEOS компонентов и то мануалом пользовалась. Извините, что задаю такие глупые вопросы...

[Vadim]

И все файлики качать?

В самом низу есть "Download GNU tarball". Скачаете архив, распакуете и вперёд - установите пакет.

[Alana]

И все файлики качать?

В самом низу есть "Download GNU tarball".

Спасибо
Если я все правильно делаю - Пакет - Открыть файл пакета (.lpk), там два файлика. Первый нормально устанавливается. На втором ступор, пишет "Пакет "laz-fpspreadsheet_visual 0.0" не откомпилировался. Удалить его из списка на установку?". И ничего больше не происходит.

[m_guest]

По идее, необходимо ставить только пакет laz_fpspreadsheet_visual, второй должен цепляется автоматом.

[Vadim]

Alana
А у Вас в закладке "Additional" дополнительный компонент TsWorksheetGrid не появился?