标签：xlsx

XLS文件怎么打开？4种操作系统下打开XLS文件的方法

XLS格式文件是微软97版和2003版的office Excel（也称为 表格）所创建的文件， Excel是微软办公office套件（包含Word、Excel、PPT）里面的一个程序，是使用最频繁的办公软件之一。

注意：XLS格式是一个较老的Excel文件格式，从Microsoft Office Excel 2007及以后的2010都是采用XLSX格式。不仅Excel如此，Word（由doc变成docx格式）、PPT（由ppt变成了pptx格式）的新老格式也是如此，新格式就是在老格式上加个“X”，如下所示：

微软Excel、PowerPoint、Word格式演变

微软Excel、PowerPoint、Word格式演变

我想说到这里您应该知道XLS文件怎么打开，您需要做的就是下载一个office办公软件即可，而且您的选择有很多，不仅仅是Windows系统还有苹果的Mac OS X、Linux、Android(安卓)这三款操作系统下也有一些软件了用来打开XLS文件。

WindowsWindows

Microsoft Office软件 Excel 2010 （也可直接下载Microsoft office，Excel就包含在内）
金山WPS（中国金山软件的免费办公套件）
OpenOffice.org（开源免费的跨平台办公套件）
Corel WordPerfect Office X6
Ability Office

mac苹果Mac OS X

Microsoft Excel 2011（Mac版）
OpenOffice.org

linuxLinux

OpenOffice.org（Linux系统下的最佳选择）

AndroidAndroid(安卓) 

Kingsoft Office for Android（中国金山软件办公套件的安卓版本）

上面所列的软件都是其官方网站链接以及获得官方认可的合法第三方链接，您可通过链接获取相应版本，对于收费版本网络上通常存在中文破解版、绿色版等资源，大家可根据具体情况选择。如果您对本文对XLS文件怎么打开这个疑问所做的相关解答有何意见或建议欢迎留言，我们一起探讨交流。

解决Excel在x.xlsx中发现不可读取的内容是否恢复此工作簿的内容

最近一段时间，在统计全县“两基”报表数据时不知道是什么原因excel突然出问题了，excel提示：excel 在”x.xlsx”中发现不可读取的内容，是否恢复此工作簿的内容？如果信任此工作簿的来源，请单击”是”。

但是点击“是”后里面的资料基本上已经没有了，只剩下几列数字，十分着急；想要修复，但是我从来没有见过这个问题，而且百度上且很多网友都遇到这个问题，但是都没有解决的办法。 后来看到一种办法，就试了下，结果问题解决了！（延伸：xlsx文件怎么打开？3种方法:Excel+WPS+兼容包来搞定）

基于目前很多网友都苦于这个问题，在此告知我的解决方法，希望能与大家共享：

  • 下载WPS 20周年纪念版(百度搜索下载)（WPS是国产office软件，完全兼容Excel）
  • 安装，在安装过程中记得最后有个选择doc、excel……之类的选项框。
  • 打开WPS文件，再通过“打开”选项打开原来的excel文件。
  • OK了！呵呵！

不过，原来的一些函数、公式、格式的可能会丢失。但相对一些原始数据的丢失，已经算不了什么了。

Excel提示”找不到D:\MY.XLSX”的解决办法(图文)

双击EXCEL打开一个XLS电子表格，弹出“找不到D:\MY.XLSX”文件名的拼写，并检查文件位置是否正确。如果您正试图从最近使用的文件列表中打开该文件，请确保该文件未被重命名、移动或删除。

延伸：xlsx文件怎么打开？3种方法:Excel+WPS+兼容包来搞定

难道真是文件名拼写不对？或者位置不正确？或者删除被移动？我的解决办法添加个%1就解决了。下面请看详细步骤：

excel提示找不到D:\MY.XLSX的解决办法

解决办法：“我的电脑-工具-文件夹选项”->文件类型，找到扩展名为XLS：

查找扩展名xls

查找扩展名xls

然后选择“高级”，“打开(O)”项进行“编辑(E)”

找不到D:\MY.XLSX

查看“用于执行操作的应用程序(L):”中，后面的%1用双引号(半角英文符号)括起来即可。

找不到D:\MY.XLSX

确定后，就可以解决问题了。

Excel VBA将一个目录下的所有xls文件批量转换为xlsx文件

Option Explicit

Sub xlsTOxlsx()
    Dim strFilePath As String, strFileName As String, strFileType As String
    Dim aIndex As Long, arrFileName() As String, strNewName As String

    '设置文件扩展名标识文件类型
    strFileType = ".xls"

    On Error Resume Next
    '设置文件夹路径
    strFilePath = CreateObject("shell.application").BrowseForFolder(0, "请选择文件夹", 0).self.Path
    If Err <> 0 Or InStr(1, strFilePath, "::") > 0 Then
        Err = 0
        Exit Sub
    End If

    '开始搜索文件
    strFileName = Dir(strFilePath & "*.*")
    Do While strFileName <> ""
        If LCase(Right(strFileName, Len(strFileType))) = LCase(strFileType) Then
            ReDim Preserve arrFileName(aIndex)
            arrFileName(aIndex) = strFileName
            aIndex = aIndex + 1
            'Debug.Print strFileName
        End If
        strFileName = Dir
        DoEvents
    Loop
    If aIndex = 0 Then Exit Sub

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For aIndex = LBound(arrFileName) To UBound(arrFileName)
        strNewName = Mid(arrFileName(aIndex), 1, Len(arrFileName(aIndex)) - Len(strFileType)) & ".xlsx"
        Workbooks.Open strFilePath & arrFileName(aIndex)
        ActiveWorkbook.SaveAs Filename:=strFilePath & strNewName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        Workbooks(strNewName).Close False  '关闭工作簿
        Kill strFilePath & arrFileName(aIndex)
        DoEvents
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "操作完成，共为您转换了 " & UBound(arrFileName) + 1 & " 个文件。", vbOKOnly, "完成"
End Sub

延伸：xlsx文件怎么打开？