Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: 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 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.089 c
14-1117310218
VictorT
2005-05-28 23:56
2005.06.29
Кажется, один из немногих форумов, где и по выходным есть...


3-1116491433
MEV
2005-05-19 12:30
2005.06.29
ADOCommand & скрипт


11-1100529057
<Falcon>
2004-11-15 17:30
2005.06.29
Странное поведение MHFontDialog


14-1117548431
X9
2005-05-31 18:07
2005.06.29
Вопрос электронщикам - работа с микроконтроллерами Atmel


1-1118187928
Gopher
2005-06-08 03:45
2005.06.29
внутри .exe





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский