一杯茶

vb 保存excel文件时覆盖原来的文件的替换方法：

在VB中用     xlapp.WorkBooks(1).SaveAs   “C:\a.xls”  
  保存文件时如果同名文件存在，当覆盖时会弹出一个对话框，问用户是否覆盖。  
  请问如何处理，是得对话框不出现，而是强行覆盖（当然此文件是未在使用的），因为如果用户点否是会出现一些错误。  
你在执行”xlapp.WorkBooks(1).SaveAs   “C:\a.xls”这个代码之前先判断这个路径下是否有这个文件.  
   
  if   dir(”C:\a.xls”)<>”"   then

   kill   “C:\a.xls” 
          msgbox   “这个文件已经存在”      
  else  
          msgbox   “这个文件不存在”  
  end   if  
   
  下面再执行xlapp.WorkBooks(1).SaveAs   “C:\a.xls”