Excel VBA から「マイドキュメント」フォルダのパスを取得したい場合、
WSHを使用して以下のように取得する。
Dim WSH As Object
Dim sPath As String
Set WSH = CreateObject("Windows.Shell")
sPath = WSH.SpecialFolders("MyDocuments")
取得できるWindowsの特殊フォルダは「マイドキュメント」のほかに
・デスクトップ（"Desktop"）
・スタートアップ（"Startup"）
・スタートメニュー（"StartMenu"）
等がある。
詳しくは以下を参照
■MSDN
http://msdn.microsoft.com/ja-jp/library/cc364490.aspx
PR
