ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Экспорт картинок из Excel на диск
25 сообщений из 83, страница 2 из 4
  2  все
Экспорт картинок из Excel на диск
    #36715160
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Результат тестов таков, корректно открывается тестовый файл Excel с фоткой в SiPassе. Поэтому задача актуальна, буду благодарен если поможете с задачей которую формулировал выше.
...
Рейтинг: 0 / 0
30.06.2010, 13:00
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715182
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbagРезультат тестов таков, корректно открывается тестовый файл Excel с фоткой в SiPassе. Поэтому задача актуальна, буду благодарен если поможете с задачей которую
формулировал выше.
Так как выглядит при этом этот файл?
Может образец файла выложите?
Желательно, чтобы там было несколько фоток.
...
Рейтинг: 0 / 0
30.06.2010, 13:05
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715276
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.Pro,

К сожалению как это выглядит в самом SiPASSe показать не могу, но кусок базы отправляю во вложении, в итоге вот что должно получиться, так как база реальная, то естественно фамилии и имена изменены
...
Рейтинг: 0 / 0
30.06.2010, 13:32
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715280
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Где ФОТО\image00000x - это папка с фотками
...
Рейтинг: 0 / 0
30.06.2010, 13:32
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715295
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbag,

Отлично, а теперь вопрос, а что собственно не получается?
Параллельный вопрос - последовательность нумерации фото совпадает с последовательностью строк в эксельном файле?
...
Рейтинг: 0 / 0
30.06.2010, 13:37
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715341
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.Proartfulbag,

Отлично, а теперь вопрос, а что собственно не получается?
Параллельный вопрос - последовательность нумерации фото совпадает с последовательностью строк в эксельном файле?

Все хорошо, фото совпадают с последовательностью строк в excel, только одно НО, в этом примере я показал вам три строки и ссылки на фото указал руками, а в настоящей базе таких строк более 4 тыс. и руками указывать я устану :(, может есть возможность как-то это дело автоматизировать, например, чтобы он сам загружал из папки с фотками, ссылки на фото, в соответствующие ячейки соответствующие ссылки фоток, все фотки пронумерованы по порядку, т.е. ....001 (имя фотки) - 1столбец, ...002 - 2столбец и т.д.
...
Рейтинг: 0 / 0
30.06.2010, 13:47
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715350
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Прошу прощения в посте выше не столбец, а строка
...
Рейтинг: 0 / 0
30.06.2010, 13:49
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715385
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbag,

разумеется.
а это должно быть именно ссылками или достаточно просто текста "Фото\image000002.jpg" в ячейке?
...
Рейтинг: 0 / 0
30.06.2010, 13:55
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715428
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.Proartfulbag,

разумеется.
а это должно быть именно ссылками или достаточно просто текста "Фото\image000002.jpg" в ячейке?

Должны быть ссылки, просто текст вместо ссылок бесполезен :)
...
Рейтинг: 0 / 0
30.06.2010, 14:04
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715447
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну ладно, набросаю сейчас, как понял, вы VBA не знаете?
...
Рейтинг: 0 / 0
30.06.2010, 14:08
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715467
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.Pro,

К сожалению нет.
...
Рейтинг: 0 / 0
30.06.2010, 14:12
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715485
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbag,

И еще после того как ссылки будут вставлен можно их связать с какой-нибудь ячейкой, например, имя, если включить фильтр по именам, чтобы фото соответствовали
...
Рейтинг: 0 / 0
30.06.2010, 14:16
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715486
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Макрос1()
    
Dim i As Integer, k As String
For i =  1  To  500 
  k = Format$(i, "000000")
  'заполняем текст ячейки:
  ActiveSheet.Cells(i,  32 ) = "Фото\image" + k + ".jpg" 
  'создаем ссылку:
  ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,  32 ), Address:="Фото\image" + k + ".jpg"
Next

End Sub

Вот так, надеюсь, разберетесь, как запустить (Сервис=>Макросы)
цифру 500 исправляйте на количество строк, которые надо обработать.
...
Рейтинг: 0 / 0
30.06.2010, 14:16
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715490
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Спасибо большое.
...
Рейтинг: 0 / 0
30.06.2010, 14:17
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715492
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbagИ еще после того как ссылки будут вставлен можно их связать с какой-нибудь ячейкой, например, имя, если включить фильтр по именам, чтобы фото соответствовали
Честно говоря, не очень понял, что требуется
...
Рейтинг: 0 / 0
30.06.2010, 14:17
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715501
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.ProartfulbagИ еще после того как ссылки будут вставлен можно их связать с какой-нибудь ячейкой, например, имя, если включить фильтр по именам, чтобы фото соответствовали
Честно говоря, не очень понял, что требуется

Не сочтите за неуважение, но хотелось, чтобы привязка была, например: строка 18 - Вася Пупкин - 4564565 (номер пропуска) - ссылка на фото (Васи Пупкина), после сортировки имен по алфавитному порядку, Вася Пупкин попадает в 115 строку, останется ли при этом ссылка на фото Пупкина или в ячейке где хранятся ссылки на фото будет ссылка не из 18 строки, а из 115.
...
Рейтинг: 0 / 0
30.06.2010, 14:22
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715512
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbagНе сочтите за неуважение, но хотелось, чтобы привязка была, например: строка 18 - Вася Пупкин - 4564565 (номер пропуска) - ссылка на фото (Васи Пупкина), после сортировки имен по алфавитному порядку, Вася Пупкин попадает в 115 строку, останется ли при этом ссылка на фото Пупкина или в ячейке где хранятся ссылки на фото будет ссылка не из 18 строки, а из 115.
надо при сортировке выделить ВСЕ столбцы, тогда привязка останется.
...
Рейтинг: 0 / 0
30.06.2010, 14:24
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715514
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
ОК, спасибо еще раз, буду пробовать.
...
Рейтинг: 0 / 0
30.06.2010, 14:24
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715770
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbag,

После того как открыл Excel и запустил макрос, появляется следующее:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub Макрос1()
    
Dim i As Integer, k As String
For i =  1  To  3682 
  k = Format$(i, "000000")
  'заполняем текст ячейки:
  ActiveSheet.Cells(i,  32 ) = "C:\Users\chuev-aa\Desktop\STAFF1_files\dbtexp" + k + ".jpg"
  'создаем ссылку:
  ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,  32 ), Address:="C:\Users\chuev-aa\Desktop\STAFF1_files\dbtexp" + k + ".jpg"
Next

    Range("A1:C2").Select
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Range("A1").Select
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Range("C1").Select
End Sub
...
Рейтинг: 0 / 0
30.06.2010, 15:43
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715776
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbag,

Больше ничего не происходит, ссылок в ячейках нет :(
...
Рейтинг: 0 / 0
30.06.2010, 15:45
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715786
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Где появляется? Вы запустили запись макроса что ли? не надо, надо просто создать макрос, вставить мой текст и выполнить его.
...
Рейтинг: 0 / 0
30.06.2010, 15:47
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715812
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProГде появляется? Вы запустили запись макроса что ли? не надо, надо просто создать макрос, вставить мой текст и выполнить его.

надо было ему кнопку нарисовать на формочке и макрос туда привязать, а то как в фильме:
"Ури, где у него кнопка?" (c)приключения электроника
...
Рейтинг: 0 / 0
30.06.2010, 15:53
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715815
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Действительно я по глупости записал макрос, после этого заново создал макрос с вашим текстом (естественно подправив путь и название файлов), но после того как нажимаю выполнить alt+f8, он на несколько секунд думает и ничего не происходит
...
Рейтинг: 0 / 0
30.06.2010, 15:54
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715818
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Прошу прощения сам дурак, все заработало - спасибо большущие ребятушки, очень рад ))))
...
Рейтинг: 0 / 0
30.06.2010, 15:56
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715924
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Замучил, вас Shocker.Pro, наверно. Но возник еще один вопрос где в макросе подправить значение, чтобы заполнение происходило со второй строки, а не с первой, если не сложно подскажите.
...
Рейтинг: 0 / 0
30.06.2010, 16:22
| Ответить | Цитировать | Написать  
25 сообщений из 83, страница 2 из 4
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Экспорт картинок из Excel на диск
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]