ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Экспорт картинок из Excel на диск
25 сообщений из 83, страница 3 из 4
  3  все
Экспорт картинок из Excel на диск
    #36715939
Фотография 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 =  2  To  500 
  k = Format$(i- 1 , "000000")
  'заполняем текст ячейки:
  ActiveSheet.Cells(i,  32 ) = "Фото\image" + k + ".jpg" 
  'создаем ссылку:
  ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,  32 ), Address:="Фото\image" + k + ".jpg"
Next

End Sub
...
Рейтинг: 0 / 0
30.06.2010, 16:26
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36715945
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
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 =  2  To  500 
  k = Format$(i- 1 , "000000")
  'заполняем текст ячейки:
  ActiveSheet.Cells(i,  32 ) = "Фото\image" + k + ".jpg" 
  'создаем ссылку:
  ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,  32 ), Address:="Фото\image" + k + ".jpg"
Next

End Sub


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

Снова здравствуйте. Чайник опять в деле. Господа, программисты, прошу помочь в следующем деле. Есть ли такая возможность написать макрос или каким-либо другим способом помочь решить следующий вопрос:
Есть столбецы: с уникальными номерами (ID номер), ФИО и т.п., а так же столбец с ссылками на фотографии. Необходимо переименовать фотографии и присвоить имена из столбца с уникальными номерами, т.е. например, ФИО - Пэрис Хилтон, должность - пуско-наладчица, ID - 123, Фото носит имя photo000001.jpg, а должно быть 123.jpg

Для примера, во вложении часть базы, в качестве ID - 1-ый столбец (т.е. А), ссылка с фотками в столбце (AF)

Понимаю, что это уже вторая задача, но может все же поможете, если такое возможно.
...
Рейтинг: 0 / 0
01.07.2010, 10:51
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717319
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub к()

Dim i As Integer
For i =  2  To  5 
  Name Cells(i,  32 ).Value As "c:\1\" + CStr(Cells(i,  1 ).Value) + ".jpg"
Next

End Sub
...
Рейтинг: 0 / 0
01.07.2010, 11:39
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717324
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
artfulbag,

думаю как нибудь вот так

Код: plaintext
1.
2.
3.
4.
5.
For i =  2  To  65535   ' цикл со второй строки до конца книги
If Cells(i,  1 ) = "" Then Exit For  ' если первый столбик пуст выходим из цикла
Name Cells(i,  32 ) As ("D:\STAFF1_files\" & Cells(i,  1 ) & ".jpg")  ' именуем файл по ссылке в столбце 32 
                                                                                   ' так же как Id в столбце 1

Next ' конец цикла


никаких проверок при этом не проводится
...
Рейтинг: 0 / 0
01.07.2010, 11:40
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717333
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.Pro
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub к()

Dim i As Integer
For i =  2  To  5 
  Name Cells(i,  32 ).Value As "c:\1\" + CStr(Cells(i,  1 ).Value) + ".jpg"
Next

End Sub


опередил пока я писал комменты :)
...
Рейтинг: 0 / 0
01.07.2010, 11:42
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717336
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shamanusопередил пока я писал комменты :)
у тебя было время, пока я искал команду переименования файла
...
Рейтинг: 0 / 0
01.07.2010, 11:44
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717364
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Спасибо вам большое, сейчас попробую
...
Рейтинг: 0 / 0
01.07.2010, 11:53
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36717454
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Отчет с полей: макрос помог - файлы переименованы - я счастлив - вам огромное спасибо.
...
Рейтинг: 0 / 0
01.07.2010, 12:19
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36743716
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Здравствуйте, еще раз, надеюсь поможете. Существует Excel файл, в нем около 3,5 тыс. человек персонала, напротив каждого человека есть один столбец с ссылками на соответствующее фото на диск, нумерация фото сквозная (dbtexp000001.jpg, dbtexp000002.jpg и т.д. файлик с примером прикрепил во вложении), если есть возможность (т.е. фактически возможно), то помогите пожалуйста в написании макроса для переименования этих файлов (как ранее в этой теме уже писал, абсолютный ноль в программировании, а тем более на ВижуалБэйсике). Необходимо все эти файлы переименовать (00000090P.JPG, 00000091P.JPG..., 0000009DP.JPG) вот в такой вид, особенности: 1) фото необходимо переименовывать с увеличением на 1, а система счисления 16-ая, то есть следующая после 00000099P.JPG, должна быть 0000009АP.JPG и т.д. 2) если есть возможность ткните носом где в макросе прописывается путь к фото 3) Еще раз ткните носом где я смогу изменить имя первоначального (от которого пойдет отчет) файла. Просто пока точно не известно его имя, (для примера первое фото может быть как 00000090P.JPG, так и 0000007СP.JPG, так и 00000083P.JPG и т.д.) 4) менятся не должна часть после цифр, т.е. буква P всегда остается (0000006F - переменная часть, P.JPG, постоянная часть)
Буду благодарен любой помощи.
...
Рейтинг: 0 / 0
15.07.2010, 16:56
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744306
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
artfulbag,

а зачем тут вообще нужен файл?
Файлы пронумерованы по порядку, перенумеровать их надо тоже по порядку. Может я неверно понимаю ТЗ?
...
Рейтинг: 0 / 0
16.07.2010, 02:15
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744308
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
В общем, вот:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim FName As String, FNewNum As String, Offset As Long, FNum As Long
Offset = &H 90 
ChDir "c:\3\"

FName = Dir("dbtexp*.jpg")
Do Until FName = ""
  FNum = Val(Mid$(FName,  7 , Len(FName) -  6  -  4 ))
  FNewNum = Hex(FNum + Offset -  1 )
  Name FName As String( 8  - Len(FNewNum), "0") + FNewNum + "P.JPG"
  FName = Dir
Loop
выделено задание пути и стартовый номер - задается в шестнадцатеричной системе
...
Рейтинг: 0 / 0
16.07.2010, 02:34
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744365
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shocker.ProВ общем, вот:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim FName As String, FNewNum As String, Offset As Long, FNum As Long
Offset = &H 90 
ChDir "c:\3\"

FName = Dir("dbtexp*.jpg")
Do Until FName = ""
  FNum = Val(Mid$(FName,  7 , Len(FName) -  6  -  4 ))
  FNewNum = Hex(FNum + Offset -  1 )
  Name FName As String( 8  - Len(FNewNum), "0") + FNewNum + "P.JPG"
  FName = Dir
Loop
выделено задание пути и стартовый номер - задается в шестнадцатеричной системе

Shocker.Pro. спасибо вам большое, хотел бы спросить, а стартовый номер можно задавать в 16-ричной системе счисления? Стартовый номер - это первый человек (в Excel строка номер 2), а переименовывать фото надо со второго человека (строка номер 3), т.к. Первому (2-ая строка) фото в Сипас вносится в ручном режиме, а затем от него (стартового номера) начинается увеличения имени на 1. Ткните пожалуйста где сделать переименование имени с 3-ей строки
...
Рейтинг: 0 / 0
16.07.2010, 08:01
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744375
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbagShocker.ProВ общем, вот:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim FName As String, FNewNum As String, Offset As Long, FNum As Long
Offset = &H 90 
ChDir "c:\3\"

FName = Dir("dbtexp*.jpg")
Do Until FName = ""
  FNum = Val(Mid$(FName,  7 , Len(FName) -  6  -  4 ))
  FNewNum = Hex(FNum + Offset -  1 )
  Name FName As String( 8  - Len(FNewNum), "0") + FNewNum + "P.JPG"
  FName = Dir
Loop
выделено задание пути и стартовый номер - задается в шестнадцатеричной системе

Shocker.Pro. спасибо вам большое, хотел бы спросить, а стартовый номер можно задавать в 16-ричной системе счисления? Стартовый номер - это первый человек (в Excel строка номер 2), а переименовывать фото надо со второго человека (строка номер 3), т.к. Первому (2-ая строка) фото в Сипас вносится в ручном режиме, а затем от него (стартового номера) начинается увеличения имени на 1. Ткните пожалуйста где сделать переименование имени с 3-ей строки

Кстати в имени фото (нового) получается 5 нулей, а надо шесть, это можно как-то исправить?
...
Рейтинг: 0 / 0
16.07.2010, 08:16
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744376
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Прошу прощения, все ок - 6-ть нолей
...
Рейтинг: 0 / 0
16.07.2010, 08:17
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744378
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Все работает спасибо, вот только бы еще нумерацию настроить со второго человека (3-я строка), а не с первого и тогда долбанный сипас, при вашей помощи, будет побежден.
...
Рейтинг: 0 / 0
16.07.2010, 08:20
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36744443
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbagВсе работает спасибо, вот только бы еще нумерацию настроить со второго человека (3-я строка), а не с первого и тогда долбанный сипас, при вашей помощи, будет побежден.

Подумал и решил, что переделывать в макросе ничего не надо, то что есть будет достаточно, все файлы переименовываются как надо, большущее всем спасибо, особенная благодарность Шокеру про
...
Рейтинг: 0 / 0
16.07.2010, 09:10
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748030
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Уже обрадовался, что все решено, но к сожалению это не так. С фотографиями все в порядке, но появилась новая задача, очередной раз прошу помощи. Сама задача такова: существуют в базе персонала (в Excel файле) два столбца (F - FacilityId, G - CardId), в этих столбцах числа в 10-ричной системе счисления, числа в этих столбцах необходимо перевести в двоичную систему (F - восемь знаков (G - 16 знаков)), необходимо получить столбец с новым числом, состоящим из 24 знаков и преобразовать обратно это число в 10-ое. Пример, столбец F - 21, в столбце G - 23349, раскладываем столбец F, получаем 10101, т.к. в первом столбце должно быть 8 символов, то добавляем к нему недостающие нули и получаем 00010101 (для столбца F не принципиально, можно не делать), затем столбец G - 101101100110101, проверяем, получается, что знаков 15, и добавляем впереди ноль (обязательно) и получим 0101101100110101 16 знаков, оба числа подготовлены, теперь создаем новое число путем совмещения (не знаю как правильно называется это математическая операция):
000101010101101100110101 - теперь это одно число из 24 знаков, перегоняем его обратно в 10 систему счисления и получаем, что оно равно 1399605. Сделать это надо почти для 3,5 тыс. строка, поэтому в ручную не вариант, если нужно то тестовый пример базы во вложении. Если такое возможно сделать, то прошу помочь. Благодарен любой помощи.
...
Рейтинг: 0 / 0
19.07.2010, 13:18
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748032
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Вот вложение
...
Рейтинг: 0 / 0
19.07.2010, 13:19
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748264
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
artfulbag,

интернет подсказал такое решение
...
Рейтинг: 0 / 0
19.07.2010, 14:40
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748293
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Shamanusartfulbag,

интернет подсказал такое решение

Спасибо, все работает очень, Вам, благодарен.
...
Рейтинг: 0 / 0
19.07.2010, 14:51
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748330
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
artfulbagShamanusartfulbag,

интернет подсказал такое решение

Спасибо, все работает очень, Вам, благодарен.

Поспешил, при копировании команды и вставки ее в оригинальный документ, в поле появляется #ИМЯ?
...
Рейтинг: 0 / 0
19.07.2010, 15:03
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748356
artfulbag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
artfulbag
Гость
Может нужен еще макрос, если да то выложите пожалуйста исходник, чтобы в другом документе можно было провернуть тоже самое.
...
Рейтинг: 0 / 0
19.07.2010, 15:08
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748371
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
artfulbag,

там в коде модуля, находятся две процедуры, их нужно скопировать в книгу, где вы проводите вычисления.
...
Рейтинг: 0 / 0
19.07.2010, 15:13
| Ответить | Цитировать | Написать  
Экспорт картинок из Excel на диск
    #36748376
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
artfulbag,

Кстати я не проверял корректность вычислений, если у Вас уже есть решенный пример, проверьте на нем.
...
Рейтинг: 0 / 0
19.07.2010, 15:14
| Ответить | Цитировать | Написать  
25 сообщений из 83, страница 3 из 4
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Экспорт картинок из Excel на диск
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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