多个Excel文件合并到一个工作薄中
VBA代码: Sub merge()Dim FileSetDim i As IntegerDim filenameOn Error GoTo 0Application.ScreenUpdating = FalseFileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.x
原创
2013-10-18 16:03:35 ·
299 阅读 ·
0 评论