Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сохранение картинок из книги в фаилы
 
#1
21.10.2009 15:48:13

Всем добрый день.<BR>Есть файлик в котором 3 столбца: артикул,описание,фото,из которого необходимо сохранить все картинки каждую в свой файл. Но это еще не все :( файл должен иметь имя артикул.jpg <BR>Как бы все это провернуть ?

<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#2
21.10.2009 15:51:56
Боюсь, что эта темка долго не проживет.
 
 
 
#3
21.10.2009 15:55:35
Изменил размер, прошу прощения (
 
 
 
#4
21.10.2009 15:56:43
{quote}{login=}{date=21.10.2009 03:51}{thema=}{post}Боюсь, что эта темка долго не проживет.{/post}{/quote}  
 
С чем связанны данные опасения ?
 
 
 
#5
21.10.2009 16:02:10
{quote}{login=sir_volos}{date=21.10.2009 03:56}{thema=Re: }{post}{quote}{login=}{date=21.10.2009 03:51}{thema=}{post}Боюсь, что эта темка долго не проживет.{/post}{/quote}С чем связанны данные опасения ?{/post}{/quote}  
С размером файла (первого). Что и подтвердилось :-)
 
 
 
#6
22.10.2009 14:47:35
Народ, подкиньте пжалсто идею как реализовать задачку
 
 
 
#7
22.10.2009 16:03:12
{quote}{login=sir_volos}{date=22.10.2009 02:47}{thema=}{post}Народ, подкиньте пжалсто идею как реализовать задачку{/post}{/quote}  
 
Сделать это несложно.  
Вот пример кода:  
 
Sub test()  
   Dim sh As Worksheet, sha As Shape: Set sh = ActiveSheet  
   SavePath = Environ("TEMP") & "\"    ' сохраняем в C:\WINDOWS\Temp  
   For Each sha In sh.Shapes  
       sha.CopyPicture xlScreen, xlBitmap  
       filename = SavePath & sha.TopLeftCell.EntireRow.Cells(2) & ".jpg"  
       SaveJPG GetClipPicture, filename  
       'Debug.Print filename  
   Next sha  
End Sub  
 
 
А вот - файл с примером: http://excelvba.ru/XL_Files/Sample__22-10-2009__18-04-59.zip
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#8
22.10.2009 16:45:29
{quote}{login=EducatedFool}{date=22.10.2009 04:03}{thema=Re: }{post}{quote}{login=sir_volos}{date=22.10.2009 02:47}{thema=}{post}Народ, подкиньте пжалсто идею как реализовать задачку{/post}{/quote}  
 
Сделать это несложно.  
Вот пример кода:  
 
Sub test()  
   Dim sh As Worksheet, sha As Shape: Set sh = ActiveSheet  
   SavePath = Environ("TEMP") & "\"    ' сохраняем в C:\WINDOWS\Temp  
   For Each sha In sh.Shapes  
       sha.CopyPicture xlScreen, xlBitmap  
       filename = SavePath & sha.TopLeftCell.EntireRow.Cells(2) & ".jpg"  
       SaveJPG GetClipPicture, filename  
       'Debug.Print filename  
   Next sha  
End Sub  
 
 
А вот - файл с примером: http://excelvba.ru/XL_Files/Sample__22-10-2009__18-04-59.zip{/post}{/quote}  
 
Я немного туплю (    
При нажатии Запуск в файле с примером ничего не происходит ( Папка windows\temp пуста(  Может я что то не так делаю ? Версия Excel имеет значение ?
 
 
 
#9
08.11.2009 22:35:32
Я немного туплю (    
При нажатии Запуск в файле с примером ничего не происходит ( Папка windows\temp пуста(  Может я что то не так делаю ? Версия Excel имеет значение ?{/post}{/quote}  
Аналогично(версия 2003). После нажатия кнопки ничего не происходит(по крайней мере копирования).
 
 
 
Страницы: 1
Читают тему
Наверх