Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Имя книги в ячейку
 
#1
17.10.2010 15:07:37
Ребята подскажите пожалуйста макрос вставки имени книги в ячейку. Где-то вроде видела на форуме, но что-то по поиску ничего найти не могу подобного. Пожалуйста, помогите
 
 
 
#2
17.10.2010 15:09:11
Извините, не имя книги, а имя папки в которой находится книга
 
 
 
#3
17.10.2010 15:19:50
Sub www()  
Cells(1, 1) = ThisWorkbook.Path & "\" & ThisWorkbook.Name  
End Sub  
 
Sub www()  
Cells(1, 1) = ThisWorkbook.Path  
End Sub  
 
(второе - папки)
 
 
 
#4
17.10.2010 15:20:25
=ИНФОРМ("каталог")
 
 
 
#5
17.10.2010 15:23:31
{quote}{login=nilem}{date=17.10.2010 03:20}{thema=}{post}=ИНФОРМ("каталог"){/post}{/quote}  
 
Офис 2007-2010...
 
 
 
#6
17.10.2010 15:31:37
2003 =ИНФОРМ("Каталог")
 
 
 
#7
17.10.2010 15:32:13
Уже было :-)
 
 
 
#8
17.10.2010 15:38:37
{quote}{login=Диана}{date=17.10.2010 03:19}{thema=}{post}Sub www()  
Cells(1, 1) = ThisWorkbook.Path & "\" & ThisWorkbook.Name  
End Sub  
 
Sub www()  
Cells(1, 1) = ThisWorkbook.Path  
End Sub  
(второе - папки){/post}{/quote}  
 
Он выводит полный путь...  
А вот только имя папки в которой находится активная книга, возможно?  
 
И возможно ли имя папки на уровень выше?  
То есть если файл находится в папке 2, а она в свою очередь в папке 1  
то вставляется имя папка 1?
 
 
 
#9
17.10.2010 15:42:32
Вы определитесь: "только имя папки в которой находится активная книга" или " имя папки на уровень выше"?
 
 
 
#10
17.10.2010 15:44:10
Это уже к Юрию... :)
 
 
 
#11
17.10.2010 15:55:40
{quote}{login=Юрий М}{date=17.10.2010 03:42}{thema=}{post}Вы определитесь: "только имя папки в которой находится активная книга" или " имя папки на уровень выше"?{/post}{/quote}  
 
Вообще по сути требуется два варианта  
Но если выбирать, то тогда лучше второй, с папкой на уровень выше
 
 
 
#12
17.10.2010 16:00:08
Sub var1()  
Cells(1, 1) = ThisWorkbook.Path  
Range("B1") = _  
       "=TRIM(LEFT(RIGHT("" ""&SUBSTITUTE(TRIM(RC[-1]),""\"",REPT("" "",60)),2*60),60))"
Range("B1").Value = Range("B1").Value  
Cells(1, 1).Clear  
End Sub  
 
Sub var2()  
Cells(1, 1) = ThisWorkbook.Path  
Range("B1") = _  
       "=TRIM(LEFT(RIGHT("" ""&SUBSTITUTE(TRIM(RC[-1]),""\"",REPT("" "",60)),1*60),60))"
Range("B1").Value = Range("B1").Value  
Cells(1, 1).Clear  
End Sub
 
 
 
#13
17.10.2010 16:02:06
Играйтесь, i можно использовать как стартовая позиция для начала поиска и определения границы папки №2  
 
Sub papka()  
Dim iPath As String, i As Integer, strSep As String  
 
iPath = ActiveWorkbook.Path  
 
strSep = Application.PathSeparator  
'позиция \ перед последней папкой  
i = Len(iPath) - InStrRev(iPath, strSep, -1)  
 
iPath = Right(iPath, i)  
 
[A1] = iPath
End Sub
 
 
 
#14
17.10.2010 16:06:46
Sub FolderNameToCell()  
x = Split(ThisWorkbook.Path, "\")  
CountArr = UBound(x)  
Cells(1, 1) = Split(ThisWorkbook.Path, "\")(CountArr)  
Cells(2, 1) = Split(ThisWorkbook.Path, "\")(CountArr - 1)  
End Sub
 
 
 
#15
17.10.2010 16:09:07
Как всегда, все перемудрила...
 
 
 
#16
17.10.2010 16:12:22
{quote}{login=Диана}{date=17.10.2010 04:00}{thema=}{post}Sub var1()  
Cells(1, 1) = ThisWorkbook.Path  
Range("B1") = _  
       "=TRIM(LEFT(RIGHT("" ""&SUBSTITUTE(TRIM(RC[-1]),""\"",REPT("" "",60)),2*60),60))"
Range("B1").Value = Range("B1").Value  
Cells(1, 1).Clear  
End Sub  
 
Sub var2()  
Cells(1, 1) = ThisWorkbook.Path  
Range("B1") = _  
       "=TRIM(LEFT(RIGHT("" ""&SUBSTITUTE(TRIM(RC[-1]),""\"",REPT("" "",60)),1*60),60))"
Range("B1").Value = Range("B1").Value  
Cells(1, 1).Clear  
End Sub{/post}{/quote}  
 
Первый вариант, супер!  
А вот второй вставляет XLSTART, то есть там где находится персональ
 
 
 
#17
17.10.2010 16:15:22
Формулой так:  
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ИНФОРМ("КАТАЛОГ");"\";ПОВТОР(" ";ДЛСТР(ИНФОРМ("КАТАЛОГ"))));ДЛСТР(ИНФОРМ("КАТАЛОГ"))*((ДЛСТР(ИНФОРМ("КАТАЛОГ"))-ДЛСТР(ПОДСТАВИТЬ(ИНФОРМ("КАТАЛОГ");"\";)))-1);ДЛСТР(ИНФОРМ("КАТАЛОГ"))))  
В части формулы "-1" задается уровень, т.е. -2 это будет второй уровень и т.д.
 
 
 
#18
17.10.2010 16:15:35
{quote}{login=The_Prist}{date=17.10.2010 04:09}{thema=}{post}Dim sStr  
sStr = Split(ThisWorkbook.FullName, Application.PathSeparator)  
'Имя файла  
MsgBox ThisWorkbook.Name  
'Путь файла  
MsgBox ThisWorkbook.Path  
'Папка файла  
MsgBox sStr(UBound(sStr) - 1)  
'Пака второго уровня  
MsgBox sStr(UBound(sStr) - 2)  
'Папка третьего уровня  
MsgBox sStr(UBound(sStr) - 3){/post}{/quote}  
 
 
хм... ничего не вставляет..
 
 
 
#19
17.10.2010 16:16:43
У Дмитрия лучше :)  
 
 
Sub www()  
Dim sStr  
sStr = Split(ThisWorkbook.FullName, Application.PathSeparator)  
Cells(1, 1) = sStr(UBound(sStr) - 1)  
Cells(1, 2) = sStr(UBound(sStr) - 2)  
End Sub
 
 
 
#20
17.10.2010 16:18:19
{quote}{login=The_Prist}{date=17.10.2010 04:12}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.10.2010 04:06}{thema=}{post}Sub FolderNameToCell()  
x = Split(ThisWorkbook.Path, "\")  
CountArr = UBound(x)  
Cells(1, 1) = Split(ThisWorkbook.Path, "\")(CountArr)  
Cells(2, 1) = Split(ThisWorkbook.Path, "\")(CountArr - 1)  
End Sub{/post}{/quote}Юра, а зачем тогда каждый раз использовать Split, если массив(x) уже сформирован? {/post}{/quote}  
Виноват, исправлюсь! :-)
 
 
 
#21
17.10.2010 16:18:35
Не вставляет, так как MsgBox - он показывает, я его Вам и переделала
 
 
 
#22
17.10.2010 16:19:38
{quote}{login=Диана}{date=17.10.2010 04:16}{thema=}{post}У Дмитрия лучше :){/post}{/quote}  
Кто бы спорил?!
 
 
 
#23
17.10.2010 16:23:40
{quote}{login=The_Prist}{date=17.10.2010 04:18}{thema=Re: Re: }{post}{quote}{login=Лариса}{date=17.10.2010 04:15}{thema=Re: }{post}хм... ничего не вставляет..{/post}{/quote}Хм...Когда учиться будем? конечно не вставляет - Вы сами-то что-нибудь попробуйте уже сделать. Уж адрес ячеек-то для вставки Вы можете сами прописать вместо Msgbox? Лариса, помниться мы уже возились с Вами по поводу вставки. Можно было хоть что-то и почерпнуть из той темы. Так Вы ничему не научитесь...{/post}{/quote}  
 
Эх...Вы правы... Мозги финансиста видать не сразу логику языка программирования воспринимают :( Простите, буду стремиться переворачивать мышление... задача комплексная, большая, а времени как всегда нету
 
 
 
#24
17.10.2010 16:27:08
Спасибо, Дмитрий,  
Спасибо, Юрий,  
Спасибо, Ким,  
Спасибо, Игорь,  
Спасибо, Диана  
 
Как всегда пожалуйста :)
 
 
 
#25
17.10.2010 16:30:24
Большое спасибо всем!    
Все варианты практически работают!
 
 
 
Страницы: 1
Читают тему
Наверх