Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Январь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
09.01.2010
02:07:12
13:11:54
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик
Статус: Практикант
Рейтинг: 1202
∙ повысить рейтинг » 		Vasiliy83
Статус: Практикант
Рейтинг: 1129
∙ повысить рейтинг » 		Megaloman
Статус: Бакалавр
Рейтинг: 899
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:978
Дата выхода:15.01.2010, 19:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:372 / 99
Вопросов / ответов:1 / 1

Вопрос № 175977: Переименование файлов из Eхсel без использования макросов! Уважаю VB и VBA. Но не владею ими. И не успею освоить -старый... Уважаемые эксперты, подскажите, пожалуйста - есть ли возможность переименовывать файлы в папке силами Exce...

Вопрос № 175977:

Переименование файлов из Eхсel без использования макросов!

Уважаю VB и VBA.
Но не владею ими.
И не успею освоить -старый...

Уважаемые эксперты, подскажите, пожалуйста - есть ли возможность переименовывать файлы в папке силами Excel , не прибегая к макросам?
Я не халявщик, я отсканировал более тысячи книг (не нарушая авторских прав) военно-технического содержания и выложил их в свободный доступ.
http://www.russianarms.ru/forum/index.php?board=656.0
Одна беда. Завален копиями вариантов этих материалов!

Итак.
Имею программку, которая формирует Excel-совместимый файл с таблицей содержащей пути и имена файлов наименований книг.
Содержимое столбца выглядит так:
C:\! Skan\! UzA\БМП-2. Боевая машина пехоты БМП-2. ТО и ИЭ. Часть 1. 1987(djvu)

строк в столбце может быть иногда чуть менее чем 65000

Имею желание скопировать этот столбец в соседний и отредактировать имя файла, а затем произвести какие-то действия, чтобы в результате имена файлов изменились.
Трепещу перед макросами (да и Касперский не советует)[уже терял не один ТБайт]
Неужели все усилия Советской власти напрасны? Ведь мы ещё не всё взяли, что нам да Октябрь!

С уважением, Суворов Александр Васильевич

Отправлен: 10.01.2010, 17:02
Вопрос задал: Suvorov, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Megaloman, Бакалавр :
Здравствуйте, Suvorov. Вот ответ без макросов и VBA.
Таблица с примером, который соответствует постановке задачи, как я её сформулировал в минифоруме, можно взять здесь V_tanke.xls (15.5 кб).
Смысл решения: имеем исходные имена файлов в одном столбце (например, первое имя в ячейке B1), изменённые - в другом (например, первое имя в ячейке C1), тогда в ячейке D1 напишем формулу, генерирующую DOS-команду перемещения файла (здесь это будет равносильно переименованию, если путь один и тот же):

="move " & """" & B1 & """ """ & C1 & """"

Размножим формулу на остальные ячейки.
Выкачаем текстовый редактор AkelPad вот здесь. Распакуем полученный файл, получим akelpad.exe. Запустим его. Переключимся в Excel-таблицу. Выделим и скопируем сгенерированные Dos-команды в столбце D и вставим в редактор AkelPad. В меню Кодировки этого редактора выбирем Сохранить в DOS-866, сохраним полученное в Bat-файл, например rrrr.bat
Закрываем AkelPad, запускаем полученный батник. Всё! Могу изобразить и макрос, но Вам так этого не хотелось ...
-----
Нет времени на медленные танцы

Ответ отправил: Megaloman, Бакалавр
Ответ отправлен: 10.01.2010, 23:19

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 258537 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.13 от 28.12.2009
    В избранное