Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формировка файлов с именем из значений ячеек. Как сделать? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формировка файлов с именем из значений ячеек. Как сделать? (Формулы/Formulas)
Формировка файлов с именем из значений ячеек. Как сделать?
N-y-son Дата: Пятница, 06.02.2015, 14:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Из значений ячеек нужно создать файлы(любого формата) типа. Например в ячейке C2 значение "123456789012345677", а нужно создать файл с названием "123456789012345677". Вот такая задача.
Таких фалов нужно создать очень много около 10 тыс. шт. - т.е. нужна какое-то "автоматизированое" решение. Все они находятся в столбце "С".
Подскажите, пожалуйста, как решить такую задачку, а то по работе завал))?


Сообщение отредактировал N-y-son - Пятница, 06.02.2015, 15:01
 
Ответить
СообщениеДобрый день.
Из значений ячеек нужно создать файлы(любого формата) типа. Например в ячейке C2 значение "123456789012345677", а нужно создать файл с названием "123456789012345677". Вот такая задача.
Таких фалов нужно создать очень много около 10 тыс. шт. - т.е. нужна какое-то "автоматизированое" решение. Все они находятся в столбце "С".
Подскажите, пожалуйста, как решить такую задачку, а то по работе завал))?
Автор - N-y-son
Дата добавления - 06.02.2015 в 14:19
vikttur Дата: Пятница, 06.02.2015, 14:40 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Создать таким образом файлы - это только макрос. А это в ветке по VBA
 
Ответить
СообщениеСоздать таким образом файлы - это только макрос. А это в ветке по VBA
Автор - vikttur
Дата добавления - 06.02.2015 в 14:40
Nic70y Дата: Пятница, 06.02.2015, 14:44 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9140
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
вам наверное сюда
http://www.excelworld.ru/forum/6
хотя я не настаиваю.

ЮMoney 41001841029809
 
Ответить
Сообщениевам наверное сюда
http://www.excelworld.ru/forum/6
хотя я не настаиваю.
Автор - Nic70y
Дата добавления - 06.02.2015 в 14:44
N-y-son Дата: Пятница, 06.02.2015, 14:56 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Nic70y, 06.02.2015 в 14:44, в сообщении № 3
вам наверное сюда

нет, я лучше в ветке vba напишу)
[moder]Не нужно ничего нигде писать. Продолжайте здесь
 
Ответить
Сообщение
Цитата Nic70y, 06.02.2015 в 14:44, в сообщении № 3
вам наверное сюда

нет, я лучше в ветке vba напишу)
[moder]Не нужно ничего нигде писать. Продолжайте здесь
Автор - N-y-son
Дата добавления - 06.02.2015 в 14:56
N-y-son Дата: Пятница, 06.02.2015, 15:03 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
del
 
Ответить
Сообщениеdel
Автор - N-y-son
Дата добавления - 06.02.2015 в 15:03
DJ_Marker_MC Дата: Пятница, 06.02.2015, 15:23 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
N-y-son, положите приложенный файл в отдельную папку и нажмите кнопку.
Так?
К сообщению приложен файл: create_file.xlsm (17.9 Kb)
 
Ответить
СообщениеN-y-son, положите приложенный файл в отдельную папку и нажмите кнопку.
Так?
Автор - DJ_Marker_MC
Дата добавления - 06.02.2015 в 15:23
N-y-son Дата: Пятница, 06.02.2015, 15:38 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
DJ_Marker_MC, круть, то что нужно!
СПАСИБО большущее! Столько времени и усилий Вы помогли сэкономить!
Спасибо Вам!
 
Ответить
СообщениеDJ_Marker_MC, круть, то что нужно!
СПАСИБО большущее! Столько времени и усилий Вы помогли сэкономить!
Спасибо Вам!
Автор - N-y-son
Дата добавления - 06.02.2015 в 15:38
Hugo Дата: Пятница, 06.02.2015, 15:56 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Не могу файл скачать - админы чтоль резать стали макросы...
Поэтому спрошу прямо - там в коде есть защита от всяких левых двоеточий? Или уверены, что на 10 тыс. шт. будут только цифры?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНе могу файл скачать - админы чтоль резать стали макросы...
Поэтому спрошу прямо - там в коде есть защита от всяких левых двоеточий? Или уверены, что на 10 тыс. шт. будут только цифры?
Автор - Hugo
Дата добавления - 06.02.2015 в 15:56
RAN Дата: Пятница, 06.02.2015, 16:08 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
:D
[vba]
Код
    iPATH = ThisWorkbook.Path
For i = 1 To iRow
     IName = iPATH & "\" & Cells(i, 3).Value
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение:D
[vba]
Код
    iPATH = ThisWorkbook.Path
For i = 1 To iRow
     IName = iPATH & "\" & Cells(i, 3).Value
[/vba]
Автор - RAN
Дата добавления - 06.02.2015 в 16:08
DJ_Marker_MC Дата: Пятница, 06.02.2015, 16:18 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
RAN, ну да, давайте кинем камень в Модератора))) ибо он не гений VBA и не подумал, что вместо этого, можно сделать так:

[vba]
Код
For i = 1 To iRow
        IName = ThisWorkbook.Path & "\" & Cells(i, 3).Value
[/vba]
а еще лучше так
[vba]
Код
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        IName = ThisWorkbook.Path & "\" & Cells(i, 3).Value
[/vba]
убрав тем самым и iRow :)
 
Ответить
СообщениеRAN, ну да, давайте кинем камень в Модератора))) ибо он не гений VBA и не подумал, что вместо этого, можно сделать так:

[vba]
Код
For i = 1 To iRow
        IName = ThisWorkbook.Path & "\" & Cells(i, 3).Value
[/vba]
а еще лучше так
[vba]
Код
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        IName = ThisWorkbook.Path & "\" & Cells(i, 3).Value
[/vba]
убрав тем самым и iRow :)
Автор - DJ_Marker_MC
Дата добавления - 06.02.2015 в 16:18
Hugo Дата: Пятница, 06.02.2015, 16:19 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Ну тогда вот - используйте на всякий случай:
[vba]
Код
Function CheckName(sName As String)
      Dim sSymbols, li As Long
      sSymbols = Array(":", "\", "/", "?", "*")
      For li = LBound(sSymbols) To UBound(sSymbols)
          sName = Replace(sName, sSymbols(li), "")
      Next li
      CheckName = sName
End Function
[/vba]
Можете добавить ещё символов - поищите в сети список всех запрещённых, ну и ещё свои можно добавить.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Пятница, 06.02.2015, 16:21
 
Ответить
СообщениеНу тогда вот - используйте на всякий случай:
[vba]
Код
Function CheckName(sName As String)
      Dim sSymbols, li As Long
      sSymbols = Array(":", "\", "/", "?", "*")
      For li = LBound(sSymbols) To UBound(sSymbols)
          sName = Replace(sName, sSymbols(li), "")
      Next li
      CheckName = sName
End Function
[/vba]
Можете добавить ещё символов - поищите в сети список всех запрещённых, ну и ещё свои можно добавить.
Автор - Hugo
Дата добавления - 06.02.2015 в 16:19
RAN Дата: Пятница, 06.02.2015, 16:22 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Я не кидал камень, а просто показал код для Hugo :D
А в лишней переменной ничего плохого нет. Наоборот, избавляет от лишних вычислений.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 06.02.2015, 16:25
 
Ответить
СообщениеЯ не кидал камень, а просто показал код для Hugo :D
А в лишней переменной ничего плохого нет. Наоборот, избавляет от лишних вычислений.
Автор - RAN
Дата добавления - 06.02.2015 в 16:22
N-y-son Дата: Пятница, 06.02.2015, 16:44 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Hugo, 06.02.2015 в 15:56, в сообщении № 8
Или уверены, что на 10 тыс. шт. будут только цифры

Да, все значения ячеек - только цифры, т.к. двоеточия повсюду убрал.

Спасибо всем откликнувшимся!
 
Ответить
Сообщение
Цитата Hugo, 06.02.2015 в 15:56, в сообщении № 8
Или уверены, что на 10 тыс. шт. будут только цифры

Да, все значения ячеек - только цифры, т.к. двоеточия повсюду убрал.

Спасибо всем откликнувшимся!
Автор - N-y-son
Дата добавления - 06.02.2015 в 16:44
Hugo Дата: Пятница, 06.02.2015, 16:48 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Ну ОК. Если что - я предупреждал :)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу ОК. Если что - я предупреждал :)
Автор - Hugo
Дата добавления - 06.02.2015 в 16:48
vikttur Дата: Пятница, 06.02.2015, 16:51 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

удалено


Сообщение отредактировал vikttur - Пятница, 06.02.2015, 21:44
 
Ответить
Сообщениеудалено
Автор - vikttur
Дата добавления - 06.02.2015 в 16:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формировка файлов с именем из значений ячеек. Как сделать? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!