Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Вопрос про msgbox и присвоение переменной  [new]
ПочемучкаЯ
Guest
Привет всем гуру акксесса и ВБА!

Есть вопросец, никак не допереть, сильно не пинайте:)

Есть у нас скажем на форме кнопочка. Хочу при нажатии чтобы добавляла новый лист в существующую книгу экселя. Причем хочу чтобы выскакивало окошко в котором я смог написать имя нового листа.
Знаю как это делается с присвоением листа в коде:

Private Sub ДОБ_Click()
Dim xlApp As Excel.Application
Dim pivot As String
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Open ("C:\отчет2006.XLS")
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name = "февраль06"
.ActiveWorkbook.Save
.Quit
End With
Set xlApp = Nothing

End Sub


Ткните пжл. носом, куда, чего и как сделать чтоб сие чудо произошло (присвоить как-то переменную что ли...), чтобы вводить текст в окошке и .ActiveSheet.Name получал инфу исходя из указанного юзверем в диалоговом окне..
Спасибо!
13 мар 06, 17:55    [2443420]     Ответить | Цитировать Сообщить модератору
 Re: Вопрос про msgbox и присвоение переменной  [new]
LeonM
Member

Откуда: Bayern, Deutschland
Сообщений: 598
InputBox
13 мар 06, 18:07    [2443490]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить