| Вопрос: как создать и сохранить экселовский документ че... | Добавлено: 26.04.03 01:46 |
Автор вопроса:  Dimael | Web-сайт: pcnews.boom.ru | ICQ: 160511031 |
|
Необходимо создать документ экселовский для введения туда данных с ВБ формы Типа создаю Док с указанием места сохранения Заранее блогадорю! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Access Вопросов: 0 Ответов: 32 |
Web-сайт: Профиль | | #1 | Добавлено: 26.04.03 06:00 |
|
Примерно так: Private xlaCust As Object Private xlwCust As Object Private xlsCust As Object Private Sub xlsPrint() Set xlwCust = CreateObject("Excel.Sheet.8") Set xlsCust = xlwCust.ActiveSheet Set xlaCust = xlsCust.Parent.Parent 'xlaCust.Visible = True 'здесь что-то в него пишем xlsCust.cells(1, 1).Value = "111"'для примера xlwCust.SaveAs FileName:= _ "C:\name.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False xlsCust.Application.Quit Set xlaCust = Nothing Set xlwCust = Nothing Set xlsCust = Nothing End Sub Обязательно должна быть ссылка на Microsoft Exel8.0 object library (если конечно стоит 8 Exel), иначе не поймет констант. |
||
|
Номер ответа: 2 Автор ответа: DimaelICQ: 160511031 Вопросов: 18 Ответов: 40 |
Web-сайт: Профиль | | #2 | Добавлено: 26.04.03 13:21 |
|
Спасибки за ответ! Проверил усё работает Как внедрить тот код в окно Save? Что бы самому указывать место сохранения документа? Т е необходимо создать док и сохранить его через форму а затем вводить данный туда Private Sub comSave_Click() CommonDialog1.Save....... Необходимый код " " " End Sub Заранее блогадарю |
||
|
Номер ответа: 3 Автор ответа:  Padre  ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | | #3 | Добавлено: 27.04.03 01:25 |
|
Private Sub comSave_Click() dim xlaCust As Object dim xlwCust As Object dim xlsCust As Object dim Sub xlsPrint() dim fname as string CommonDialog1.ShowSave fname=CommonDialog1.filename Set xlwCust = CreateObject("Excel.Sheet.8") Set xlsCust = xlwCust.ActiveSheet Set xlaCust = xlsCust.Parent.Parent 'xlaCust.Visible = True 'здесь что-то в него пишем xlsCust.cells(1, 1).Value = "111"'для примера xlwCust.SaveAs FileName:= _ fname, FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False xlsCust.Application.Quit Set xlaCust = Nothing Set xlwCust = Nothing Set xlsCust = Nothing End Sub |
||
Страница: 1 |