妳先這麽改下看看對不對
dim nApp
Set nApp = GetObject(folderPath & fileName)
如果不對 妳做下面這步 告訴我filepath的值是什麽
debug.print filepath
Set nApp = GetObject(filePath)