<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[My Visual Database — Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
		<link>https://myvisualdatabase.com/forum/viewtopic.php?id=5403</link>
		<atom:link href="https://myvisualdatabase.com/forum/extern.php?action=feed&amp;tid=5403&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[The most recent posts in Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application".]]></description>
		<lastBuildDate>Thu, 04 Jul 2019 09:05:57 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31752#p31752</link>
			<description><![CDATA[<p>Функция CLSIDFromProgID не является моей, она системная, к сожалению я не смогу изменить механизм ее работы.</p>]]></description>
			<author><![CDATA[null@example.com (DriveSoft)]]></author>
			<pubDate>Thu, 04 Jul 2019 09:05:57 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31752#p31752</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31703#p31703</link>
			<description><![CDATA[<div class="quotebox"><cite>DriveSoft wrote:</cite><blockquote><p>Имеете ввиду ключ реестра?</p><br /><p>Проверяется другим способом:<br /></p><div class="codebox"><pre><code>function CheckExcelInstalled(AValue: String): boolean;
var
  FCLSID: TCLSID;
begin
  Result := (CLSIDFromProgID(PChar(AValue), FCLSID) = S_OK);
end;</code></pre></div><br /><div class="codebox"><pre><code>        // auto
        if CheckExcelInstalled (&#039;Excel.Application&#039;) then Grid.ExportToExcel()
        else if CheckExcelInstalled (&#039;com.sun.star.ServiceManager&#039;) then Grid.ExportToLibreCalc()
        else MessageBox(TForm(TdbButton(Button).Owner).Handle, PChar(Lang.Your_computer_does_not_have_Excel_or_LibreOffice), PChar(Lang.Error), MB_OK+MB_ICONINFORMATION);</code></pre></div></blockquote></div><p>Этот код ищет в реестре программу с названием &quot;Excel.Application&quot;.<br />Все ProgID должны располагаться в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes\<br />Но, в этой ветке на моем ПК нет строки &quot;Excel.Application&quot; (проверил вручную)<br />Зато есть в какой то другой ветке и без параметра CLSID<br />Может быть Ваш код&nbsp; не учитывает отсутствие этой строки в данной ветке реестра или отсутствие у него CLSID?<br />И поэтому возникает ошибка.</p>]]></description>
			<author><![CDATA[null@example.com (mikhail_a)]]></author>
			<pubDate>Mon, 01 Jul 2019 16:49:39 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31703#p31703</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31702#p31702</link>
			<description><![CDATA[<p>Имеете ввиду ключ реестра?</p><br /><p>Проверяется другим способом:<br /></p><div class="codebox"><pre><code>function CheckExcelInstalled(AValue: String): boolean;
var
  FCLSID: TCLSID;
begin
  Result := (CLSIDFromProgID(PChar(AValue), FCLSID) = S_OK);
end;</code></pre></div><br /><div class="codebox"><pre><code>        // auto
        if CheckExcelInstalled (&#039;Excel.Application&#039;) then Grid.ExportToExcel()
        else if CheckExcelInstalled (&#039;com.sun.star.ServiceManager&#039;) then Grid.ExportToLibreCalc()
        else MessageBox(TForm(TdbButton(Button).Owner).Handle, PChar(Lang.Your_computer_does_not_have_Excel_or_LibreOffice), PChar(Lang.Error), MB_OK+MB_ICONINFORMATION);</code></pre></div><br /><br /><p>в принципе вы можете реализовать режим Auto скриптами, создайте на форме две кнопки, одна для Excel, другая для LibreOffice, данные кнопки можно скрыть с формы, затем расположите еще одну кнопку, где вы сможете по своему алгоритму определять, что именно установлено у пользователя и соотвественно нажимать соотвествующую скрытую кнопку.</p>]]></description>
			<author><![CDATA[null@example.com (DriveSoft)]]></author>
			<pubDate>Mon, 01 Jul 2019 14:29:14 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31702#p31702</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31701#p31701</link>
			<description><![CDATA[<div class="quotebox"><cite>DriveSoft wrote:</cite><blockquote><p>Режим auto не проверяет ассоциацию расширения xls, а только лишь проверяет, если установлен Excel, открываем в нем, если нету, то проверяет, установлен ли Libre Office.</p></blockquote></div><p>Вопрос - к какому ключу идет обращение, чтобы понять установлен ли Excel?</p>]]></description>
			<author><![CDATA[null@example.com (mikhail_a)]]></author>
			<pubDate>Mon, 01 Jul 2019 14:22:26 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31701#p31701</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31568#p31568</link>
			<description><![CDATA[<p>На этом ПК у меня&nbsp; Excel не стоял никогда.<br />Но, стоял WPS Office 2016.<br />И в него экспорт производился нормально при установке кнопки в auto.<br />В мое отсутствие на работе эту программу по ошибке деинсталлировали с ПК.<br />Возможно, сделали что-то неправильно.<br />Я уже поставил ее обратно, но в нее экспорт теперь уже не производится.<br />Т.е. возможно это проблема конкретного ПК, но надо бы добавить перехват и обработку этой ошибки.<br />А вообще, правильно было бы проверять ассоциацию&nbsp; расширения файла и запускать привязанное по умолчанию приложение</p>]]></description>
			<author><![CDATA[null@example.com (mikhail_a)]]></author>
			<pubDate>Fri, 21 Jun 2019 14:47:10 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31568#p31568</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31565#p31565</link>
			<description><![CDATA[<p>Режим auto не проверяет ассоциацию расширения xls, а только лишь проверяет, если установлен Excel, открываем в нем, если нету, то проверяет, установлен ли Libre Office.</p><br /><p>Пока под рукой нет компьютера без установленного Excel для проверки, но попробую найти, т.к. возможно ошибка связана с некоректным удалением Excel.</p><br /><p>Если у кого то из пользователей не уставновлен Excel, просьба проверить это, будет ли таже самая ошибка.</p>]]></description>
			<author><![CDATA[null@example.com (DriveSoft)]]></author>
			<pubDate>Fri, 21 Jun 2019 13:43:17 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31565#p31565</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31562#p31562</link>
			<description><![CDATA[<p>Получается такая картина:<br />1. Если на ПК установлен Excel и Libre Office, то экспорт нормально срабатывает в любое приложение (если в кнопке явно указать конкретное приложение - Excel или OpenOffice(Calc) )<br />Однако, при указании в кнопке значения &quot;auto&quot;, открывается Excel, а не то приложение, с которым ассоциировано расширение файла xls.<br />Т.е. настройка &quot;auto&quot; - &#039;это не&nbsp; &quot;auto&quot;, а &quot;Excel&quot;.<br />2. Если на ПК установлен только Excel, то экспорт в него работает корректно, а при попытке послать экспорт в OpenOffice(Calc), сообщает, что эта программа не установлена. <br />Т.е. все ОК.<br />3. Если на ПК Excel не установлен, а только Libre Office, то экспорт в него делается нормально, а экспорт в &quot;Excel&quot; или &quot;auto&quot; подвешивает программу где-то на минуту, а затем появляется сообщение об ошибке:&nbsp; Ошибка при выполнении приложения-сервера, ProgID: &quot;Excel.Application&quot;.<br />Проверить, как это работает на других ПК без установленного Excel пока не могу.<br />...<br />Очевидно, ошибка возникает в момент создания объекта Excel.Application, поскольку его на ПК нет.<br />...<br />Таким образом, во-первых, кнопка экспорта в режиме auto должна открывать то приложение, с которым ассоциировано расширение xls.<br />И второе - если Excel не установлен (или ошибка создания объекта), то сообщать, что Excel не установлен.</p>]]></description>
			<author><![CDATA[null@example.com (mikhail_a)]]></author>
			<pubDate>Fri, 21 Jun 2019 13:26:55 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31562#p31562</guid>
		</item>
		<item>
			<title><![CDATA[Re: Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31527#p31527</link>
			<description><![CDATA[<p>Проверьте пожалуйста, какая ошибка возникает, когда в настройках кнопки указан &quot;Excel&quot;</p><br /><p>Данная ошибка возникает на всех компьютерах, на которых Excel не установлен? или только&nbsp; на одном?</p>]]></description>
			<author><![CDATA[null@example.com (DriveSoft)]]></author>
			<pubDate>Thu, 20 Jun 2019 09:56:34 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31527#p31527</guid>
		</item>
		<item>
			<title><![CDATA[Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application"]]></title>
			<link>https://myvisualdatabase.com/forum/viewtopic.php?pid=31491#p31491</link>
			<description><![CDATA[<p>Есть кнопка со стандартным действием &quot;Экспорт в Excel&quot;.<br />В настройках кнопки указано свойство &quot;Auto&quot;.<br />Для работы с таблицами установлен LibreOffice Calc. Excel не установлен. <br />При нажатии кнопки &quot;Экспорт в Excel&quot; выпадает ошибка: Ошибка при выполнении приложения-сервера, ProgID: &quot;Excel.Application&quot;.<br />Если же в свойствах кнопки указать вместо auto вывод в LibreOffice Calc, то вывод работает нормально.<br />Как победить ошибку при установке вывода в &quot;auto&quot;?<br />У меня сетевое приложение и у разных пользователей стоят разные программы&nbsp; для работы с таблицами.<br />Т.е. мне нужно действительно &quot;auto&quot; определение в какое приложение выводить данные.<br />Если нельзя или долго устранять ошибку, то может быть как-то можно в самом скрипте проверять, какое приложение используется на данном ПК для работы с таблицами и посылать данные в него?</p>]]></description>
			<author><![CDATA[null@example.com (mikhail_a)]]></author>
			<pubDate>Tue, 18 Jun 2019 13:14:50 +0000</pubDate>
			<guid>https://myvisualdatabase.com/forum/viewtopic.php?pid=31491#p31491</guid>
		</item>
	</channel>
</rss>
