Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Линии в EXCEL / 8 сообщений из 8, страница 1 из 1
23.09.2008, 10:24
    #35553594
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Леди и джентльмены!
Я передаю данные в EXCEL:
Код: plaintext
1.
2.
3.
m.loExcel.Cells( 2 , 1 ).Value =cnВыраж1
m.loExcel.Cells(lnСтрока, 2 ).Value = cnВыраж2
m.loExcel.Cells(lnСтрока, 2 ).Value = cnВыраж3
.... ... ...
А как эту строку сделать, чтобы данная строка (каждая ячейка) была обрамлена линиями?
Благодарю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 10:41
    #35553652
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Так примерно
Код: plaintext
1.
2.
for i =  7  to  12 
	m.loExcel.Cells(lnСтрока, 2 ).Borders(i).LineStyle =  1 
endfor

Можно сразу диапазон ячеек (так быстрее)
Код: plaintext
1.
2.
for i =  7  to  12 
	m.loExcel.Range(m.loExcel.Cells( 1 , 1 ), m.loExcel.Cells( 10 , 10 )).Borders(i).LineStyle =  1 
endfor
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 11:26
    #35553808
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Да, спасибо! Все работает, вставила в свой код.
Только объясните, пожалуйста, значение переменной i, принимающей значение именно от 7 до 12. Я ставила строку без цикла, меняла значение i. Соответственно отображались разные линии.
Почему именно от 7 до 12?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 11:41
    #35553871
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
ЛисонькаПочему именно от 7 до 12?
Выведено опытным путем :)

Запускаешь в экселе макрорекордер (Сервис-Макрос-Начать запись), делаешь нужные действия, останавливаешь запись, жмешь Alt+F11 и смотришь код который он нагенерил (раздел "Modules")
В случае разлиновки что-то типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
    Range("D7:G15").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
...
Чтобы узнать значения экселевских констант (xlEdgeLeft, xlEdgeTop и т.д.) на них правой кнопкой и "Quick Info", вот и получилось что от 7 до 12
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 11:53
    #35553904
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Классно! )))))))))))))
А нет ли ссылочки, где можно было бы посмтотреть еще такие детали о передаче данных в EXCEL, как:размер и тип шрифта, его цвет и т.п. Или тоже можнов макрорекордере.
И еще. Никак не получается код обработки ошибки, когда пытаешься передать данные в EXCEL, а этот документ уже открыт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 12:06
    #35553939
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Лисонька Или тоже можнов макрорекордере.
Нужно в макрорекордере. Запускаешь запись, делаешь руками нужные тебе действия, останавливаешь, смотришь что он понаписал и переносишь код в фокс.

ЛисонькаИ еще. Никак не получается код обработки ошибки, когда пытаешься передать данные в EXCEL, а этот документ уже открыт.
Если VFP9 то TRY ... CATCH лучше всего

Я обычно делаю немного по другому. Сначала все во временный текстовый файл с разделителями табуляциями, потом его открываем в экселе, наводим красоту и сохраняем:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
	loEx = newobject("Excel.Application")
	with loEx
		.Workbooks.OpenText(fullpath(lcF),  2 ,  1 ,  1 , - 4142 , .F., .T., .F., .F., .F., .F.) && lcF имя текстового файла
... форматирование
		lcFile = '....xls'
		try
			if file(lcFile)
				delete File (lcFile)
			endif
			.ActiveWorkbook.SaveAs(lcFile, - 4143 )
			.ActiveWorkbook.Close()
			delete File (lcF)
		catch
			MessageBox('Не удалось сохранить в файл ' + lcFile)
			.Visible = .T.
		endtry
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 12:14
    #35553960
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Благодарю всех, всех, всех!

Елизавета Скрунскайте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2008, 13:09
    #35554118
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Линии в EXCEL
Перевод макроса Excel в синтаксис FoxPro
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Линии в EXCEL / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1587257]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 332ms
total:  480ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]