Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить часть текста справа до первого символа \
 
#1
06.11.2018 14:23:19
Добрый день, коллеги!

Нужно удалить текст справа до первого символа "\"
Я пытаюсь определить адрес нахождения текущей книги.
Код
        Dim a 
        Let a = ActiveWorkbook.FullName

На выходе имею а=D:User\DropBox\VBA\test.xlsm
Необходимо удалить название файла из значения а. Оставить только путь к файлу.
 
 
 
#2
06.11.2018 14:24:54
Allleksey, почему сразу не брать путь?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
06.11.2018 15:00:09
Не знаю, по какой причине, но на одном компьютере ActiveWorkbook.Path путь к файлу, а на другом возвращает пустую строку.
Решил попробовать зайти с другой стороны.
 
 
 
#4
06.11.2018 15:07:16
Цитата
Allleksey написал:
на другом возвращает пустую строку.
такое может быть когда файл еще не сохранен
 
 
 
#5
06.11.2018 15:24:23
Цитата
ivanok_v2 написал: такое может быть когда файл еще не сохранен
100%

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
06.11.2018 15:34:37
Принял. Разобрался, спасибо!!! Действительно в этом проблема.
 
 
 
#7
06.11.2018 16:33:15
Все таки попытался для тренировки решить задачу.

Код
Let FolderPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 11)
Изменено: Allleksey - 06.11.2018 16:50:29
 
 
 
#8
06.11.2018 16:40:42
Allleksey, Вы написали по факту, что
Код
FolderPath = ActiveWorkbook.FullName
только очень длинным способом - так что попытка не засчитана.
 
 
 
#9
06.11.2018 16:46:16
Код
With ActiveWorkbook:FolderPath = Left$(.FullName, Len(.FullName) - Len(.Name)):End With

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#10
06.11.2018 16:51:26
Откорректировал код. Почему то не все скопировалось :(
 
 
 
#11
06.11.2018 16:58:04
Allleksey, длина имени файла всегда 11 символов???

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#12
06.11.2018 19:31:22
JayBhagavan, да. Я предполагаю, что файл будет называться всегда одинаково, что бы по его названию пользователь определял, что это именно файл аналитики.
 
 
 
#13
06.11.2018 20:55:07
Код
Sub q()
    sFullName = "D:User\DropBox\VBA\test.xlsm"
    sPath = Left$(sFullName, InStrRev(sFullName, "\") - 1)
    sName = Mid$(sFullName, InStrRev(sFullName, "\") + 1)
End Sub
 
 
 
#14
06.11.2018 21:10:02
RAN, простите, а для чего нужен знак "$" после Left и Mid?
 
 
 
#15
06.11.2018 21:15:35
Указание программе, что тип переменной - String
 
 
 
#16
06.11.2018 21:28:01
Можно и без него. Будет дольше работать. На 1/10^?  сек. :D
Изменено: RAN - 06.11.2018 21:29:06
 
 
 
#17
06.11.2018 22:14:04
вариант UDF в D1
Код
 Function sPath$(t$)
  With CreateObject("VBScript.RegExp"): .Pattern = "[^\\]+": .Global = True
       sPath = .Execute(t)(.Execute(t).Count - 1): sPath = Replace(t, "\" & sPath, "")
  End With
End Function
Изменено: кузя1972 - 06.11.2018 22:14:21
 
 
 
Страницы: 1
Наверх