Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.10.2007, 23:29   #1
Nasya
Пользователь
 
Регистрация: 22.06.2007
Сообщений: 19
По умолчанию Перемещение файлов

В папке содержатся исходный xls файл и несколько файлов с расширением jpg, в коде файла xls необходимо прописать так, чтобы при нажатии на кнопку все файлы jpg переименовать в например: "шаблон_номер по порядку" и переместить в определенную другую папку.
Помогите, плиз, ни разу с таким не сталкивалась, можно такое сделать?

Последний раз редактировалось Nasya; 12.10.2007 в 23:32.
Nasya вне форума
Старый 13.10.2007, 03:14   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Для того, чтобы в Excel97-2003 перебрать в цикле только файлы с нужным расширением, можно использовать как минимум три варианта (не считая реализации с помошью WinAPI, а FSO мы рассматривать не будем, ибо в этом случае придётся перебирать все файлы и анализировать расширение), один из которых - это использование VB функции Dir

Код:
Private Sub MoveJPGFiles()
    iPath$ = ThisWorkbook.Path & "\"
    iNewPath$ = Environ("Temp") & "\" 'Укажите свою папку
    iFileName$ = Dir(iPath$ & "*.jpg")
    'Kill iNewPath$ & "*.jpg"
    Do While iFileName$ <> ""
       iCount& = iCount& + 1
       iOldName$ = iPath$ & iFileName$
       iNewName$ = iNewPath$ & "Шаблон_" & iCount& & ".jpg"
       'Обратите внимание на то, что в случае наличия файла с
       'новым именем, возникнет ошибка, которую можно избежать,
       'если предварительно
       'удалить все файлы с нужным расширением (см.выше)
       Name iOldName$ As iNewName$
       'При желании можно обойтись и без использования переменных
       iFileName$ = Dir
    Loop
End Sub

Последний раз редактировалось pashulka; 13.10.2007 в 03:17.
pashulka вне форума
Старый 13.10.2007, 20:37   #3
Nasya
Пользователь
 
Регистрация: 22.06.2007
Сообщений: 19
По умолчанию

Спасибо Вам большое
Nasya вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перемещение формы Черничный Общие вопросы Delphi 11 10.12.2009 11:06
Нужна помощь: выбор файлов исходя из имени файлов Antik163RUS Помощь студентам 4 19.06.2008 21:20
Перемещение кнопки? &RiU Общие вопросы Delphi 1 28.05.2008 18:13
Перемещение компонентов _SERGEYX_ Общие вопросы Delphi 2 10.04.2008 13:33
Автоматическое перемещение Kirik JavaScript, Ajax 4 16.11.2007 17:42