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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение столбца названием файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение столбца названием файла (Макросы/Sub)
Заполнение столбца названием файла
cresh12 Дата: Пятница, 02.10.2015, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Помогите пожалуйста решить такой вопрос. Нужно заполнить столбец названием активной книги. Столбцы заполняются копированием из одной книги в другую таким способом:
[vba]
Код

shSrc.Activate
     d = shSrc.Cells(Rows.Count, 5).End(xlUp).Row
      
     '-----------------------------------------
      
     shRes.Range("B2 :B" & d + 1 & "") = "1211.5520.0000.000.000"
      
     '---------------------------------------------------
     shRes.Range("H2 :H" & d + 1 & "") = "Деталь"
     shRes.Range("J2 :J" & d + 1 & "") = "1"
     shRes.Range("K2 :K" & d + 1 & "") = "1"
     shSrc.Range("B1:B" & d & "").Copy
     shRes.Cells(lrRes, 3).PasteSpecial xlPasteValues
     shSrc.Range("E1:E" & d & "").Copy
     shRes.Cells(lrRes, 5).PasteSpecial xlPasteValues
     shSrc.Range("C1:C" & d & "").Copy
     shRes.Cells(lrRes, 6).PasteSpecial xlPasteValues
[/vba]

Подскажите пожалуйста, что изменить чтобы столбец В заполнялся названием книги из которой берутся данные, а не фиксированным числом. Спасибо.
[vba]
Код

  '-----------------------------------------
      
     shRes.Range("B2 :B" & d + 1 & "") = "1211.5520.0000.000.000"
      
     '---------------------------------------------------
[/vba]
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста решить такой вопрос. Нужно заполнить столбец названием активной книги. Столбцы заполняются копированием из одной книги в другую таким способом:
[vba]
Код

shSrc.Activate
     d = shSrc.Cells(Rows.Count, 5).End(xlUp).Row
      
     '-----------------------------------------
      
     shRes.Range("B2 :B" & d + 1 & "") = "1211.5520.0000.000.000"
      
     '---------------------------------------------------
     shRes.Range("H2 :H" & d + 1 & "") = "Деталь"
     shRes.Range("J2 :J" & d + 1 & "") = "1"
     shRes.Range("K2 :K" & d + 1 & "") = "1"
     shSrc.Range("B1:B" & d & "").Copy
     shRes.Cells(lrRes, 3).PasteSpecial xlPasteValues
     shSrc.Range("E1:E" & d & "").Copy
     shRes.Cells(lrRes, 5).PasteSpecial xlPasteValues
     shSrc.Range("C1:C" & d & "").Copy
     shRes.Cells(lrRes, 6).PasteSpecial xlPasteValues
[/vba]

Подскажите пожалуйста, что изменить чтобы столбец В заполнялся названием книги из которой берутся данные, а не фиксированным числом. Спасибо.
[vba]
Код

  '-----------------------------------------
      
     shRes.Range("B2 :B" & d + 1 & "") = "1211.5520.0000.000.000"
      
     '---------------------------------------------------
[/vba]
Автор - cresh12
Дата добавления - 02.10.2015 в 09:34
Pelena Дата: Пятница, 02.10.2015, 09:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Может, так?
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = ActiveWorkbook.Name
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожет, так?
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = ActiveWorkbook.Name
[/vba]
Автор - Pelena
Дата добавления - 02.10.2015 в 09:45
cresh12 Дата: Пятница, 02.10.2015, 09:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо)) а можно как нибудь убрать .xls из названия?
 
Ответить
СообщениеPelena, Спасибо)) а можно как нибудь убрать .xls из названия?
Автор - cresh12
Дата добавления - 02.10.2015 в 09:56
Pelena Дата: Пятница, 02.10.2015, 10:04 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Ну, как вариант
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = Split(ActiveWorkbook.Name, ".")(0)
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНу, как вариант
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = Split(ActiveWorkbook.Name, ".")(0)
[/vba]
Автор - Pelena
Дата добавления - 02.10.2015 в 10:04
RAN Дата: Пятница, 02.10.2015, 14:23 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Лен, так не правильно будет с именами типа "Книга1 V1.0.xlsx"
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЛен, так не правильно будет с именами типа "Книга1 V1.0.xlsx"
[vba]
Код
shRes.Range("B2 :B" & d + 1 & "") = Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
[/vba]
Автор - RAN
Дата добавления - 02.10.2015 в 14:23
Pelena Дата: Пятница, 02.10.2015, 15:01 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Да, Андрей, ты прав, как всегда girl_smile

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеДа, Андрей, ты прав, как всегда girl_smile
Автор - Pelena
Дата добавления - 02.10.2015 в 15:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение столбца названием файла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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