Собственно сабж. Платформа 8.1.9

(0) сто раз уже было...
Нужно поставить 4-й или 6-й парсер, а на итс 3-й

(1)Извиняюсь, но что то в поиске не нашел. Если можно поподробнее. Повторюсь, интересует именно загрузка картинок. Буду очень благодарен за ссылки.

(0) Инфы по теме маловато...

http://www.gotdotnet.ru/Forums/Data/104311.aspx

Хоть и не про 1с... Но есть с чего начать)))
Удачи Друг...)))

Проще сохраните этот документ как веб-страницу.
Все рисунки будут в папке "имя_страницы.files"  но вот как их прицепить к Строчке? х.з. Они ведь не в ячейку вставлены а просто "Координаты"...(((

(1) а ты Вообще про что?

и чего молим все?

молчим)))

Нашел такой код

MyPath = "C:\1.xls";
MyList = "Лист1";
myOlApp = Новый COMОбъект ("excel.Application");
MyWo= myOlApp.Workbooks.Open(MyPath, , True);
MySheet=MyWo.Worksheets(MyList);
Для Каждого  MyPic Из MySheet.Pictures Цикл
MyShape=MySheet.Shapes(MyPic.Name);    
MyShape.CopyPicture();
Сообщить(Строка(MyPic.Name)+"  " + Строка(MyPic.BottomRightCell.Column) + "  " +Строка(MyPic.BottomRightCell.Row));    
КонецЦикла;
MyWo.Close(False);

Но как вытащить тип "Картинка". Непонятно...

(8) а где нашел Ссылочку не дашь?

(10) нашел)))

что толку. Как картинку получить то? У меня несколько вариантов. Либо как то копать через com объекты, либо как то по хитрому сохранить в файл. Может средствами потокового ввода-вывода... А может я уже загонять начинаю...

сохраняй в каталогвременных файлов - потом из него в 1с грузи

(14) Спасиб. Эт я догадался. Вопрос в том как средствами 1С сохранить картинку из экселя в файл. (Через буфер обмена у меня не получается)

Бери из Буфера напрямую.

В Нетленке это реализовано ©
Только по отзывам одного товарища, там когда больше 14 картинок - гляки какие-то.
Я этого смоделировать не смог :-(

тебе поможет cClipBoardObject.dll. Однозначно

(17)Не помогает! Пробовал Нетленку.
Когда копирую/вставляю - пишет "В буфере нет картинки".
Тип того, что в буфере - не картинка. Именно потому, что копирую из экселя.
Пробовал скопировать из Экселя, втавить в Paint, тут же скопировать из paint в буфер и загрузить из него в 1С - все работает. Но напрямую - никак...

(21) Можно Йокселем загрузить документ из Excel, а потом использовать метод ИзвлечьКартинки:
http://yoksel.net.ru/ComServer/Ob%27ekty/TablichnyjjDokument/ExtractPictures

Все внедренные картинки сохраняются в указанный каталог. Но, естественно, не остается никаких сведений об их расположении в документе.

Хе, похоже, решение есть. Йокселем не извлекаем картинки, а сохраняем лист Excel в формате 1С 7.7. Далее открываем этот файл через штатный объект "ТабличныйДокумент" и через свойство "Рисунки" вытаскиваем все, что нужно. Там для каждой картинки есть ее координаты плюс есть возможность получить из нее стандартный объект "Картинка".

Хм, хотя нет... Координаты у картинки совсем бесполезные... :((

Подсказали макрос, сохраняющий выделенную картинку в файл
Sub inFail()
Dim str As String, strFiNa As String, strShNa As String, lH As Long, lW As Long
Dim SStime As Long
   str = ActiveSheet.Name
   If TypeName(Selection) = "Picture" Then
       strFiNa = Application.GetSaveAsFilename(InitialFileName:="NewPicture", FileFilter:="GIF файл,*.gif,JPG файл,*.jpg")
       If strFiNa = "False" Then Exit Sub
       lH = Selection.Height
       lW = Selection.Width
       Selection.Copy
       Charts.Add
       ActiveChart.Location Where:=xlLocationAsObject, Name:=str
       strShNa = ActiveChart.Name
       strShNa = Trim(Replace(strShNa, str, vbNullString))
       ActiveSheet.Shapes(strShNa).Height = lH * 1.01
       ActiveSheet.Shapes(strShNa).Width = lW * 1.01
       DoEvents
       ActiveChart.Paste
       ActiveChart.Export Filename:=strFiNa, FilterName:=Right(strFiNa, 3)
       ActiveSheet.Shapes(strShNa).Delete
   End If
End Sub
(Спасибо, Г.Т.)


Слышал, что у Excel.aplication есть какой то метод Run() или что-то такое, который выполняет определенный макрос. Соответственно, если в качестве параметра макросу передавать по очереди каждую картинку (допустим координаты), он ее во временный файл, а из него в 1С. Тк код сохранения в файл уже есть, надо только присобачить к нему параметр, для передачи  картинки и разобраться, как его запускать под 1С. К сожалению "знания VBA" = 0. Очень надеюсь на Ваши подсказки.

сказано же тебе, тебе поможет cClipBoardObject.dll. если хочешь мучиться дальше -вперед. загугли cClipBoardObject.dll и будет тебе счастье

(26) Загуглил. Гуглил долго и мучительно. Нашел.:)))
На выходных опробую. Спасибо за наводку.

(26)Блин. Устал от поисков.
Насколько я понял, этот файл входит в состав дополнения к QTP, называемого QT Plus. Из тех ссылок, что я нашел, говорится, что он должен быть в комплекте к основной поставке. Я уже перекачал на сайте НР все возможные версии и дополнения к ним. Там этого файла нет. Ссылок на упоминаемый "сайт mercury" не смог найти. Хотя и упоминается, что они должны быть.
Может руки не оттуда растут, но если кто поможет найти ClipBoardObject.dll - буду черезвычайно счастлив. Потому КАК использовать его - понятно.

(28) Если не сложно, опиши, как должна решаться твоя задача в "идеальном" виде. Т.е. как должно выглядеть средство, решающее твою задачу.

Все. Нашел. http://infostart.ru/projects/2950/
Решение в идеальном виде.
В (28) сплошной гон. Я гуглил "ClipBoardObject.dll" , а оно "cClipBoardObject.dll".
Позволяет принимает картинки, скопированные из Экселя в буфер.
(Кстати если копировать не из него, а из paint - не работает)
Viktorovich'у респект.