
0
Работа с отчетом
Пытался сделать запись в файл на основании Ваших примеров "Работа с объектом Excel. Примеры не работают
var
D,i:Integer;
OpenDialog1: TOpenDialog;
begin
OpenDialog1:=TOpenDialog.Create(nil);
try
OpenDialog1.Filter:='Excel\*.xlsx';
OpenDialog1.InitialDir:='C:\slProject';
if OpenDialog1.Execute then
begin
if Excel.OpenTemplate(OpenDialog1.FileName)=1 then
i:=1;
if Excel.OpenTemplate(OpenDialog1.FileName)= 2 then
i:=2;
if Excel.OpenTemplate(OpenDialog1.FileName)=3 then
i:=3;
if Excel.OpenTemplate(OpenDialog1.FileName)= 9 then
i:=9;
if Excel.OpenTemplate(OpenDialog1.FileName)= 0 then
i:=0;
if Excel.OpenTemplate(OpenDialog1.FileName)<>0 then
begin
i:=5;
Exit;
end;
Excel.Cell['A1']:=100;
D:=Excel.Cell['B2'];
Excel.Show;
Excel.Save('C:\slProject1\Report');
end;
OpenDialog1.Free;
finally
end;
end.
что я не так делаю????
var
D,i:Integer;
OpenDialog1: TOpenDialog;
begin
OpenDialog1:=TOpenDialog.Create(nil);
try
OpenDialog1.Filter:='Excel\*.xlsx';
OpenDialog1.InitialDir:='C:\slProject';
if OpenDialog1.Execute then
begin
if Excel.OpenTemplate(OpenDialog1.FileName)=1 then
i:=1;
if Excel.OpenTemplate(OpenDialog1.FileName)= 2 then
i:=2;
if Excel.OpenTemplate(OpenDialog1.FileName)=3 then
i:=3;
if Excel.OpenTemplate(OpenDialog1.FileName)= 9 then
i:=9;
if Excel.OpenTemplate(OpenDialog1.FileName)= 0 then
i:=0;
if Excel.OpenTemplate(OpenDialog1.FileName)<>0 then
begin
i:=5;
Exit;
end;
Excel.Cell['A1']:=100;
D:=Excel.Cell['B2'];
Excel.Show;
Excel.Save('C:\slProject1\Report');
end;
OpenDialog1.Free;
finally
end;
end.
что я не так делаю????
Сервис поддержки клиентов работает на платформе UserEcho
var D ,i:Integer; OpenDialog1: TOpenDialog; res: integer; begin OpenDialog1 := TOpenDialog.Create(nil); try OpenDialog1.Filter:='Excel|*.xlsx'; OpenDialog1.InitialDir:='C:\slProject'; if OpenDialog1.Execute then begin i := Excel.OpenTemplate(OpenDialog1.FileName); if i <> 0 then begin i:=5; Exit; end; Excel.Cell['A1'] := 100; D := Excel.Cell['B2']; Excel.Show; Excel.Save('C:\slProject1\Report.xls'); end; finally OpenDialog1.Free; end; end.
Вот такой вариант будет более правильный. Что именно у Вас не работало?
Попробуйте для теста мой вариант.
хотя исходя из кода если будет ошибка то результат всегда будет 5. Немного переделаем скрипт:
var D ,i:Integer; OpenDialog1: TOpenDialog; res: integer; begin OpenDialog1 := TOpenDialog.Create(nil); try OpenDialog1.Filter:='Excel|*.xlsx'; OpenDialog1.InitialDir:='C:\slProject'; if OpenDialog1.Execute then begin i := Excel.OpenTemplate(OpenDialog1.FileName); if i <> 0 then Exit; Excel.Cell['A1'] := 100; D := Excel.Cell['B2']; Excel.Show; Excel.Save('C:\slProject1\Report.xls'); end; finally OpenDialog1.Free; end; end.
вот такая последовательность команд работать не будет!
Excel.Show;
Excel.Save('C:\slProject1\Report.xls');
После выполнения методов Show, Close – скрипт теряет контроль над открытым
документом Excel, и последующие команды игнорируются.
Библиотека скриптов. И насколько возможно заполучить исходники Редактора мнемосхем и Редактора каналов????
На столько полно на сколько реализован FastScript.
Этого сделать нельзя.
Все что реализовано в программном продукте Fast Reports Inc (FastScript) ,будет работать в рамках функционала который предоставляет SIMP LIGHT.
Что именно жаль. Не понял вопроса?
Чего именно не хватает?
Ок. Всего доброго. За Вами ответ на предыдущий вопрос.))
Не работает как? Не открывает, не сохраняет, симптомы какие?
Т.е. вот такой пример у Вас не работает?
var OpenDialog1: TOpenDialog; begin OpenDialog1 := TOpenDialog.Create(nil); try OpenDialog1.Filter:='Excel|*.xlsx'; OpenDialog1.InitialDir:='C:\slProject'; if OpenDialog1.Execute then begin if Excel.OpenTemplate(OpenDialog1.FileName) = 0 then begin Excel.Cell['A1'] := 100; Excel.Cell['A2'] := 200; Excel.Cell['A3'] := 300; Excel.Cell['A4'] := 400; Excel.Save('C:\slProject1\Report.xls'); Excel.Show(false); end; end; finally OpenDialog1.Free; end; end.
Вместо команды Excel.Show используйте Excel.Show(false);
password rzd656
p.s. смените пароль
Выслал Вам на почту файлы для теста.
Это первое, и второе - не плохо было бы дать описание работы с драйвером Modbus.
Замечательно что разобрались.
Документацию сейчас подготавливают, думаю вместе с релизом она станет доступна.
Но с Excel и Вы мне совали примеры с моей-же ошибкой, и это спец по поддержке…., заставили переустановить Офис и саму ОС, хотя все было так просто…
Я думаю в течении месяца.
Вопрос первый.