ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", , , , False)ifilename就是选中文件的带路径的文件名,用InStrRev(ifilename, ""),配以left()函数就可以获得文件所在文件夹。
临时写了个对话框选择文件名填写入单元格的示例。点按键,会弹出文件选择对话框,将选取的文件名填写入指定单元格。
ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", , , , False)ifilename就是选中文件的带路径的文件名,用InStrRev(ifilename, ""),配以left()函数就可以获得文件所在文件夹。
临时写了个对话框选择文件名填写入单元格的示例。点按键,会弹出文件选择对话框,将选取的文件名填写入指定单元格。