ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", , , , False)
ifilename就是选中文件的带路径的文件名，用InStrRev(ifilename, "\")，配以left()函数就可以获得文件所在文件夹。
