Excel vba функция с указанием c части пути в качестве переменной

Question

У меня есть функция в Excel, которая дает час последней модификации, используя путь, только одна часть пути изменяется exp:

\ c: \ xcl \ report \ sudtrack \ 20200324 \ dossier22

часть: 20200324

я хочу сделать что-то подобное: function('20200324') код поместит его в путь

path="\\c:\xcl\report\sudtrack\" & 20200324 &"\dossier22"

мой текущий код

Function End_hour(path As String)

    End_hour = Format(FileDateTime(path), "hh:mm:ss")

End Function

Answer 1

я хочу сделать что-то подобное: функция ('20200324'), код поместит ее в путь

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

Option Explicit

Sub Sample()
    Dim myPath As String

    myPath = "\\c:\xcl\report\sudtrack\HOUROFLASTMOD\dossier22"

    MsgBox Replace(myPath, "HOUROFLASTMOD", "20200324")
End Sub

Примечание : я использовал HOUROFLASTMOD. Вы можете изменить его на любую нужную вам строку.

Если вы все еще хотите использовать функцию, попробуйте это

Option Explicit

Sub Sample()
    MsgBox ReturnNewPath("20200324")
End Sub

Function ReturnNewPath(TimeString As String)
    Dim myPath As String
    myPath = "\\c:\xcl\report\sudtrack\HOUROFLASTMOD\dossier22"

    ReturnNewPath = Replace(myPath, "HOUROFLASTMOD", TimeString)
End Function