Экспорт в Excel коряво работает

[Zhukov]

Подскажите:
при создании книги эксела, при экспорте из аксесса, происходит следующее: если открыты какие нибудь документы эксела, то прямо в эти документы вставляется экспортируемый текст - это плохо, как сделать так чтобы создавалась новая книга и не происходило ничего с открытыми додументами эксел.
Вот код сохранения в эксел

Private Sub btmExcel_Click()
Dim objExcel As Object, strNameFile As String


strNameFile = "C:\Temp_Access\" & Forms!works!id_station.Value _
& "_" & Forms!works!date_start.Value & ".xls"

Call allExcel

Set objExcel = CreateObject("Excel.Application")
Set objExcel = GetObject(strNameFile)
objExcel.Application.Visible = True
objExcel.Parent.Windows(1).Visible = True
objExcel.Application.WindowState = -4137

End Sub

Спасибо! [/syntax]

[uhm]

Убрать Set objExcel = GetObject(strNameFile)

Добавить после строки Set objExcel = CreateObject("Excel.Application")

Set xlBook=objExcel.Workbooks.Add

И еще лучше в начале объявить objExcel как Excel.Application, а не как Object, и добавить строку

Dim xlBook As Excel.Workbook

После этого работать с объектом xlBook - он будет указывать на новую созданную книгу.