Как сделать активной новую Книгу?

[Sergey112233]

Уважаемые форумчане.
Есть такой код:
1. Открыта Книга113
2. С помощью кода создаем новую книгу Книга1. Здесь она еще не сохранена на диске, а находится в памяти ПК.
3. В ячейку Книги1 вносим данные.
4. Сохраняем Книгу1 на диске.
5. Закрываем Книгу1.
6. Удаляем Книгу1 с диска.
7. Закрываем Excel, в котором была создана Книга1.

Подскажите, пожалуйста, два вопроса.
1. В пункте 2, где Книга1 еще не сохранена, есть ли возможность активации Книги113, затем активации Книги1. Т.е. здесь передача активации между книгами возможна.
2. Пункт7 - как закрыть Excel, в котором создавалась Книга1, а Книга113 оставалась бы открытой. Здесь, видимо, тот же вопрос активации.

Как Вы понимаете, действия с Книгой1 должны происходить в скрытом от пользователя режиме. Постоянно открыта только Книга113.

Sub Кнопка1_Щелкнуть()
Dim oExcel As New Excel.Application 'Запускаем Excel
oExcel.Visible = True 'Делаем его видимым
Dim oWbk As Excel.Workbook 'Создаем новую книгу Книга1
Set oWbk = oExcel.Workbooks.Add()
Dim oSheet As Excel.Worksheet
Set oSheet = oWbk.Worksheets.Item("Лист1") 'Находим Лист1
oSheet.Name = "Новый лист" 'Присваиваем ему имя "Новый лист"
Dim oRange As Range 'Находим диапазон A1 в Книга1
Set oRange = oSheet.Range("A1")
oRange.Value = "Данные" 'вносим в него данные
'сохраняем файл с новым названием в указанное место на диск
'методом SaveAs
oWbk.SaveAs "D:\Книга1.xls"
oWbk.Close 'закрываем файл Книга1
Kill "D:\Книга1.xls" 'удаляем файл Книга1 с диска
‘oWbk.Quit?????????
End Sub

[doober]

3. В ячейку Книги1 вносим данные.
4. Сохраняем Книгу1 на диске.
5. Закрываем Книгу1.
6. Удаляем Книгу1 с диска.
Где логика,если вы ее удаляете.
Какое предназначение Книги1.
Неужели для проведения каких то расчетов

[Sergey112233]

Из книги113 будут браться почтовые адреса.
Книга1 будет отправляться с внесенными данными по почте (как файл или в теле письма) Далее Книга1 будет не нужна.

[kuklp]

Не надо создавать новый экземпляр Экса.

Sub Кнопка1_Щелкнуть()
    Dim oWbk As Workbook    'Создаем новую книгу Книга1
    Set oWbk = Workbooks.Add()
    Dim oSheet As Worksheet
    Set oSheet = oWbk.Worksheets("Лист1")    'Находим Лист1
    oSheet.Name = "Новый лист"    'Присваиваем ему имя "Новый лист"
    Dim oRange As Range    'Находим диапазон A1 в Книга1
    Set oRange = oSheet.Range("A1")
    oRange.Value = "Данные"    'вносим в него данные
    'сохраняем файл с новым названием в указанное место на диск
    'методом SaveAs
    oWbk.SaveAs "D:\Книга1.xls"
    oWbk.Close    'закрываем файл Книга1
    Kill "D:\Книга1.xls"    'удаляем файл Книга1 с диска
End Sub

И активируйте какую надо(хотя тоже - зачем?).

[doober]

А если создавать скрытый лист в книге 123 заполнить его и отправить по почте,затем его удалить

[kuklp]

Серег, автор предполагает отправку через СDO, поэтому все равно лист придется сохранять. Хотя... не знаю, может и можно в кач-ве аттача указать лист. Не пробовал.

[Sergey112233]

Сделал так. Получается что oSheet.SaveAs "D:\Книга1.xls"
и oWbk.SaveAs "D:\Книга1.xls"
работают одинаково?

Sub Кнопка1_Щелкнуть()
Application.ScreenUpdating = False

Dim oWbk As Excel.Workbook 'Создаем новую книгу Книга1
Set oWbk = Workbooks.Add
Dim oSheet As Excel.Worksheet
Set oSheet = oWbk.Worksheets.Item("Лист1") 'Находим Лист1
oSheet.Name = "Новый лист" 'Присваиваем ему имя "Новый лист"
Dim oRange As Range 'Находим диапазон A1 в Книга1
Set oRange = oSheet.Range("A1")
oRange.Value = "Данные" 'вносим в него данные
'сохраняем файл с новым названием в указанное место на диск
'методом SaveAs
oSheet.SaveAs "D:\Книга1.xls"
oWbk.Close 'закрываем файл Книга1
Kill "D:\Книга1.xls" 'удаляем файл Книга1 с диска
Application.ScreenUpdating = True

End Sub

[doober]

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

Серег, автор предполагает отправку через СDO, поэтому все равно лист придется сохранять. Хотя... не знаю, может и можно в кач-ве аттача указать лист. Не пробовал.

Да я все понял Серёжа.
Лист делаешь видимым,сохраняешь как книгу и отправляешь.Это само собой подразумевается.Я бы так делал

[kuklp]

Я тоже делал так:-) Только не скрывал листы. Мне это незачем.

[Sergey112233]

Отправку надо сделать в фоновом режиме, чтобы не мешала основной работе.