任何一张excel表打开时都提示无效索引

1. 任何一张excel表打开时都提示无效索引

打开excel，然后点击打开，选择文件后，在选择打开右下角的下箭头"修复打开"如果还是不行的话，就是文件损坏了。
或者是文件版本,建议用2007(或更高的版本)的EXCEL打开，也许能自动修复回文件里的资料。看下后缀名对不，如果高版本不能打开低版本的文件，建议装个最新版本的EXCEL软件。
或者中木马病毒了！有些木马病毒恶意修改文件名后缀，或者给文件加上密码！升级你的杀毒软件，全面杀杀毒，特别是木马病毒！excel文件的后缀是“.xls”杀毒完以后把文件名后缀改回来。 
解密方法：步骤一：打开Windows资源管理器。   步骤二：右键单击加密文件或文件夹，然后单击“属性”。   步骤三：在“常规”选项卡上，单击“高级”。   步骤四：清除“加密内容以便保护数据”复选框。 使用解密过程中要注意以下问题：   1.要打开“Windows资源管理器”，请单击“开始→程序→附件”，然后单击“Windows资源管理器”。   2.在对文件夹解密时，系统将询问是否要同时将文件夹内的所有文件和子文件夹解密。如果选择仅解密文件夹，则在要解密文件夹中的加密文件和子文件夹仍保持加密。但是，在已解密文件夹内创立的新文件和文件夹将不会被自动加密。

2. delphi动态创建Excel，出错，求解答

在编软件时，就安装2007，这样当程序编译时就可以发现，DELPHI的那些方法对2007没有作用，就尽量的不使用它，我看微软那办公软件2000就很好用了，软件交付用户时先约定EXCEL的版本，除了回避之外，你这问题没有办法解决，因为D和E不是一家的，E更新了，D还是原来的。另外导出到E，除了导数据外，尽量不要进行排版和字体样式操作，这样很慢，而且还会出现一系列方法不相容的问题。

3. Delphi给Excel添加保护报错

请将原代码
MsExcel.ActiveSheet.Protect(Password:='yjs',DrawingObjects:=True,Contents:=True,Scenarious:=True);
修改为：
MsExcel.ActiveSheet.Protect('yjs',True,True,True);

4. 关于Delphi7的Excel保存问题。

Excel := CreateOLEObject('Excel.Application');
Excel.WorkBooks.open(filename);
......
Excel.DisplayAlerts := false;  //不提示任何警告信息
Excel.ActiveWorkbook.Save; // 保存
Excel.Quit; //退出

5. delphi中导出Excel时出错，哪位大侠能帮忙解决一下啊

我有绝对不出问题的导出代码，加入工程并可直接调用其导出函数，如果需要，请告诉邮箱地址！

6. 导出数据到excel时提示无效的类别字符串!怎么办

可能原因与解决办法：
在数字的单元格列里输入了文本
默认判定此列为数字 所以文本没有导入进来，
如果确认需要是文本格式，修改这个字段儿的格式属性就可以了
要让两个表对应的字段属性一致。
如果上面步骤解决不了，最后解决的办法是使用完整安装版的office。

7. 我用delphi保存excel文件之后，不能正常打开，显示“您打开的文件格式与扩展名指定的格式不一致，。。。”

换一种另存方式就可以了，如下
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add;
....
ExcelApp.ActiveSheet.Saveas('xxx');
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
其中xxx不用带扩展名，系统中的Excel会为它加上相应版本的扩展名。是Excel2007就会加.xlsx

8. 谢谢你的指导 现还有一个问题 在DELPHI中操作EXCEL后进行保存，弹出消息框，如何不让消息框弹出，请写代码

procedure TForm1.btnExcelClick(Sender: TObject);
var ExcelApp: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := True;
  ExcelApp.Caption := '应用程序调用 Microsoft Excel';
  ExcelApp.WorkBooks.Open( 'e:\test\test.xls' );
  ExcelApp.WorkSheets['sheet1'].Activate;
  ExcelApp.Cells[1,4].Value := '第一行第四列';
  ExcelApp.ActiveWorkBook.save;
  ExcelApp.ActiveWorkBook.Saved := True;   //新加的,设置已经保存
  ExcelApp.Quit;
end;