ReSQL.ru
     
powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ActiveX - Excel - Форма
4 сообщений из 4, страница 1 из 1
ActiveX - Excel - Форма
    #39766561
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
Не могу найти хоть что-нибудь полезное и интересное про работу с Excel через ActiveX
Есть у кого опыт работы с этим?
...
Рейтинг: 0 / 0
29.01.2019, 14:48
| Ответить | Цитировать | Написать  
ActiveX - Excel - Форма
    #39766737
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Ищите по ключевым словам "OWC" или "SpreadSheet"

Вот, например, https://www.sql.ru/forum/701653-1/help-microsoft-office-spreadsheet-11-0

PS: Я сам с этим не работал. Как-то проще собственно Excel открыть :)
...
Рейтинг: 0 / 0
29.01.2019, 18:54
| Ответить | Цитировать | Написать  
ActiveX - Excel - Форма
    #39766837
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
ВладимирМ,
Посмотрел я этот объект SpreadSheet, не подходит он мне, я всё больше смотрю в сторону Excel Sheet 12, тут уже полноценный ексель на форме и уже у меня есть опыт работы с ним, но с некоторыми вещами я никак не могу разобраться, поэтому и ищу кого-нибудь, у кого есть опыт. К примеру как настроить масштабирование, чтобы лист полностью визуально был отобображён на форме, очень неудобный интерфейс и ничего не получается, данный туда выгрузить и отобразить могу и дальше я бы уже сам бы воевал, но вот как эту с... поместить ровненько в видимую часть, ну прям никак
...
Рейтинг: 0 / 0
30.01.2019, 08:31
| Ответить | Цитировать | Написать  
ActiveX - Excel - Форма
    #39767966
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AngelOKES
Участник
Почти победил я масштабирование, но всё таки никак не могу подобрать коэффициент правильно, может кто натолкнёт на умную мысль?

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
Lparameters lnColMax, lnRowMax
Graf1=Thisform.ole1.Object.Sheets(1)
*.PrintArea = Graf1.Cells(1, 1).Address + ":" + Graf1.Cells(iRowMax, iColMax).Address
With Graf1
	If Thisform.ColMax<>0
		lnCol=Thisform.ColMax
		lnRow=Thisform.ColRow
		.Range(.Cells(1,1),.Cells(1,lnCol)).BorderS(-4160).LineStyle = -4142
		.Range(.Cells(lnRow,1),.Cells(lnRow,lnCol)).BorderS(-4107).LineStyle = -4142
		.Range(.Cells(1,1),.Cells(lnRow,1)).BorderS(7).LineStyle = -4142
		.Range(.Cells(1,lnCol),.Cells(lnRow,lnCol)).BorderS(10).LineStyle = -4142
	Endif
	lnCol=lnColMax
	lnRow=lnRowMax
	With .PageSetup
		.PrintArea = "$A$1:$"+COLUMNxls(lnCol)+"$"+Allt(Str(lnRow))
		.Zoom = .F.
		.FitToPagesWide = 1
		.FitToPagesTall = 1
	Endwith
	With Thisform
		.lnWi=Thisform.ole1.Width/lnColMax/7.4
		.lnHe=Thisform.ole1.Height/lnRowMax/1.23
		.ColMax=lnCol
		.ColRow=lnRow
	Endwith
	.Range(.Cells(1,1),.Cells(1,lnCol)).BorderS(-4160).LineStyle = 1
	.Range(.Cells(1,1),.Cells(1,lnCol)).BorderS(-4160).Weight = 4
	.Range(.Cells(lnRow,1),.Cells(lnRow,lnCol)).BorderS(-4107).LineStyle = 1
	.Range(.Cells(lnRow,1),.Cells(lnRow,lnCol)).BorderS(-4107).Weight = 4
	.Range(.Cells(1,1),.Cells(lnRow,1)).BorderS(7).LineStyle = 1
	.Range(.Cells(1,1),.Cells(lnRow,1)).BorderS(7).Weight = 4
	.Range(.Cells(1,lnCol),.Cells(lnRow,lnCol)).BorderS(10).LineStyle = 1
	.Range(.Cells(1,lnCol),.Cells(lnRow,lnCol)).BorderS(10).Weight = 4
	For ii=1 To lnRowMax
		.Rows(ii).RowHeight=Thisform.lnHe
	Endfor
	For ii=1 To lnColMax
		.Columns(ii).ColumnWidth=Thisform.lnWi
	Endfor
Endwith



Вот эти строчки я тут повторю:

Код: sql
1.
2.
		.lnWi=Thisform.ole1.Width/lnColMax/7.4
		.lnHe=Thisform.ole1.Height/lnRowMax/1.23



Не знаю как побобрать правильно, в целом-то нормально всё работает, но хотелось бы чтобы было красиво
...
Рейтинг: 0 / 0
01.02.2019, 10:52
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ActiveX - Excel - Форма
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=8&tid=1581701]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 303ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


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