создание таблицы в экселе

  • Автор темы Saoron-live
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Saoron-live

Гость
#1
как создать таблицу в экселе после выгрузки данных
с разными по толщине границами!!!!
 

morpheus

скриптописец
07.08.2006
3 915
1
34
Украина, Киев
#2
Код:
Set EWindow = CreateObject("Excel.Application")  
Set WorkBooks=EWindow.Workbooks
WorkBooks.Add
Set ws=EWindow.Workbooks(1).Worksheets(1)	 
Call ws.Activate 
EWindow.visible=True
ws.Range( "область" ).Borders.LineStyle = 12
LineStyle это стиль линии (границы) . можно посмотреть и другие свойства Borders.

А вот и толщина Weight
Взято из справки MS Excel


This example sets the border weight for oval one on Sheet1.

Worksheets("Sheet1").Ovals(1).Border.Weight = xlMedium
 

Гость
#3
если взять твои Димы и Сеты то можно уже и из VBA вырезать и вставлять....

Код:
	With ws.Range( "область" )
With .Borders(xlEdgeBottom)	'Нижняя линию делает тонкой
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
и т.д.
 
Статус
Закрыто для дальнейших ответов.