如题所述
这段代码是读取一个文件夹下的所有文件,也可以根据扩展名筛选其它格式的.‘有了文件名,就是打开文件,获得每个文件的SHEET名字.然后写到你想要的地方SubMacro1()DimmyDialogAsFileDialog,oFileAsObject,strNameAsString,nAsIntegerDimFSOAsObject,myFolderAsObject,myFilesAsObject,Dimfn$SetmyDialog=Application.FileDialog(msoFileDialogFolderPicker)n=1WithmyDialogIf.Show<>-1ThenExitSubSetFSO=CreateObject(Scripting.FileSystemObject)‘这是文件夹选择,点选到你存放文件的那个SetmyFolder=FSO.GetFolder(.InitialFileName)SetmyFiles=myFolder.FilesForEachoFileInmyFilesstrName=UCase(oFile.Name)strName=VBA.Right(strName,3)IfstrName=xlsOrstrName=XLSThen‘这是扩展名选择‘下面就可接着写打开文件读取数据再写入的语句了,如下:fn=myFolder&/&oFile.NameWorkbooks.OpenFilename:=fnWorksheets(1).Select‘假设你读取SHEET1的数据RANGE_=Range(A2:F50)‘需要数据的区域,自己修改Windows(外部表格数据自动导入.xls).Activate‘这个是新表的文件名,自己修改下Worksheets(n).Select‘打开第几个文件就选择SHEET几,如果没有可用ADD代码添加
温馨提示:答案为网友推荐,仅供参考