运行正常,你确定你是在VBA里运行的么
汉字sub名称没有问题,我经常用。dim报错就删除dim,不定义也一样用。
用 excel汇总大师、excel易用宝,excel催化剂,都能实现你要的功能,别为这样的小功能写vba了。文件少了可以,我一万多个文件这方法也太慢,我在找新办法。
FilesToOpen = Application.GetOpenFilename (FileFilter:="MicroSoft Excel文件(*.xls), *.xls", MultiSelect:=True, Title:="要合并的文件")
这句前面加个set 试试
VBA 过程名不支持中文字符,换英文符