<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBS: Открыть новый файл Excel в том же окне]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=12015&amp;type=atom" />
	<updated>2016-09-15T15:05:58Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=12015</id>
		<entry>
			<title type="html"><![CDATA[Re: VBS: Открыть новый файл Excel в том же окне]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=107742#p107742" />
			<content type="html"><![CDATA[<p>Отбой! Проблему решил, правда кривовато. Берите кто хотите.<br />Этот код имитирует двойной щелчок мышкой на файле. <br />Единственное требование&nbsp; - excel должен быть открыт заранее, иначе фай не откроется.<br /></p><div class="codebox"><pre><code>Set oShell = CreateObject(&quot;Shell.Application&quot;)
Set Folder = oShell.NameSpace(&quot;C:\Documents and Settings\Я\Рабочий стол&quot;)
Set File = Folder.ParseName(&quot;Книга2.xlsm&quot;)
File.InvokeVerb</code></pre></div>]]></content>
			<author>
				<name><![CDATA[stas]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=34203</uri>
			</author>
			<updated>2016-09-15T15:05:58Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=107742#p107742</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBS: Открыть новый файл Excel в том же окне]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=107717#p107717" />
			<content type="html"><![CDATA[<p>Уважаемые форумчане! Кто сталкивался, как решить проблемку: в Excel уже открыт файл&nbsp; Книга1,&nbsp; &nbsp;VBS скриптом открывается файл Книга2.&nbsp; В этом файле автоматические макросы в событии Workbook_Open. Но они не срабатывают, потому что Книга2 открывается в другом экземпляре Excel. То есть, при открытии скриптом создаётся ещё одно окно Excel !<br />Как открыть Книга2 в том же окне, что и Книга1?<br />Вот мой код VBS:</p><div class="codebox"><pre><code>Option Explicit 
Dim xls

Set xls= CreateObject(&quot;Excel.Application&quot;) 
xls.Visible = True
xls.Workbooks.Open(&quot;C:\Documents and Settings\Я\Рабочий стол\Книга2.xlsm&quot;) </code></pre></div><p>Ткните носом пожалуйста, а то всю сеть перерыл и бестолку! <img src="//forum.script-coding.com/img/smilies/roll.png" width="15" height="15" /></p>]]></content>
			<author>
				<name><![CDATA[stas]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=34203</uri>
			</author>
			<updated>2016-09-15T11:01:02Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=107717#p107717</id>
		</entry>
</feed>
