Как найти путь к файлу?

[Gawwws]

Как обратиться к файлу, который находится в той-же папке что и книга?
(Книга может быть в разных местах)

[IgorGO]

ActiveWorkbook.FullName

[Gawwws]

Немного не то!!!

Показывает путь C:\Documents and Settings\Admin\Мои документы\Конструктор.xls,

А реальный C:\Конструктор.xls и надо без имени файла ("С:\")

[Gawwws]

Перезапустил - работает!!!

Имя самого файла убрал так:

Private Function Spliting1(sFullPath As String)
Dim str1() As String
str1 = Split(sFullPath, "\")
Spliting1 = str1(UBound(str1))
End Function

Sub Кнопка12_Щелкнуть()
Dim sName As String, sName1 As String, sName2 As String, sName3 As String, sName4 As String
sName = ActiveWorkbook.FullName
sName1 = Spliting1(sName)
For i = 1 To Len(sName) - Len(sName1)
    sName3 = Mid(sName, i, 1)
    sName4 = sName4 & sName3
Next
MsgBox sName4
Stop

Но бывают проблемы с разными Excel-ями в частности с функцией Mid!

Можно по-другому???

[Gawwws]

Упростил:

Sub Кнопка12_Щелкнуть()
Dim sName As String, sName1 As String, sName2 As String, sName3 As String, sName4 As String
sName = ActiveWorkbook.FullName
sName1 = ActiveWorkbook.Name
For i = 1 To Len(sName) - Len(sName1)
    sName3 = Mid(sName, i, 1)
    sName4 = sName4 & sName3
Next
MsgBox sName4
Stop

Но Mid(sName, i, 1) меня беспокоит!!

[EducatedFool]

Упростил:

Проще не бывает


Для получения пути файла есть свойство книги Path

Sub test333()
    MsgBox ActiveWorkbook.Path
End Sub

Одна проблема - последним символом в этом пути может быть разделитель "\" (если файл лежит в корневом каталоге на диске).
Во всех остальных случаях этот разделитель надо дописывать самому.


Есть и другой способ - всегда возвращающий путь файла с разделителем на конце:

Sub test33()
    Path = Replace(ActiveWorkbook.FullName, ActiveWorkbook.Name, "")
    MsgBox Path
End Sub

[Gawwws]

Спасибо!!!

Я сделал так:

sName = ActiveWorkbook.Path
If Len(sName) <> 3 Then sName = sName & "\"
MsgBox sName