Одновременное открытие файлов в Excel и просто

[Sergey190]

У меня было как обычно
open filename for output as #5
print #5, ...
close #5

Это все работало

Потом т.к. мне надо писать еще в Excel файл добавил:

Dim wbook As Object
Dim wsheet As Object
Dim exl As New Excel.Application

open filename for output as #5

Set wbook = exl.Workbooks.Open(filname1)
Set wsheet = wbook.Worksheets("Лист1")
print #5, ...

wsheet.Cells(nostr, nstolb).Value = ....

close #5

set wsheet=Nothing
set wbook=Nothing

В результате выдается ошибка на открытие файла #5 ???
Не понимаю почему? Вроде слышал, что Excel забирает некоторые
номера файлов под себя. Пробовал вместо 5 другие числа - все по-прежнему

[A.A.Z.]

А если так:

Код: Выделить всё

Sub Sub1()
Dim Fr
Fr = FreeFile
Open FileName For Output As #Fr
DoSomethingWithExcel
Close #Fr
End Sub

[Sergey190]

Спасибл, так сработало