| Вопрос: Форматирование ячеек | Добавлено: 07.02.06 14:28 |
Автор вопроса:  Николай_Син. | Web-сайт: - | ICQ: - |
|
Надо отформатировать ячейки из Access: просто объединить 3 ячейки и записать в них текст
For recCount = 1 To 3
objResultsSheet.Cells(FirstRow, 1).CopyFromRecordset_ rstStrings, MaxRows=StrNumber(recCount), MaxColumns=4 objResultsSheet.Range(Cells(StrNumber(recCount)+1,1),_ Cells(StrNumber(recCount) + 1, 3)).Merge objResultsSheet.Range(StrNumber(recCount) +_ 1,1).FormulaR1C1 = "Секретариат" FirstRow = FirstRow + StrNumber(recCount) + 1 Next Т.е. я выгружаю с Excel список сотрудников: по частям, между частьями в обеъд. ячейках надо указывать название отдела. В этом коде вторая строка выполняется, а дальше получаю Method 'Cells' of object '_Global' failed Что неправильно, наверно можно проще? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Николай_Син. ICQ: - Вопросов: 6 Ответов: 4 |
Web-сайт: Профиль | | #1 | Добавлено: 08.02.06 10:21 |
|
Все, подсказали: перед Cells тоже надо ставить objResultsSheet.,
где objResultsSheet = objXLBook.WorkSheets("Sheet1" 
|
||
Страница: 1 |