Скачать: CL | DM;

ExcelApplication   Найти похожие ветки 

← →
john_mag ©   (2005-06-07 12:28) [0]

Добрый полдень всем! После ваших советов модернизировал прогу.
Вроде все работает нормально, но дело в следующем: после каждого цикла i сохраняется файл с уникальным именем и с данными, ОДНАКО, файлы сораняются, но данные появляются только в первом файле, а остальные пусты! если кто-нибудь сможет дать дельный совет - буду очень признателен!

---

← →
Digitman ©   (2005-06-07 12:29) [1]

как и всегда, ошибка в 17-й строке

---

← →
-=XP=- ©   (2005-06-07 12:31) [2]

После ваших советов модернизировал прогу

Уважаемый Егений!

Я сохранил все Ваши вопросы и ответы на них. Но, к сожалению, архив куда-то пропал. Поэтому ответить на этот вопрос не могу, по причине абсолютного непонимания того, о чем идет речь.

---

← →
GreatMaster   (2005-06-07 12:32) [3]

Щас мы все собирёмся и попытаемся угадать твой код...

---

← →
john_mag ©   (2005-06-07 12:54) [4]

GreatMaster   (07.06.05 12:32) [3]

Щас мы все собирёмся и попытаемся угадать твой код...

зря ты так...
у меня код не отсылается... "удаленный сервер разорвал связь"

попробую еще раз...

---

← →
john_mag ©   (2005-06-07 12:54) [5]

for j:= 1 to n do
   begin
     xlApp:= CreateOleObject("Excel.Application");
     xlApp.WorkBooks.Add;
     xlSheet:= xlApp.WorkBooks[1].WorkSheets[1];
     xlSheet.Name:= "qwerty";
     for i:= 1 to m do
       begin
          if mass[4+cc2,i] = 1 then
            begin
              xlSheet.Cells.Item[cc+1,1].Value:= IntToStr(FF1.Number);
              O1:= FF6.NameFirm;
              O:= "C:\Apteka\Append\"+O1+".xls";
              FileName:= O;
              Inc(cc);
            end;
          Inc(c);
          Inc(cc1);
       end;
     cc1:= 0;
     Inc(cc2);
     Inc(cc2);
     xlApp.Workbooks[1].SaveAs(FileName);
     xlApp.Quit;
     xlApp := Unassigned;
     xlSheet := Unassigned;
   end;

---

← →
GreatMaster   (2005-06-07 13:07) [6]

вот упрощёный вариант твоего, он работает:


for j:= 1 to 10 do
  begin
    xlApp:= CreateOleObject("Excel.Application");
    xlApp.WorkBooks.Add;
    xlSheet:= xlApp.WorkBooks[1].WorkSheets[1];
    xlSheet.Name:= "qwerty";
    for i:= 1 to 5 do
      begin
           begin
             xlSheet.Cells.Item[1,1].Value:= IntToStr(j);
             O:= "C:\Apteka\Append\"+IntToStr(j)+".xls";
             FileName:= O;
           end;
      end;
    xlApp.Workbooks[1].SaveAs(FileName);
    xlApp.Quit;
    xlApp := Unassigned;
    xlSheet := Unassigned;
  end;


А вот у тебя, if mass[4+cc2,i] НЕ РАВНО 1 then сам понимаешь...

---

← →
john_mag ©   (2005-06-07 13:12) [7]

GreatMaster   (07.06.05 13:07) [6]
А вот у тебя, if mass[4+cc2,i] НЕ РАВНО 1 then сам понимаешь...

это ведь только часть кода. идет проверка массива и если значение массива = 1 то в FileName в таблицу записываются данные из БД.

а разницы с моим кодом что-то я не вижу...

---

← →
Digitman ©   (2005-06-07 13:13) [8]

зачем n раз создавать/уничтожать объект Excel.Application и раб.книгу, когда это можно сделать один раз, а в цикле только заполнять раб.лист и сохранять документ в файл ?

---

← →
GreatMaster   (2005-06-07 13:17) [9]

> а разницы с моим кодом что-то я не вижу..
дык мой кусок работает - пишет в файлы разные данные, сравни со своим и найди ошипку

---

← →
john_mag ©   (2005-06-07 13:18) [10]

нет предела совершенству! и нет совершенных программ (Windows,...) все Ваши пожелания я учту и исправлю, но что мне делать с тем , что у меня есть??

---

← →
Digitman ©   (2005-06-07 13:30) [11]

> что мне делать с тем , что у меня есть??


трассировать пошагово

---

← →
Anatoly Podgoretsky ©   (2005-06-07 13:47) [12]

john_mag ©   (07.06.05 13:18) [10]
Есть разные варианты
1. выбросить
2. продолжать использовать
3. третье

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c