вставка название файла в ячейку листа

[segail]

Сообщение от IgorGO

можно

Игорь, если возможно помоги пожалуйста.

[IgorGO]

а то, что написано выше не наводит на мысли?

=ЛЕВСИМВ(ЯЧЕЙКА("имяфайла");НАЙТИ("[";ЯЧЕЙКА("имяфайла"))-1)

идите в космонавты, сталевары (в куче профессий не требуется вообще знать о существовании Excel, не то чтобы уметь им пользоваться)

[segail]

Сообщение от IgorGO

а то, что написано выше не наводит на мысли?

=ЛЕВСИМВ(ЯЧЕЙКА("имяфайла");НАЙТИ("[";ЯЧЕЙКА("имяфайла"))-1)

идите в космонавты, сталевары (в куче профессий не требуется вообще знать о существовании Excel, не то чтобы уметь им пользоваться)

Игорь уж точно не космонавт, но проф. водитель со стажем 35, а excel нужен по необходимости для ведения небольших учетов, поэтому и обращаюсь к профессионалам в этой области.
Ваш пример на имя папки отображает весь путь, пытаюсь добавлять отрицательное значение, но сокращаю с правой стороны да и путь бывает разный, как вытянуть именно имя папки, для меня проблема...

[Казанский]

Допустим эта формула в А1, в другой ячейке получаем папку

=ПСТР(A1;НАЙТИ("?";ПОДСТАВИТЬ(A1;"\";"?";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"\";""))))+1;999)

На VBA было бы проще:

Function Папка()
  Папка = Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)
End Function

[IgorGO]

инженер-строитель, стаж 41
папка, в которой лежит файл

=ПСТР(ЯЧЕЙКА("имяфайла");НАЙТИ(СИМВОЛ(9);ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";СИМВОЛ(9);ДЛСТР(ЯЧЕЙКА("имяфайла"))-ДЛСТР(ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";""))-1))+1;НАЙТИ("[";ЯЧЕЙКА("имяфайла"))-2-НАЙТИ(СИМВОЛ(9);ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";СИМВОЛ(9);ДЛСТР(ЯЧЕЙКА("имяфайла"))-ДЛСТР(ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";""))-1)))

[segail]

Сообщение от IgorGO

инженер-строитель, стаж 41
папка, в которой лежит файл

=ПСТР(ЯЧЕЙКА("имяфайла");НАЙТИ(СИМВОЛ(9);ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";СИМВОЛ(9);ДЛСТР(ЯЧЕЙКА("имяфайла"))-ДЛСТР(ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";""))-1))+1;НАЙТИ("[";ЯЧЕЙКА("имяфайла"))-2-НАЙТИ(СИМВОЛ(9);ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";СИМВОЛ(9);ДЛСТР(ЯЧЕЙКА("имяфайла"))-ДЛСТР(ПОДСТАВИТЬ(ЯЧЕЙКА("имяфайла");"\";""))-1)))

Игорь это о многом говорит, в том числе и о программировании.
Работает, создавал различное количество директорий, отображает именно начальную паку, но даже общее понимание как по данной формуле отображается именно начальная папка, так и не уловил.
Благодарю за помощь!!!

[segail]

Сообщение от Казанский

Допустим эта формула в А1, в другой ячейке получаем папку

=ПСТР(A1;НАЙТИ("?";ПОДСТАВИТЬ(A1;"\";"?";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"\";""))))+1;999)

На VBA было бы проще:

Function Папка()
  Папка = Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)
End Function

Казанский спасибо за помощь, но каким образом использовать данную функцию, как код при открытии книги или еще как, не понятно…

[Казанский]

Сообщение от segail

каким образом использовать данную функцию

https://www.planetaexcel.ru/techniques/3/59/ - Создание пользовательских функций на VBA

[segail]

Сообщение от Казанский

https://www.planetaexcel.ru/techniques/3/59/ - Создание пользовательских функций на VBA

Казанский, я так понял используя данную функцию выполнить в ручную необходимые действия и записать их макрорекордером, затем данный код при необходимости дополнить и разместить в событии открытия книги.
Получается функция находится в модуле, а сам код в Книге при открытие Книги выполняется нужное действие.
Ничего не упустил?

Function Папка()   
    Папка = Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)
End Function

Private Sub Workbook_Open() ' Открытие книги
    Sheets("база_данных").Select        'Переход на лист
    ActiveSheet.Unprotect               'Снять защиту листа
    Range("F2").Select                  'Ячейка для вставки
    ActiveCell.FormulaR1C1 = "=Папка()" 'Вставка функции
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Установить защиту листа
End Sub

[Казанский]

Эмм... можно и так, конечно. Но почему бы просто не вписать в нужную ячейку =Папка() , как другие формулы?
Если Вы хотите сказать, что так функция не обновляется при открытии файла, т.е. если переместить его в другую папку, функция сохраняет старое значение, то это лечится добавлением одной строки

Function Папка()
  Application.Volatile
  Папка = Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)
End Function