1. excel数据丢失换一台电脑能打开吗

excel文件丢失恢复步骤：

1、随意打开一张EXCEL表格，单击左上角“文件”。

2、接下来点击“选项”进入EXCEL选项工具栏。

3、在选项栏中选择“保存”。

4、右边就会显示自动恢复文件位置。

5、复制文件位置。

6、打开我的电脑，并在地址栏粘贴刚刚复制的位置，然后按回车键就会显示丢失的文件夹。

7、找到自己需要恢复的文件夹，比如说新建工作表，打开后就会显示未保存的文件。

8、双击打开工作表，这就找到我们需要恢复的文件了。

2. 为什么excel在另一台电脑打不开

由于无法看到实例，所以只能原则上回答一下。

1、可以考虑尝试在配置较高的电脑上打开-固态硬盘、8G以上内存、I5以上处理器等等

2、可以尝试使用VBA删除工作簿中的公式

3、可以尝试使用其他工具打开工作簿，例如excel的power系列插件，例如powerbi，例如其他数据库编辑、查看软件等等。

3. excel文件换台电脑打不开

楼主你好，首先你检测一下你的word是否正常，方法是：点开始，再点运行，输入winword /safe（注意，/前面有一个空格），看看是否能打开word，如果可以，那么word是正常的，没有问题。那么楼主打不开word可能是通用模板的问题了，通用模板的具体路径为：C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates，把这个文件夹下的内容全部彻底删除，然后再去打开word，它会自动生成一个默认的通用模板，问题应该就能解决了！

4. 电脑重置后excel没了

1、在电脑中找到WPS office个人版，点击进入。

2、点击右上角的设置按钮，唤出设置选项栏，点击修复和配置工具。

3、在弹出的窗口点击开始修复，等待WPS修复完成。

4、若修复完后WPS公式还是没有显示，点击下方的高级，进入到高级设置界面。

5、点击上方的重置修复，点击重置插件和重置工具栏，等待重置完成即可。

5. excel重新打开数据丢弃

你执行分列时会提示你是否覆盖后面的数据，你选择不覆盖就行了。

6. excel保存后重新打开数据丢失了怎么办

在excel中，做好的表格保存好后重新打开，格式全部没有了的原因是保存格式问题，具体步骤如下：我们需要准备的材料分别是：电脑、Excel表格。

1、首先我们打开需要编辑的Excel表格，点击打开文件中的“选项”。

2、然后我们在弹出来的窗口中点击打开“保存”。

3、然后我们在弹出来的窗口中点击打开“将文件保存为此格式”，选择“Excel工作薄”，之后回车确定即可。

7. excel再次打开数据丢失

原因分析：Excel文件在使用过程当中一般都不会发生丢失，除非由于某些问题导致Excel文件崩溃。这种问题的可能性很多，目前来说，如果要打开的文件非常大，而且打开的过程当中又进行了其他的操作，就会出现崩溃的可能。而这种Excel程序的崩溃，在部分情况下又会导致直接的文件丢失。

解决办法：

1、先下载一个数据恢复软件（比如“迅龙”）；

2、打开“迅龙”，选择进入到一个指定的扫描方式当中（这样的好处是可以尽快的实现扫描）。扫描结束后，将找回的Excel文件转移（恢复）即可。

需要注意的几点：

1、如果Excel上的文件内容之前已经保存的话，那么这一次恢复出来的数据就是最后一次保存的数据。如果Excel文件本身较大，尤其是含有大量的图片资源的话，那么恢复所需的时间或许会比较长。如果仅仅只是文字内容，那么恢复的时间会相对较短。

2、有不少用户可能认为，Excel文件丢失，只要去回收站找就可以了，其实很多时候Excel一旦崩溃的话，这些“消失”的文件是不在回收站里的。因此，要找回它们，重点还是在于数据恢复工具的使用。至于其它的数据恢复工具，在使用上几乎都大同小异，操作难度也不大，这里就不再赘述了。

8. excel老自己丢数据

用access自动获取excel里的数据的方法就是通过代码的方式导入。如果是对手动导入比较清楚的话，这个实现起来不难。请参考下面的介绍来实现：首先，新建一个工程，在工程中引用如下对象ADO对象（用于连接ACCESS数据库，可用其它方式） 添加一个窗体（from1），在窗体上添加如下控件： 两个文本框，用来显示EXCEL文件路径和ACCESS路径； 四个扭钮，两个用来游览，另两个是导入和退出； 两个通用对话框控件，用来打开ACCESS和EXCEL文件，一个进度条控件，用来显示导入进程。 该实例的导入是将ACCESS数据库中表的字段名单独存放在另外一个表中,导入时按表中所存字段名的顺序进行导入,不是按EXCEL表的顺序导入,请大家注意.这样在实际中是很实用的.因为好多时候EXCEL表中字段顺序和ACCESS中字段顺序有可能不是一致的.代码如下：Dim vOption ExplicitPrivate Sub cmdLoad_Click()Dim excel_app As ObjectDim excel_sheet As ObjectIf txtExcelFile.Text = "" ThenMsgBox "请选择EXCEL表"ElseDim new_value As StringLabel2.Caption = "正在导入,请稍候..." Screen.MousePointer = vbHourglass DoEvents '' Create the Excel application. Set excel_app = CreateObject("Excel.Application") '' Uncomment this line to make Excel visible. excel_app.Visible = True '' Open the Excel spreadsheet. excel_app.Workbooks.open FileName:=txtExcelFile.Text '' Check for later versions. If Val(excel_app.Application.Version) >= 8 Then Set excel_sheet = excel_app.ActiveSheet Else Set excel_sheet = excel_app End If Dim u ''求EXCEL表中记录的条数,以便控制进度条u = 1Do If Trim$(excel_sheet.Cells(u, 1)) = "" Then Exit Do u = u + 1 Loop bar.Max = u - 1 strSQL = "select * from TestValues" yourRecord.open strSQL, myConn, adOpenDynamic, adLockOptimistic ''打开记录集 Dim sql As String sql = "select * from fields order by xue" myRecord.open sql, myConn, adOpenDynamic, adLockBatchOptimistic ''打开字段记录集 myRecord.MoveFirst '' Get data from the Excel spreadsheet and insert '' it into the TestValues table.Dim v ''导入记录,用了两层循环 v = 1 Do If Trim$(excel_sheet.Cells(v, 1)) = "" Then Exit Do ''外层,如果EXCEL表中读取到空行,结束yourRecord.AddNew Dim i For i = 1 To myRecord.RecordCount '' Get the next value. new_value = Trim$(excel_sheet.Cells(v, i)) '' See if it''s blank. ''If Len(new_value) = 0 Then Exit Do '' Insert the value into the database.Dim bb As String bb = myRecord("name") yourRecord(bb) = new_value myRecord.MoveNext Next i bar.Value = v v = v + 1 myRecord.MoveFirst Loop yourRecord.Update '' Comment the rest of the lines to keep '' Excel running so you can see it. '' Close the workbook without saving. excel_app.ActiveWorkbook.Close False '' Close Excel. excel_app.Quit Set excel_sheet = Nothing Set excel_app = Nothing myRecord.CloseyourRecord.CloseSet myRecord = NothingSet yourRecord = NothingLabel2.Caption = "导入完毕" Screen.MousePointer = vbDefault MsgBox "共导入" & Format$(v - 1) & "条记录" End If End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click(Index As Integer)''寻找ACCESS数据库CommonDialog1.Filter = "ACCESS 文件(*.mdb)|*.mdb"CommonDialog1.CancelError = TrueCommonDialog1.ShowOpentxtAccessFile.Text = CommonDialog1.FileNameEnd SubPrivate Sub Command3_Click()''寻找excel数据库CommonDialog2.Filter = "excel 文件(*.xls)|*.xls"CommonDialog2.CancelError = TrueCommonDialog2.ShowOpentxtExcelFile.Text = CommonDialog2.FileNameEnd SubPrivate Sub Form_Load()Call Module1.lianjietxtAccessFile.Text = datapath End Sub模块（module1）中的代码如下：Public myConn As New ADODB.Connection ''定义连接字符串Public myRecord As New ADODB.Recordset ''定义记录集(字段)Public yourRecord As New ADODB.Recordset ''定义记录集(数据)Public cntoad As Boolean ''是否正常连接Public ml ''姓名字段所在列Public strSQL ''查询字符串Public MyDatabase As Database ''定义数据库名Public MyTable As TableDef, MyField As Field ''定义表名和字段名Public xuehao ''读取字段序号Public goshiRecord As New ADODB.Recordset ''定义记录集(公式)Public hxfyn As BooleanPublic hxfbds '' 公式或条件Public duan ''要统计的字段Public islinshi As Boolean ''是否为临时公式Public leiRecord As New ADODB.Recordset ''定义记录集(工资类别)Public datapath As String ''数据库路径及名Public table As String ''工资表名Public lei As String '' 工资类别Public Sub lianjie() ''打开数据库On Error Resume NextmyConn.CloseDim mySQL As String ''设定连接字符串 mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" mySQL = mySQL + "Data Source=" & datapath myConn.ConnectionString = mySQL ''设定连接 myConn.open ''打开连接 myRecord.ActiveConnection = myConn ''设定RecordSeet的连接对象为Connection myRecord.CursorLocation = adUseClientgoshiRecord.ActiveConnection = myConn ''设定RecordSeet的连接对象为ConnectiongoshiRecord.CursorLocation = adUseClient yourRecord.ActiveConnection = myConn ''设定RecordSeet的连接对象为Connection yourRecord.CursorLocation = adUseClientEnd Sub