OptionExplicitSubxlsTOxlsx()DimstrFilePathAsString,strFileNameAsString,strFileTypeAsStringDimaIndexAsLong,arrFileName()AsString,strNewNameAsString'设置文件扩展名标识文件类型strFileType=.xlsOnErrorResumeNext......
11-23 83 excel VBA 将 一个 目 录下