https://217.65.3.21/openforum/vsluhforumID9/7349.html Есть xls-файл. Нужно вставить в одну из клеток картинку и сохранить файл. Как?<br><br> use Spreadsheet::ParseExcel::SaveParser;<br> use Spreadsheet::ParseExcel::FmtUnicode;<br> my $oFmtR = Spreadsheet::ParseExcel::FmtUnicode-&gt;new(Unicode_Map =&gt; "CP1251")<br> my $oExcel = new Spreadsheet::ParseExcel::SaveParser;<br> my $oBook = $oExcel-&gt;Parse('paks.xls',$oFmtR);<br> my $iFmt = $oBook-&gt;{Worksheet}[0]-&gt;{Cells}[0][0]-&gt;{FormatNo};<br> $oBook-&gt;{Worksheet}[0]-&gt;insert_image('A1','logo.bmp');<br> $oExcel-&gt;SaveAs($oBook, 'paks2.xls');<br><br>-увы, не пашет.<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#8 Sat, 10 May 2008 10:10:16 GMT &gt;код пхп, и тем более с COM объектами, не рассматривается. <br><br>Буду надеяться, что кто-то другой рассмотрит. :)<br><br>&gt;Кто хочет программировать под виндовс, пожалуйста. тока за тех поддержкой пусть на <br>&gt;microsoft.com обращается. <br><br>На msdn не нашел ответа.<br><br>&gt;Одна трабла, вместо формул, значения подставляются, правда меня <br><br>Нет, далеко не одна. Просто при копировании эксель-файла в новый файл средствами Spreadsheet::SaveExcel форматирование немного плывёт. :(<br><br>&gt;200 баксов, и картинка лого вашей фирмы в вашем прайс листе :) <br><br>Так бы сразу и написали, что реально помочь только за деньги можете. :)<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#7 Sat, 10 May 2008 09:50:55 GMT код пхп, и тем более с COM объектами, не рассматривается.<br>Кто хочет программировать под виндовс, пожалуйста. тока за тех поддержкой пусть на microsoft.com обращается.<br><br>&gt;Обломись ! :)<br><br>В таком случае, надо писать: простите, я невнимательно следил за рукой и нифига на понял фокуса.<br>мне то какой смысл обламываться? У меня картинка прекрасно вставляется в файл формат exel. я его даже приятелю виндусятнику переслал, он ее смог<br>в нативном екселе просмотреть. Одна трабла, вместо формул, значения подставляются, правда меня это не сильно пока парит, да и оно к лучшему.<br>:)<br><br>&gt;Cause of error: Can't locate object method "insert_image" via packa<br>&gt;ge "Spreadsheet::WriteExcel::Worksheet" at test.pl line 25<br><br>бывает. :) даже не знаю что сказать.<br>200 баксов, и картинка лого вашей фирмы в вашем прайс листе :)<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#6 Fri, 09 May 2008 15:17:47 GMT &gt;смотри за рукой: <br>&gt;$sheet-&gt;insert_image('A1','logo.bmp');<br>&gt;:) <br><br>Обломись ! :)<br><br>Cause of error: Can't locate object method "insert_image" via packa<br>ge "Spreadsheet::WriteExcel::Worksheet" at test.pl line 25<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#5 Fri, 09 May 2008 14:52:46 GMT Догадался))<br><br>$xls-&gt;Application-&gt;ActiveSheet-&gt;Paste();<br><br>Но вот проблема: картинка в ячейке A1, является гиперссылкой. Справа от неё многострочный текст, тоже являющийся ссылкой. Но! Все ячейки в первой строке пусты! Т.е. картинка и текст ни в одной из ячеек не числятся... Тогда как их в другой Эксель-файл скопировать?<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#4 Fri, 09 May 2008 13:26:40 GMT Вот код на PHP:<br><br><br>код <br>--------------------------------------------------------------------------------<br>$xls = new COM("Excel.Application"); // Создаем новый COM-объект<br>$xls-&gt;Application-&gt;Visible = 1; // Заставляем его отобразиться<br>$xls-&gt;Workbooks-&gt;Open("C:\\test_original.xls"); // Открываем документ, первую строку которого надо скопировать<br>$range=$xls-&gt;Rows(1);<br>$range-&gt;Copy();<br>//$range-&gt;Value='test';<br>$xls-&gt;Workbooks-&gt;Close();<br>*/<br>$xls = new COM("Excel.Application"); // Создаем новый COM-объект<br>$xls-&gt;Application-&gt;Visible = 1; // Заставляем его отобразиться<br>$xls-&gt;Workbooks-&gt;Open("C:\\test.xls"); // Открываем документ, в первую строку надо вставить содержимое буфера обмена<br>$range=$xls-&gt;Rows(1);<br>$range-&gt;Select();<br>$range-&gt;Paste();// Не работает. :(<br>//$range-&gt;Value='test';<br>//$xls-&gt;Workbooks-&gt;Close();<br><br>Как сделать, чтобы вставка из буфера обмена работала? При копировании в буфер выводится диалоговое окно, предупреждающее, что в буфер обмена помещаеться большой объем данных,разреши https://217.65.3.21/openforum/vsluhforumID9/7349.html#3 Wed, 07 May 2008 07:47:15 GMT &gt;&gt;&gt;-увы, не пашет. <br>&gt;&gt;insert_image находится в Spreadsheet::WriteExcel <br>&gt;<br>&gt;В общем, как решить проблему? <br><br>смотри за рукой:<br><br>my $oExcel = new Spreadsheet::ParseExcel::SaveParser();<br>my $oBook = $oExcel-&gt;Parse('paks.xls');<br>my $iFmt = $oBook-&gt;{Worksheet}[0]-&gt;{Cells}[0][0]-&gt;{FormatNo};<br><br>my $exBook=$oExcel-&gt;SaveAs($oBook, 'paks2.xls');<br>my @sheets = $exBook-&gt;worksheets();<br>my $sheet = $sheets[0][0];<br>$sheet-&gt;insert_image('A1','logo.bmp');<br><br>:)<br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#2 Tue, 06 May 2008 18:27:39 GMT &gt;&gt;-увы, не пашет. <br>&gt;insert_image находится в Spreadsheet::WriteExcel <br><br>В общем, как решить проблему?<br><br> https://217.65.3.21/openforum/vsluhforumID9/7349.html#1 Tue, 06 May 2008 04:47:04 GMT &gt;[оверквотинг удален]<br>&gt; use Spreadsheet::ParseExcel::SaveParser; <br>&gt; use Spreadsheet::ParseExcel::FmtUnicode; <br>&gt; my $oFmtR = Spreadsheet::ParseExcel::FmtUnicode-&gt;new(Unicode_Map =&gt; "CP1251")<br>&gt; my $oExcel = new Spreadsheet::ParseExcel::SaveParser; <br>&gt; my $oBook = $oExcel-&gt;Parse('paks.xls',$oFmtR);<br>&gt; my $iFmt = $oBook-&gt;{Worksheet}[0]-&gt;{Cells}[0][0]-&gt;{FormatNo};<br>&gt; $oBook-&gt;{Worksheet}[0]-&gt;insert_image('A1','logo.bmp');<br>&gt; $oExcel-&gt;SaveAs($oBook, 'paks2.xls');<br>&gt;<br>&gt;-увы, не пашет. <br><br>insert_image находится в Spreadsheet::WriteExcel<br>