| Вопрос: подскажите плиз почему не работает | Добавлено: 15.07.04 23:49 |
Автор вопроса:  Caxap
|
|
гдето нашол этот код для того чтобы добавлять из TextBoxа в Excel инфу
но он не работает выдает ошибку помогите плиз разобраться code Dim objExcel As Object Dim F_Path As String F_Path = App.Path & "A.xlm" Set objExcel = CreateObject("excel.application") objExcel.ActiveWorkbook.SaveAs FileName:=F_Path With objSheet1 Dim i1 As Integer i1 = 2 Do While objSheet1.Cells(i1, 1) <> "" .Cells(i1, 1) = Text1(0).Text .Cells(i1, 2) = Text1(1).Text .Cells(i1, 3) = Text1(2).Text i1 = i1 + 1 Loop End With objExcel.Quit /code выдает ошибку : Object variable or With block variable not set "91" Подскажите плиз в чем дело |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Ямаха Вопросов: 2 Ответов: 3 |
Профиль | | #1 | Добавлено: 16.07.04 07:16 |
| Ну так оно вроде бы ругается, что не знает че такое objSheet1 | ||
Страница: 1 |