要把 Excel 表格 xlsx 转换为 xls 格式，可以用以下两种方法：
方法一：
打开需要转换的 xlsx 文件。
点击 “文件” 选项卡，选择 “另存为”。
在 “另存为” 对话框中，选择 “Excel 97-2003 工作簿（*.xls）” 作为保存类型。
选择保存位置并输入文件名，然后点击 “保存”。
如果弹出提示框，询问是否要将工作簿的内容保存为 Excel 97-2003 格式，点击 “是”。
等待转换完成，关闭文件。
方法二：利用在线转换工具，如网易的在线转换，按提示步骤操作即可。
把 Word 表格转化为 Excel 格式，可按如下步骤操作：
打开 Word 文档，选中需要转换的表格。
按 Ctrl+C 组合键复制表格。
打开 Excel，选中要粘贴的位置。
点击 “开始” 选项卡中的 “粘贴” 按钮，在下拉菜单中选择 “选择性粘贴”。
在 “选择性粘贴” 对话框中，选择 “文本” 或 “Unicode 文本”，然后点击 “确定”。
此时，Word 表格中的数据将被粘贴到 Excel 中，并且每个单元格中的数据都将被视为文本。
要把 Word 表格转化成 Excel 且保留格式，可以按如下步骤操作：
打开 Word 文档，按 F12，将 “保存类型” 设置为 “单个文件网页”，点击 “保存”，关闭 Word 文档，此时 Word 文档就另存为网页了。
打开 Excel，将网页文件拖入 Excel 表格中，这样 Word 的表格就不变形地复制到 Excel 中了。
如果需要编辑 Excel 表格，将它设置为 Excel 的格式，按 F12，将 “保存类型” 设置为 “Excel 工作簿（.xlsx）”，点击 “保存” 即可。
将 Word 表格转换为 Excel 格式时要保留数据有效性比较复杂，可尝试以下方法：
一、先将 Word 表格复制到 Excel 中
打开 Word 文档，选中表格，按下 “Ctrl+C” 复制。
打开 Excel 工作表，选中要粘贴的起始单元格，按下 “Ctrl+V” 粘贴。此时表格已初步复制到 Excel 中，但数据有效性尚未保留。
二、手动重新设置数据有效性
如果在 Word 表格中的数据有效性规则较为简单，可以在 Excel 中手动重新设置。
选中需要设置数据有效性的单元格或区域。
在 Excel 的 “数据” 选项卡中，点击 “数据验证”（在一些旧版本中可能称为 “数据有效性”）。
在弹出的对话框中，根据在 Word 表格中的规则设置相应的条件，如允许的数值范围、文本长度、下拉列表内容等。
三、使用 VBA 编程（如果熟悉 VBA）
按下 “Alt+F11” 打开 VBA 编辑器。
在 VBA 编辑器中，插入一个模块，并编写代码来读取 Word 表格中的数据有效性规则，并在 Excel 中应用这些规则。但这需要较高的编程技能和对 Word 和 Excel 对象模型的了解。
以下是一个简单的示例代码，用于将 Word 表格中的数据复制到 Excel，并尝试保留部分数据有效性：
vb
复制
Sub CopyWordTableToExcel()
Dim wdApp As Object
Dim wdDoc As Object
Dim wdTable As Object
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim i As Long
Dim j As Long
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("C:\路径\你的 Word 文件名.docx") '请修改为实际的 Word 文档路径和文件名
Set wdTable = wdDoc.Tables(1) '假设要复制第一个表格
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)
'复制表格内容
For i = 1 To wdTable.Rows.Count
For j = 1 To wdTable.Columns.Count
xlWs.Cells(i, j).Value = wdTable.Cell(i, j).Range.Text
Next j
Next i
'尝试保留数据有效性（假设数据有效性是整数范围）
With xlWs.Range("A1:A10") '根据实际范围修改
.Validation.Delete
.Validation.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="1", Formula2:="10"
End With
wdDoc.Close False
wdApp.Quit
xlWb.SaveAs "C:\路径\Excel 文件名.xlsx" '请修改为实际的 Excel 文件保存路径和文件名
xlWb.Close False
xlApp.Quit
End Sub
请注意，上述代码仅为示例，实际应用中需要根据具体的 Word 文档和数据有效性规则进行调整。同时，在运行 VBA 代码前，最好备份你的文档以防止意外情况发生。