title: Could not find installable ISAM when importing Access table to Excel
body: <p>I have a module that imports an Access table to MS Office Excel. 
  This module has been implemented for almost 6 months and has worked well, but suddenly yesterday the module started giving an error message "External table is not in expected format"</p>
  
  <p>I've searched the answer through this site and found that for Excel 2007 I must use syntax "Excel 12.0" not "Excel 8.0". I changed my script and got a new error message:
  "Could not find installable ISAM" 
  (code below)</p>
  
  <p>Others information:
  I try to open the excel file created and got warning message:
  <br>"The file you are trying to open, 'bppdan.xls', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?"</p>
  
  <p>So... I decided to modify the code (shown below) and I'm not getting the error message "External table is not in expected format" nor "Could not find installable ISAM"
  I really want to know what cause that two error message</p>
  
  <p>I really need your help</p>
  
  <p><code>
      (In VB 6 Application)
      In menu: Project -> References, I checked the option "Microsoft Excel 12.0 Object Library"
  </code></p>
  
  <p>This code generate "External table is not in expected format"</p>
  
  <pre><code>
      Dim dbDest As Database
  
      FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
      If FName = False Then Exit Sub
      Set dbDest = OpenDatabase(FName, False, False, "Excel 8.0;HDR=NO;")
  </code></pre>
  
  <p>This code generate "Could not find installable ISAM"</p>
  
  <pre><code>
      Dim dbDest As Database
  
      FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
      If FName = False Then Exit Sub
      Set dbDest = OpenDatabase(FName, False, False, "Excel <b>12.0</b>;HDR=NO;")
  </code></pre>
  
  <p>I've modified the code:</p>
  
  <pre><code>
      Dim dbDest As Database
  
      FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
      If FName = False Then Exit Sub
      Set dbDest = OpenDatabase(<b>"C:\Users\administrator\Desktop\my.xls"</b>, False, False, "Excel 8.0;HDR=NO;")
  </code></pre>