我用VB读exdel文件的内容,方式如下:
'---open excel source worksheet
    Set xlbook = xlApp.Workbooks.Open(surDir & "\" & excelname(exceln))
    Set xlSheet = xlbook.Worksheets("Sheet1")
其中surDir表示源文件路径,excelname(exceln)表示源excel文件名数组。早先没有问题,但现在excel换成了2003版本,读的时候弹出对话框:
"do you want to save the changes to"
文件名
"Microsoft office Excel recalculates formulas when opening files last saved by an earlier version of excel."
怎样才能不弹出这个对话框,应为我这有n多个文件,一个一个点击对话框太麻烦。

解决方案 »

  1.   

    应该是你有的excel文件没有正确关闭,所以会弹出那个对话框
      

  2.   

    Application.DisplayAlerts = False
      

  3.   

    若果只是要读取EXCEL就以只读方式打开吧,这样就不会提示你存档了。Set xlbook = xlApp.Workbooks.Open(FileName:= surDir & "\" & excelname(exceln),ReadOnly:=True)
      

  4.   

    我用了RUKYO(蠢蠢的男子汉) 的方法,现在去试, 因为是给别人用的,至少要到明天才有答案,谢谢上面诸位,顺利的话,明天揭帖。
      

  5.   

    office 2003 的安全设置导至的