Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.038 c
1-1118226809
Руслан
2005-06-08 14:33
2005.06.29
обновить DBGrid


1-1117896808
-=GUEST=-
2005-06-04 18:53
2005.06.29
Как определить запускают программу как сервис или приложение?


14-1117925845
Piter
2005-06-05 02:57
2005.06.29
Реализация аналога file в PHP


14-1117158047
Kerk
2005-05-27 05:40
2005.06.29
С днем рожденья! 27 мая


3-1115988123
Andarko
2005-05-13 16:42
2005.06.29
Создать поле





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский