Question

EXCEL中用VB代码编写了一段可以将一个EXCEL工作薄，根据一列不同数据分为多个工作薄

EXCEL中用VB代码编写了一段可以将一个EXCEL工作薄，根据一列不同数据分为多个工作薄，但只识别一种EXCEL格式，想实现既可以识别XLS格式也可以识别XLSX格式，谢谢各位 FileName = Application.GetOpenFilename("Excel文件( *.xlsx),*.xlsx", , "请选择要分表的工作表所在的位置！", , 0)，，，是这个位置吧

Answer 1

你的这个语句，变量FileName里就包含了用户选择的文件名以及扩展名。

追问

我改成("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx" 为什么还是只能XLSX格式

追答

你用我这个：

Filename = Application.GetOpenFilename("Excel 2007-2010 文件(*.xlsx),*.xlsx,Excel 2000-2003 文件(*.xls),*.xls", 1, "请选择要分表的工作表所在的位置！", , 0)