另外如果实在不想用inputbox的话,用FSO吧,呵呵。dim fs as objectset fs=createobject("scripting.FileSystemObject")dim myfile,myfiles,myfolderdim mypathmypath=Application.thisworkbook.pathset myfolder=fs.getfolder(mypath)set myfiles=myfolder.filesfor each myfile in myfiles 'Do your action herenextset fs=nothing我想这样比较适合当前文件夹中有很多文件需要处理,呵呵,遍历我还是最喜欢的。:)