Соединение Lotus Notes B Vba Openoffice

  • Автор темы Girenko Tatiana
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Girenko Tatiana

#1
Необходимо выгружать отчеты в OPEN OFFICE Обращение к ячейке есть, не могу только обрамить . И еще ошибки для установки шрифта Помогите
Код:
Set xlglob = CreateObject("com.sun.star.ServiceManager")	
Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
Dim mass()
FilePath = "private:factory/scalc"	
'	Set Document = CreateObject("com.sun.star.sheet.SpreadsheetDocument")
Set Document = Desktop.LoadComponentFromURL(FilePath, "_blank", 0, mass )
Set sheets = Document.getSheets()
Set xlWbk = sheets.getByIndex(0)	
xlWbk.getCellByPosition( numstolb,3).String="план"
xlWbk.getCellByPosition("
Next
Set crange	=xlwbk.GetCellRangeByName("d4:w32")
crange.CharFontName="Arial"
crange.CharFontWeight.Bold=True ' ошибка
crange.AutoFit=True
Exit Sub
 
A

allex

#2
А вот так ...

Код:
xlWbk.getCellRangeByName("A1:H1").HoriJustify=2			'2 - центрировать 3 - вправо
xlWbk.getCellRangeByName("A1:H1").charFontName = "Times New Roman" 
xlWbk.getCellRangeByName("A1:H1").CharHeight = 15
xlWbk.getCellRangeByName("A1:H1").CharPosture =0 		' наклонный шрифт 2, обычный 0
objCellCursor.CharWeight = 150	'bold
 

Xalet

Well-known member
08.08.2008
410
0
#3
Вот так получится с болдом, если оба кода соеденить =)

Код:
	Set xlglob = CreateObject("com.sun.star.ServiceManager")	
Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
Dim mass()
FilePath = "private:factory/scalc"	
Set Document = Desktop.LoadComponentFromURL(FilePath, "_blank", 0, mass )
Set sheets = Document.getSheets()
Set xlWbk = sheets.getByIndex(0)	
Set crange	=xlwbk.GetCellRangeByName("A1:D10")
crange.CharFontName="Arial"
crange.CharWeight = 150
правда тут уже много раз советовали забыть это апи и работать с ХМЛ
 

RAJ

Well-known member
17.01.2007
440
0
#4
код для обрамления ячеек
Код:
.....
Dim TableBorder As Variant, BorderLine As Variant
Set RG=ooSheet.getCellRangeByName("A" & Row & ":L" & Row+10)
Set TableBorder =ooServiceManager.Bridge_GetStruct("com.sun.star.table.TableBorder")
Set BorderLine = ooServiceManager.Bridge_GetStruct("com.sun.star.table.BorderLine")	
BorderLine.OuterLineWidth = 50 '0.5mm	 размерность 1/100mm
With TableBorder
.IsBottomLineValid 	= True '9
.IsTopLineValid 			= True '8
.IsLeftLineValid 			= True '7
.IsRightLineValid 		= True '10
.IsHorizontalLineValid = True' 11
.IsVerticalLineValid 	= True '12
End With
Set TableBorder.BottomLine 			= BorderLine
Set TableBorder.TopLine 				= BorderLine
Set TableBorder.LeftLine 				= BorderLine
Set TableBorder.RightLine 				= BorderLine
Set TableBorder.HorizontalLine 		= BorderLine
Set TableBorder.VerticalLine 			= BorderLine		
Set RG.TableBorder = TableBorder 
....
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 567
263
#5
xalet
не только советовали... :newconfus:
пример кода был (правда - др. задача решалась)
 
Статус
Закрыто для дальнейших ответов.