<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=6860</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=6860&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...».]]></description>
		<lastBuildDate>Fri, 24 Feb 2012 22:14:00 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=57210#p57210</link>
			<description><![CDATA[<div class="quotebox"><cite>JSman пишет:</cite><blockquote><p>Может быть стоит запускать это из WSH?</p></blockquote></div><p>Нет, не могу - надо чтоб пользователь мог выбирать дату и номер параметра</p><p>Сервер MS SQL 2008, оптимизировать запрос не получится т.к. данные хранятся в бинарном виде и их надо конвертировать в число с плавающей запятой %)<br />Метод Quit попробую...<br />Номер моей аськи 127803839</p>]]></description>
			<author><![CDATA[null@example.com (-red-)]]></author>
			<pubDate>Fri, 24 Feb 2012 22:14:00 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=57210#p57210</guid>
		</item>
		<item>
			<title><![CDATA[Re: Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=57205#p57205</link>
			<description><![CDATA[<p>1) А вы книгу же не закрываете. По крайней мере в коде я этого не вижу.<br /></p><div class="codebox"><pre><code>xlApp.Quit</code></pre></div><p>2) Может стоит всё таки оптимизировать сам запрос к серверу или страницу выдачи информации ? На чём серверная часть собрана PHP / ASP ? Или её нет ? И все обращения делаются через механизмы самого SQL сервака ?</p><p>3) Думаю стоит связаться по ICQ. Удобнее будет. 252505765</p>]]></description>
			<author><![CDATA[null@example.com (Xameleon)]]></author>
			<pubDate>Fri, 24 Feb 2012 20:05:35 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=57205#p57205</guid>
		</item>
		<item>
			<title><![CDATA[Re: Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=57199#p57199</link>
			<description><![CDATA[<p>Может быть стоит запускать это из WSH?</p>]]></description>
			<author><![CDATA[null@example.com (JSmаn)]]></author>
			<pubDate>Fri, 24 Feb 2012 17:42:13 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=57199#p57199</guid>
		</item>
		<item>
			<title><![CDATA[Excel VBA: Создать файл xls, вставить в него данные, закрыть и ...]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=57183#p57183</link>
			<description><![CDATA[<p>... обратиться к нему как к БД через ADO.</p><p>Проблема в том что создаваемый файл xls не должен появляться на экране. Кострукция типа:<br /></p><div class="codebox"><pre><code>
Set xlApp = CreateObject(&quot;Excel.Application&quot;)
xlApp.Visible = False
xlApp.UserControl = False
Set xlWb = xlApp.Workbooks.Add
xlWb.Worksheets.Add().Name = &quot;system&quot;
Set xlWs = xlWb.Worksheets(&quot;system&quot;)
xlWs.Cells(1, 1).CopyFromRecordset oRecordset
xlWb.SaveAs Filename:=ActiveWorkbook.Path &amp; &quot;\rashodomeri_tmp.xlsx&quot;, FileFormat:=xlOpenXMLWorkbook, ConflictResolution:=xlLocalSessionChanges</code></pre></div><p>Выводит на экран файл и всё тут <img src="//forum.script-coding.com/img/smilies/sad.png" width="15" height="15" /></p><p>Для ясности напишу зачем я это делаю.<br />Есть задача отобразить данные из MS SQL сервера, при условиях:<br />1. Доступ к БД через интернет (достаочно медленный) - количество запросов должно быть сведено к минимуму.<br />2. Данные в БД хранятся в &quot;сыром&quot; т.е. бинарном виде - требуется преобразовать эти данные в привычную человеку форму.<br />3. В один из столбцов в БД пишется дата (формат DateTime) нужно вывести 3 вида отчета - дневной, месячный и годовой.</p><p>Дневной вид отчета делается легко: запрос с between, на лету из RecordSet данные конвертирую в человеческий формат. А вот месячный и годовой, решил сделать так: Сначала такой же запрос как и в дневном (только период дат побольше), потом копирование всего этого хозяйства в локальную таблицу, потом обращение к этой таблице как к БД через ADO с группировкой по месяцу или году и вуаля...<br />... но тут блин выскакивает на экран новый файл и как с ним боротться не знаю <img src="//forum.script-coding.com/img/smilies/sad.png" width="15" height="15" /></p><p>Сейчас буду копать в сторону встроенных процедур на сервере с БД</p>]]></description>
			<author><![CDATA[null@example.com (-red-)]]></author>
			<pubDate>Fri, 24 Feb 2012 11:51:57 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=57183#p57183</guid>
		</item>
	</channel>
</rss>
