Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1865597 Tue, 12 Feb 2008 10:19:21 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1865597 И совсем отказаться от использования "диких" runtime OLE-вызовов через варианты.
Это уже многие советовали давным давно. Будет все гораздо проще, т.к. контроль 95% проблем возьмет на себя компилятор.]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1865359 Tue, 12 Feb 2008 08:07:03 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1865359 Цитата RuSA @
Цитата ScoobyDoo @
Каким образом оно может быть некоректно?

Имея в виду выражение (1):
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;

рассмотрим только факты. В силу того, что выражение слева корректно, потому что:
Цитата RuSA @
xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;
- работает нормально, без ошибок

, а присвоение (1) нет, причем с ошибкой "несовпадение типов данных", ясно что проблема в правой части, либо
слева надо прописать что-то еще, например .Range или .Value:
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;

;)
P.S. Такое происходит потому-что "дятел" VB самостоятельно может использовать .Value или более обощенно - "свойство по умолчанию"
для данного объекта, когда посчитает нужным. Именно поэтому (и не только), считаю что на VB пишут мазохисты :)

Попробовал и
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;
,
и
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Value := v5;

...всё без толку...в этих случаях вылазиет ошибка
Invalid variant operation

Ну подсобите мне, пожалуйста....башка уже болит об стенку биться -(]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1862131 Fri, 08 Feb 2008 12:34:25 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1862131 Цитата ScoobyDoo @
Каким образом оно может быть некоректно?

Имея в виду выражение (1):
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;

рассмотрим только факты. В силу того, что выражение слева корректно, потому что:
Цитата RuSA @
xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;
- работает нормально, без ошибок

, а присвоение (1) нет, причем с ошибкой "несовпадение типов данных", ясно что проблема в правой части, либо
слева надо прописать что-то еще, например .Range или .Value:
       Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;

;)
P.S. Такое происходит потому-что "дятел" VB самостоятельно может использовать .Value или более обощенно - "свойство по умолчанию"
для данного объекта, когда посчитает нужным. Именно поэтому (и не только), считаю что на VB пишут мазохисты :)]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1861808 Fri, 08 Feb 2008 08:27:03 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1861808 Цитата RuSA @
Цитата ScoobyDoo @

заменил 0 на 1:
xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;

- работает нормально, без ошибок...но что это даёт?


А вот что:
1) индексация Form1.App.Charts[i].SeriesCollection.Item(...) начинается от единицы (у Масдая все через одно место);
2) выражение Form1.App.Charts[i].SeriesCollection.Item(1).XValues корректно отработано !

Следовательно исходная проблема выражения:
Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;
в некорректной правой части. Значение v5 некорретно !

Каким образом оно может быть некоректно? если он просто получается:
    v5 := v1.Range[v1.Cells[HomeRow-1,HomeColumn], v1.Cells[HomeRow-1,Column-1]];


извините, но просто не понимаю...что тут как надо исправить, чтобы заработало? ведь в 2003 офисе всё работает]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1860575 Thu, 07 Feb 2008 09:50:23 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1860575 Цитата ScoobyDoo @

заменил 0 на 1:
xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;

- работает нормально, без ошибок...но что это даёт?


А вот что:
1) индексация Form1.App.Charts[i].SeriesCollection.Item(...) начинается от единицы (у Масдая все через одно место);
2) выражение Form1.App.Charts[i].SeriesCollection.Item(1).XValues корректно отработано !

Следовательно исходная проблема выражения:
Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;
в некорректной правой части. Значение v5 некорретно !]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1860525 Thu, 07 Feb 2008 09:09:14 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1860525 Цитата RuSA @
Цитата ScoobyDoo @
... в случае круглых скопок ошибка не совпадения типов,

так надо проверить в каком месте несовпадение. Возможно некорректно присваивается значение для XValues !
Можно проверить чтением:
       {xV: OleVariant; }
       xV :=  Form1.App.Charts[i].SeriesCollection.Item(0).XValues;

Извините, не понял...как проверить чтением?
закомментировал
    Form1.App.Charts[i].SeriesCollection.[B]Item[1][/B].XValues := v5;
    Form1.App.Charts[i].HasLegend := False;

и вставил
    xV :=  Form1.App.Charts[i].SeriesCollection.Item(0).XValues;

- выдало ошибку что то типа неверной адресации.
заменил 0 на 1:
    xV :=  Form1.App.Charts[i].SeriesCollection.Item(1).XValues;

- работает нормально, без ошибок...но что это даёт?]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859532 Wed, 06 Feb 2008 12:12:16 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859532 Цитата ScoobyDoo @
... в случае круглых скопок ошибка не совпадения типов,

так надо проверить в каком месте несовпадение. Возможно некорректно присваивается значение для XValues !
Можно проверить чтением:
       {xV: OleVariant; }
       xV :=  Form1.App.Charts[i].SeriesCollection.Item(0).XValues;
]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859110 Wed, 06 Feb 2008 05:19:17 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859110 Цитата RuSA @
Цитата ScoobyDoo @
Помогите пожалуйста решить эту проблем

Уже отвечали - например, см. сообщ. #5

ну я и следовал первому пункту в 5м посте...при редактировании макроса тоже самое нормально работает...а в дельфие нет :(]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859081 Wed, 06 Feb 2008 01:25:33 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1859081 Цитата ScoobyDoo @
Помогите пожалуйста решить эту проблем

Уже отвечали - например, см. сообщ. #5]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1858166 Tue, 05 Feb 2008 11:30:50 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1858166 ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1854016 Fri, 01 Feb 2008 08:35:25 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1854016 ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1850370 Tue, 29 Jan 2008 06:55:41 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1850370 Цитата ScoobyDoo @
Здравствуйте!
у меня такая проблема...в 2003 офисе этот кусок нормально работает:
    VSheet3.ChartObjects[2].Chart.SetSourceData(
      VSheet2.Range[VSheet2.Cells[countshop + 5,4],
      VSheet2.Cells[countshop + 5,RowItogo-1]], xlRows);


но в 2007 ругается, что что Член группы не найден

Подскажите пожалуйста в чём проблема и как её решить.

Заранее признателен

это проблема решилась просто...надо было только у ChartObjects[2] квадратные скобки заменит на круглые.

дальше возникла следующая проблема:

    v5 := v1.Range[v1.Cells[HomeRow-1,HomeColumn], v1.Cells[HomeRow-1,Column-1]];
     
        for i := 1 to 5 do
          begin
            Form1.App.Charts[i].SeriesCollection.[B]Item[1][/B].XValues := v5;
            Form1.App.Charts[i].HasLegend := False;
          end;

этот отрывок кода выдаёт ту же ошибку Член группы не найден.

Путём разбиения определил, что ругается именно на выделенный жирным Item[1].
Если меняю скобки на круглые, то ошибка меняется на несовпадение типов данных.

Где то в инете увидел, что можно использовать без итема следующим образом
    Form1.App.Charts[i].SeriesCollection(1).XValues := v5;

но так же в случае круглых скопок ошибка не совпадения типов, а при [] - неверный член группы.

Помогите, пожалуйста, решить эту проблему. Опять же в 2003 офисе исходный код работает.]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1842238 Mon, 21 Jan 2008 07:21:28 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1842238 Цитата Galiaf @
ребята если я не ошибаюсь то 2007 очень сильно отличается от 2003 даже форматы файлов не совместимы...

Не очень он отличается. Писал приложение, формирующее отчет в Excell. Отчет довольно серьезный. А кроме этого всё форматирование хранится не в отдельном шаблоне, а создается программно (знаю, извращение, но тогда так надо было) .
Так вот - когда запустил программу на компьютере с 2007-м офисом - всё отлично заработало с 1-го раза.

Добавлено
вместо этого
     X1 := VSheet2.Cells[countshop + 5,4];
     X1 := VSheet2.Range[ X1 ];

лучше использовать вот это
     X1 := VSheet2.Cells[countshop + 5,4];
     X1 := VSheet2.Range[ X1,X1 ];

Я вообще не знаю, как с одним аргументом работало.]]> DimaBy Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1840155 Fri, 18 Jan 2008 14:42:58 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1840155 lidhen, по окуратнее на поворотах! Новую тему создать, неужели так сложно?]]> onyx Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1840059 Fri, 18 Jan 2008 13:57:28 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1840059
M
lidhen
не лезь в чужую ветку со своими вопросами
]]> jack128 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1821507 Sat, 29 Dec 2007 15:26:38 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1821507 Цитата Galiaf @
ребята если я не ошибаюсь то 2007 очень сильно отличается от 2003 даже форматы файлов не совместимы...

Похоже.
Тогда можно сделвать так:
1) самое простое - создать аналогичный код на встроенном в Excel VBScript (макросы/редактировать ...),
затем перевести этот код на Delphi.
2) найти интерфейсы для Office2007 (наподобии файла из поставки Delphi "%Delphi%\Ocx\Servers\Office2000.pas" и работать
через них, а не через IDispatch.]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820959 Sat, 29 Dec 2007 07:12:53 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820959 Galiaf Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820948 Sat, 29 Dec 2007 06:21:38 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820948 разбил этот кусок как Вы посоветовали, ошибку выдаёт на
    X1 := VSheet2.Range[ X1 ];

OLE error 800A03EC

подскажите пожалуйста как это исправить...в 2003 офисе же работает

Добавлено
хотя в 2003 офисе при данном разбитии операторов именно на этом же месте вылазиет та же самая ошибка....может как то неверно разбито?]]> ScoobyDoo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820505 Fri, 28 Dec 2007 14:06:57 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1820505 Их надо поочереди выполнить и сразу станет ясно на какой именно операции проблема.
       {  var X1, X2: OleVariant; }
       X1 := VSheet2.Range[VSheet2.Cells[countshop + 5,4];
       X2 := VSheet2.Cells[countshop + 5,RowItogo-1];
       VSheet3.ChartObjects[2].Chart.SetSourceData( X1, X2, xlRows);

Возможно индекс неверен или что-либо из этой серии.

Добавлено
Даже не больше чем три: вместо X1 := ... еще детальнее сделать :
       X1 := VSheet2.Cells[countshop + 5,4];
       X1 := VSheet2.Range[ X1 ];
]]> RuSA Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1819888 Fri, 28 Dec 2007 07:53:21 +0000 Delphi и Excel 2007 https://forum.sources.ru/index.php?showtopic=217280&view=findpost&p=1819888 у меня такая проблема...в 2003 офисе этот кусок нормально работает:
    VSheet3.ChartObjects[2].Chart.SetSourceData(
      VSheet2.Range[VSheet2.Cells[countshop + 5,4],
      VSheet2.Cells[countshop + 5,RowItogo-1]], xlRows);


но в 2007 ругается, что что Член группы не найден

Подскажите пожалуйста в чём проблема и как её решить.

Заранее признателен]]> ScoobyDoo Delphi: Система, Windows API