Здравствуйте! Помогите пожалуйста решить такой вопрос. Нужно заполнить столбец названием активной книги. Столбцы заполняются копированием из одной книги в другую таким способом:
[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]