| Вопрос: Перенос (экспорт) данных в VB | Добавлено: 04.12.07 08:55 |
Автор вопроса:  ANiM@L
|
|
Подскажите как правильно перенести данные из Vb6 в Excel с форматированием?
Dim objXL As Object Dim objWb As Object Dim objWs As Object Set objXL = CreateObject("Excel.Application") If objXL Is Nothing Then Exit Sub objXL.SheetsInNewWorkbook = 1 Set objWb = objXL.Workbooks.Add Set objWs = objWb.Worksheets(1) objXL.Visible = True With objWs For k = 0 To Srok_Cred For i = 0 To 7 .Cells(k + 1, i + 1) = gridGraph.TextArray(GetCellIndex(k, i)) Next i Next k .Range("A1:H1").Font.Bold = True .Rows("1:1").RowHeight = 26.3 .Columns("G:G").ColumnWidth = 13.43 .Columns("G:G").ColumnWidth = 17.43 .Columns("H:H").ColumnWidth = 14.14 .Columns("F:F").ColumnWidth = 10.57 .Columns("E:E").ColumnWidth = 10.57 .Columns("D:D").ColumnWidth = 8.86 .Rows("1:1").WrapText = True .Range("A1:H1").Borders(xlEdgeBottom).LineStyle = xlDouble Все работает нормально, но когда доходит до выполнения строки .Range("A1:H1").Borders(xlEdgeBottom).LineStyle = xlDouble, то выдает ошибку "Run-time error '1004' Application-defined or object-defined error". В чем я ошибся, подскажите пожалуйста. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #1 | Добавлено: 07.12.07 08:43 |
|
А ты константы то объявил?
xlEdgeBottom = 9 xlDouble = -4119 |
||
Страница: 1 |