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

[Saoron-live]

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

 

[morpheus]

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

 

[Guest]

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

	With ws.Range( "область" )
With .Borders(xlEdgeBottom)	'Нижняя линию делает тонкой
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With

и т.д.