Мне было поручено перенести устаревшее приложение для работы в Windows 10, которое мне почти удалось получить.Однако есть кнопка, которая экспортирует данные в файл Excel.При нажатии он выдает ошибку «Ошибка 3274, внешняя таблица не в ожидаемом формате», которая, по моему мнению, связана с тем, что определенная версия Excel неверна для установленной версии.Но я не могу понять, как это изменить.Отладка кода приводит меня к следующей строке:
Set xdbase = OpenDatabase(xfile, 0, 0, "Excel 5.0;")
Есть идеи?
Dim xdbase As Database
Dim xtable As TableDef
Dim xrecset As Recordset
Dim xfile As String
Set DB = OpenDatabase(dbpath)
'LOCALPATH added 26-2-08 so that it is possible to export to excel when other users have it open
LOCALPATH = "C:\HAFT"
xfile = LOCALPATH & "\dieinfo.xls"
If Dir(xfile) <> "" Then Kill xfile
Set xdbase = OpenDatabase(xfile, 0, 0, "Excel 5.0;")
Set xtable = xdbase.CreateTableDef("id")