㈠ Excel文件的扩展名有哪些
105.Excel2016：默认文件扩展名1.默认情况下，Excel2003版本使用“.xls”作为文件扩展名；Excel2007及以上版本使用“.xlsx”作为文件扩展名。高版本向下兼容，可以打开低版本格式文件，低版本无法打开高版本格式文件。2.PDF：PDF是Portable Document Format的简称，即便携式文档格式。3.XPS：XPS是XML Paper Specification的简称，是一种电子文件格式，微软公司开发。4.SGML：英文全称是Standard Generalized Markup language，即标准通用标记语言。5.XML：英文全称是Extensible Markup Language，即可扩展标记语言。6.HTML：英文全称是Hyper Text Markup Language，即超文本标记语言。7.XHTML：英语全称是eXtensible Hyper Text Markup Language，XHTML），即可扩展超文本标记语言。8.CSS：英文全称是Cascading Style Sheets，即层叠样式表。9.ASCII：英文全称是American Standard Code for Information Interchange，即美国信息交换标准代码，是基于拉丁字母的一套电脑编码系统，主要用于显示现代英语和其他西欧语言。到目前为止共定义了128个字符。
㈡ 求一段excel代码。批量提取多个excel工作簿中指定字段的数据，删除其他字段
你好！楼主想要的功能，可以通过VBA程序代码实现，其程序代码如下：（写代码不易，望笑纳）
SubChangeFile()Dimfs,fo,fi,fil,str,na,ty,k,k1,k2,k3,k4,k5,k6,k7,arr1,arr2,xls,wayOnErrorResumeNext'忽略运行过程中可能出现的错误Application.DisplayAlerts=False'关闭报警提示Application.ScreenUpdating=False'关闭屏幕更新way="D:ABCD"'文件路径（文件夹）arr1=Array(".xls",".xlsx",".xlsm")'文件类型合集arr2=Array("交易账卡号","交易户名","交易日期","交易金额","收付标志","对手账号","对手户名","对手开户银行","摘要说明")Setfs=CreateObject("Scripting.FileSystemObject")'创建并返回对计算机系统文件的访问Setfo=fs.Getfolder(way)'定义文件夹，“ABCD”为D盘下边的文件夹Setfi=fo.Files'定义文件夹下边所有文件集ForEachfilInfi'获取文件夹里面所有的文件na=fil.Name'获取文件名称pa=fil.Path'文件路径k1=0'每执行1行则初始化一次k2=0Dok2=k2+1k=k1'k用来存放上次k1的值k1=InStr(k1+1,na,".")'k1为“.”所在的位置Ifk1=0Andk<>0Then'如果"."为文件后缀名的点str=Mid(na,1,k-1)'截取文件名（不含文件类型）ty=Right(na,Len(na)-k+1)'从右侧截文件类型ExitDo'退出Do循环ElseIfk1=0Andk=0Then'如果没有文件后缀名，则str=naty=""ExitDoEndIfEndIfIfk2=1000Then'如果do循环超过1000次则强行退出ExitDoEndIfLoopForEachxlsInarr1'对每个文件类型进行判断Ifxls=tyThen'判断后缀名是否Excel文件Workbooks.Open(pa)'打开文件ForEachshInWorkbooks(na).Sheets'对工作薄里面的每一个工作表进行扫描k3=Application.WorksheetFunction.CountIf(sh.Range("A1:F10"),"")'获取工作表里面空白单元格的个数Ifk3>20Then'此区域内空白单元格的个数超过20个，则此工作表是空白sh.Delete'删除空白工作表Else'否则ForEachRngInsh.Range("A1:Z1")'对第一行A1:Z1单元格逐一判断IfUBound(Filter(arr2,Rng))<0Then'如果此单元格不含关键字符（需要留下的），则sh.Columns(Rng.Column).Delete'删除此列EndIfNextForEachRngInsh.Range("A1:Z1")IfRng="收付标志"Then'获取关键字符所在的列k5=Rng.ColumnEndIfIfRng="交易金额"Thenk6=Rng.ColumnEndIfIfRng="交易日期"Thenk7=Rng.ColumnEndIfNextForh=2To100000'对10万个单元格进行逐一扫描，可根据实际情况进行修改Ifsh.Cells(h,k5)="进"Then'如果含有关键字符，则填充相应的颜色sh.Range(sh.Cells(h,"A"),sh.Cells(h,"I")).Interior.Color=RGB(100,255,100)EndIfIfsh.Cells(h,k5)="出"Thensh.Range(sh.Cells(h,"A"),sh.Cells(h,"I")).Interior.Color=RGB(255,100,100)sh.Cells(h,k6)=-1*sh.Cells(h,k6).ValueEndIfNextWithWindows(na)'冻结工作表里面的首行.SplitColumn=0.SplitRow=1.FreezePanes=TrueEndWithsh.Sort.SortFields.Clear'以下为按照日期进行排序，10万行sh.Sort.SortFields.AddKey:=Range(sh.Cells(2,k7),sh.Cells(100000,k7)),SortOn:=xlSortOnValues,Order:=xlAscending,DataOption:=xlSortNormalWithsh.Sort.SetRangeRange("A2:M100000").Header=xlGuess.MatchCase=False.Orientation=xlTopToBottom.SortMethod=xlPinYin.ApplyEndWithsh.Range(sh.Cells(2,k6),sh.Cells(100000,k6)).NumberFormatLocal="#,##0.00_"'交易金额那一列设置成所需的格式sh.Columns("A:Z").EntireColumn.AutoFit'A:Z列自动调整列宽EndIfNextEndIfNextNewName=str&"_整理版"&ty'新工作薄的名称Workbooks(na).SaveAsFilename:=way&NewName'新工作薄另存Workbooks(NewName).Close'新工作薄关闭NextApplication.DisplayAlerts=TrueApplication.ScreenUpdating=True'恢复屏幕更新MsgBox"所有文件已经处理完成！"EndSub
据楼主给出的附件，其修改之后的VBA程序代码如下：（源文件放在D盘的ABCD文件夹里面，后面可以在程序里面修改路径，VBA程序代码可以在任意的Excel工作薄里面的VBA程序模块里面运行）
SubChangeFile()Dimfs,fo,fi,fil,str,na,ty,h,k,k1,k2,k3,k4,k5,k6,k7,k8,k9,arr1,arr2,xls,way,RngOnErrorResumeNext'忽略运行过程中可能出现的错误Application.DisplayAlerts=False'关闭报警提示Application.ScreenUpdating=False'关闭屏幕更新way="D:ABCD"'要修改的文件路径（文件夹里面）arr1=Array(".xls",".xlsx",".xlsm")'文件类型合集arr2=Array("交易账卡号","交易户名","交易日期","交易金额","收付标志","对手账号","对手户名","对手开户银行","摘要说明")Setfs=CreateObject("Scripting.FileSystemObject")'创建并返回对计算机系统文件的访问Setfo=fs.Getfolder(way)'定义文件夹，“ABCD”为D盘下边的文件夹Setfi=fo.Files'定义文件夹下边所有文件集ForEachfilInfi'获取文件夹里面所有的文件na=fil.Name'获取文件名称pa=fil.Path'文件路径k1=0'每执行1行则初始化一次k2=0Dok2=k2+1k=k1'k用来存放上次k1的值k1=InStr(k1+1,na,".")'k1为“.”所在的位置Ifk1=0Andk<>0Then'如果"."为文件后缀名的点str=Mid(na,1,k-1)'截取文件名（不含文件类型）ty=Right(na,Len(na)-k+1)'从右侧截文件类型ExitDo'退出Do循环ElseIfk1=0Andk=0Then'如果没有文件后缀名，则str=naty=""ExitDoEndIfEndIfIfk2=1000Then'如果do循环超过1000次则强行退出ExitDoEndIfLoopForEachxlsInarr1'对每个文件类型进行判断Ifxls=tyThen'判断后缀名是否Excel文件Workbooks.Open(pa)'打开文件ForEachshInWorkbooks(na).Sheets'对工作薄里面的每一个工作表进行扫描k3=Application.WorksheetFunction.CountIf(sh.Range("A1:F10"),"")'获取工作表里面空白单元格的个数Ifk3>20Then'此区域内空白单元格的个数超过20个，则此工作表是空白sh.Delete'删除空白工作表Else'否则k9=0'每个工作表执行时都重置0Fork8=1To60'执行60次循环IfUBound(Filter(arr2,sh.Cells(1,k8-k9)))<0Then'如果此单元格不含关键字符（不是需要留下的），则sh.Columns(sh.Cells(1,k8-k9).Column).Delete'删除此列k9=k9+1'被删除的次数累计1EndIfNextForEachRngInsh.Range("A1:Z1")IfRng="收付标志"Then'获取关键字符所在的列k5=Rng.ColumnEndIfIfRng="交易金额"Thenk6=Rng.ColumnEndIfIfRng="交易日期"Thenk7=Rng.ColumnEndIfNextForh=2To100000'对10万个单元格进行逐一扫描，可根据实际情况进行修改Ifsh.Cells(h,k5)="进"Then'如果含有关键字符，则填充相应的颜色sh.Range(sh.Cells(h,"A"),sh.Cells(h,"I")).Interior.Color=RGB(100,255,100)'填充的颜色到I列sh.Cells(h,k6)=1*sh.Cells(h,k6).Value'转换成数值EndIfIfsh.Cells(h,k5)="出"Thensh.Range(sh.Cells(h,"A"),sh.Cells(h,"I")).Interior.Color=RGB(255,100,100)sh.Cells(h,k6)=-1*sh.Cells(h,k6).ValueEndIfNextWithWindows(na)'冻结工作表里面的首行.SplitColumn=0.SplitRow=1.FreezePanes=TrueEndWithsh.Sort.SortFields.Clear'以下为按照日期进行排序，10万行sh.Sort.SortFields.AddKey:=Range(sh.Cells(2,k7),sh.Cells(100000,k7)),SortOn:=xlSortOnValues,Order:=xlAscending,DataOption:=xlSortNormalWithsh.Sort.SetRangeRange("A2:M100000").Header=xlGuess.MatchCase=False.Orientation=xlTopToBottom.SortMethod=xlPinYin.ApplyEndWithsh.Range(sh.Cells(2,k6),sh.Cells(100000,k6)).NumberFormatLocal="#,##0.00_"'交易金额那一列设置成所需的格式sh.Columns("A:Z").EntireColumn.AutoFit'A:Z列自动调整列宽EndIfNextEndIfNextNewName=str&"_整理版"&ty'新工作薄的名称Workbooks(na).SaveAsFilename:=way&NewName'新工作薄另存（路径可自行修改）Workbooks(NewName).Close'新工作薄关闭NextApplication.DisplayAlerts=TrueApplication.ScreenUpdating=True'恢复屏幕更新MsgBox"所有文件已经处理完成！"EndSub
【注】部分代码引用自网络经验：《使用VBA批量重命名文件》
㈢ excel文件扩展名是什么
excel文件扩展名是xls或者xlsx。MicrosoftExcel是Microsoft为使用Windows和AppleMacintosh操作系统的电脑编写的一款电子表格软件。
直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。
早期，由于和另一家公司出售的名为Excel的软件同名，Excel曾成为了商标法的目标，经过审判，Microsoft被要求在它的正式文件和法律文档中以Microsoft Excel来命名这个软件。但是，随着时间的过去，这个惯例也就逐渐消逝了。
Excel虽然提供了大量的用户界面特性，但它仍然保留了第一款电子制表软件VisiCalc的特性：行、列组成单元格，数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。
Excel是第一款允许用户自定义界面的电子制表软件（包括字体、文字属性和单元格格式）。它还引进了“智能重算”的功能，当单元格数据变动时，只有与之相关的数据才会更新，而原先的制表软件只能重算全部数据或者等待下一个指令。同时，Excel还有强大的图形功能。
㈣ EXCEL的文件扩展名是什么
Excel表格文件生成的文件扩展抄名是：“.xls”或者“.xlsx”。
查看电脑中的excel文件扩展名的方法：
1、找到需要查看文件扩展名的excel文件。
㈤ excel后缀名有哪些
excel后缀名有两种：
1、（．xls）是03版Office Microsoft Office Excel 工作表的格式，用03版Office，新建Excel默认保存的Excel文件格式的后缀是“．xls”；
2、（．xlsx）是07版Office Microsoft Office Excel 工作表的格式，用07版Office，新建Excel默认保存的的Excel文件格式后缀是“．xlsx”。
(5)excel文件后缀rng扩展阅读
Excel 历史
1982年，Microsoft推出了它的第一款电子制表软件──Multiplan，并在CP/M系统上大获成功，但在MS-DOS系统上，Multiplan败给了Lotus 1-2-3。
这个事件促使了Excel的诞生，正如Excel研发代号Doug Klunder：做Lotus 1-2-3能做的，并且做的更好。
1985年，第一款Excel诞生，它只用于Mac系统；1987年11月，第一款适用于Windows系统的Excel也产生了。Lotus1-2-3迟迟不能适用于Windows系统，到了1988年，Excel的销量超过了Lotus ，使得Microsoft站在了PC软件商的领先位置。
这次的事件，促成了软件王国霸主的更替，Microsoft巩固了它强有力的竞争者地位，并从中找到了发展图形软件的方向。此后大约每两年，Microsoft就会推出新的版本来扩大自身的优势。
㈥ word文档和EXCEL表格的文件后缀名是什么
word的后缀名： .docexcel的后缀名：.xls重命名的时候不要把后面的后缀名给删除了，不然就打不开了。
㈦ EXCEL文件的后缀名是什么
摘要亲，excel中后缀为csv和xls，二者区别如下：
㈧ excel扩展名是什么
Microsoft Office Excel文件的文件扩展名有两种，分别是“.xls”和“.xlsx”。
查看Excel文件扩展名的方法如下：
1、以win10系统为例，首先找到需要查看扩展名的Excel文件。
㈨ excel文件后缀名
一般的为xlsx，xls等。
xlsx是Microsoft Office EXCEL 2007/2010/2013/2016/2019文档的扩展名。其基于Office Open XML标准的压缩文件格式取代了其以前专有的默认文件格式，在传统的文件名扩展名后面添加了字母“x”（即“.docx”取代“.doc”、“.xlsx”取代“.xls”、“.pptx”取代“.ppt”）。
任何能够打开“.xlsx”文件的文字处理软件都可以将该文档转换为“.xls”文件，“.xlsx”文件比“.xls”文件所占用空间更小。
(9)excel文件后缀rng扩展阅读：
.xls和.xlsx的区别总结：
“.xls”是03版Office Microsoft Office Excel 工作表的格式，用03版Office，新建Excel默认保存的Excel文件格式的后缀是“.xls”；
“.xlsx”是07版Office Microsoft Office Excel 工作表的格式，用07版Office，新建Excel默认保存的的Excel文件格式后缀是“.xlsx”。
07版的Office Excel，能打开编辑07版（后缀“.xlsx”）的Excel文件，也能打开编辑03版（后缀“.xls”）的Excel文件，都不会出现乱码或者卡死的情况。
但是，03版的Office Excel，就只能打开编辑03版（后缀“.xls”）的Excel文件；如果打开编辑07版（后缀“.xlsx”）的Excel文件，则可能出现乱码或者开始能操作到最后就卡死。
“.xls”是一个特有的二进制格式，其核心结构是复合文档类型的结构，而“.xlsx”的核心结构是 XML 类型的结构，采用的是基于 XML 的压缩方式，使其占用的空间更小。“.xlsx”中最后一个 “x” 的意义就在于此。
未经允许不得转载：山九号 » excel文件后缀rng|EXCEL的文件扩展名是什么
