VBA获取我的文档路径.docx

VBA 获取我的文档路径方法1.读取注册表:

DeclareFunctionRegOpenKeyExLibadvapi32.dllAliasRegOpenKeyExA(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong)AsLong

DeclareFunctionRegQueryValueExStringLibadvapi32.dllAliasRegQueryValueExA(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,ByVallpDataAsString,lpcbDataAsLong)AsLong

DeclareFunctionRegQueryValueExNULLLibadvapi32.dllAliasRegQueryValueExA(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,ByVallpDataAsLong,lpcbDataAsLong)AsLong

GlobalConstHKEY_CURRENT_USER=GlobalConstKEY_ALL_ACCESS=H3F

Subtest()

DimhKeyAsLongDimresultvlAsString

lretval=RegOpenKeyEx(HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders,0,KEY_ALL_ACCESS,hKey)

Iflretval=0Then

regop=RegQueryValueExNULL(hKey,Personal,0,lType,0,lpcbData)resultvl=String(lpcbData,0)

regop=RegQueryValueExString(hKey,Personal,0,lType,resultvl,lpcbData)

Ifregop=ERROR_NONEThenvValue=Left$(resultvl,lpcbData)

Else

vValue=EmptyEndIf

Else

vValue=EmptyEndIf

MsgBoxvValueEndSub

方法2.用WSCRIPT对象模型的SPECIALFOLDERS属性

Subtest()

SetWSh=CreateObject(WScript.Shell)strdoc=WSh.SpecialFolders(Mydocuments)

MsgBoxstrdoc这一句要不要都可以，已经在STRDOC中最得字串了EndSub

方法

方法3.使用shell对象.

Submacro1()

MsgBoxCreateObject(shell.Application).Namespace(5).self.PathEndSub

方法4.

如果没有更改过我的文档路径,可以这样:

Submacro1()

MsgBoxEnviron(USERPROFILE)\MyDocuments

EndSub

方法5使用WSCRIPT对象模型读取注册表

Subgetit()

MsgBoxCreateObject(Wscript.Shell).RegRead(HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserShellFolders\Personal)

EndSub