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 的頭像
    M

    M的部落格

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

    E-mail轉寄