Вывод результата запроса в файл

[vladtr]

программно по нажатию кнопки формирую EXCEL файл :

DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, fname2, False

после создания файла смотрю, а в нем греческий алфавит. Не подскажите как сделать чтобы был русский. Офис русский, не знаю что установили, но слетел как-то, а и я не понял. Сам запрос смотрел показывает по русски.

[R Dmitry]

Сообщение от vladtr

программно по нажатию кнопки формирую EXCEL файл :

DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, fname2, False

после создания файла смотрю, а в нем греческий алфавит. Не подскажите как сделать чтобы был русский. Офис русский, не знаю что установили, но слетел как-то, а и я не понял. Сам запрос смотрел показывает по русски.

ну если не хотите переустановить офис, то можно загнать результаты запроса в рекордсет, затем переписать в массив и выплюнуть в excel
если так устроит, могу набросать пример

Дмитрий

[R Dmitry]

Sub importexcel()
Dim dba As Database
Dim rs As Recordset, strSql$, arr()
Dim app As Excel.Application
 Set dba = CurrentDb()
 strSql = "SELECT ..........* FROM .............;" ' ваш запрос
 
Set rs = dba.OpenRecordset(strSql)

 rs.MoveLast: rs.MoveFirst
 arr = rs.GetRows(rs.RecordCount)
 
 
Set app = New Excel.Application
app.Visible = True
app.Workbooks.Add
With app.ActiveWorkbook.Sheets(1)
.[a1].Resize(UBound(arr, 2), UBound(arr)) = app.Transpose(arr)

End With

End Sub

[vladtr]

Эта задача висела уже как 2 недели, опять здраво подумал, что может быть? Изменили настройки в самом ACCESS 2007. Залез в параметры и изменил шрифт по умолчанию и все заработало (был шрифт Calibri поставил Tahoma).

Спасибо за советы.