>>238
\\必要。
Mid(CurrentDb.Name, 1, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "a\" & "hoge.xls"
でOK。