close

'找尋目前檔案路徑

Dim FullPath As Object

Dim CurrentProject As Object

Dim Path As Object

FullPath = CurrentDb.Name

CurrentProject = Dir(FullPath)

Path = Left(FullPath, InStr(FullPath, CurrentProject) - 1)

arrow
arrow
    全站熱搜

    M 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄