Всем здравствуйте.
Кто в курсе, подскажите пожалуйста.
Access 2003. Создаю экселевский файл объект, пишу в него, закрываю.
А при открытии возникает предупреждение, что действительный формат файла отличается от указываемого его расширением имени файла.
Что это за фигня и как с ней бороться ?

  Dim xlApp As Object  'Excel.Application
  Dim xlBook As Object 'Excel.Workbook
  Dim xlSheet As Object 'Excel.Worksheet
  dim filename as string

  filename = "H:\каталог\" & "имяфайла" & ".xls"

  Set xlApp = CreateObject("Excel.Application")

  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlApp.ActiveSheet

'-------------------------------------------------------------------------------------
....
'-------------------------------------------------------------------------------------

  xlBook.SaveAs filename
  xlBook.Close
  xlApp.Quit

  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

http://www.sql.ru/forum/1283429/eksport-v-excel-deystvitelnyy-format-fayla-otlichaetsya-ot-ukazyvaemogo-ego-rasshireniem