Sub test()
With Application
Debug.Print "返回启动文件夹的完整路径=" & .StartupPath
Debug.Print "返回用户计算机上 COM 加载宏安装位置的路径=" & .UserLibraryPath
End With
End Sub
没遇过,不知道。
我这里运行后这2个路径里是空的,你那里是空的吗?
返回启动文件夹的完整路径=C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART
返回用户计算机上 COM 加载宏安装位置的路径=C:\Users\Administrator\AppData\Roaming\Microsoft\AddIns\
Sub test()
With Application
Debug.Print "返回启动文件夹的完整路径=" & .StartupPath
Debug.Print "返回用户计算机上 COM 加载宏安装位置的路径=" & .UserLibraryPath
End With
End Sub
没遇过,不知道。
我这里运行后这2个路径里是空的,你那里是空的吗?
返回启动文件夹的完整路径=C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART
返回用户计算机上 COM 加载宏安装位置的路径=C:\Users\Administrator\AppData\Roaming\Microsoft\AddIns\