| |
|
|
| | Если у клиента везде стоят опенофисы, там же будет и моя программа с рантаймом .mdb
Есть ли шанс вести вывод информации в формате ___.xls .
Они потом где то это всё просматривают, где имеется Excel. | |
| |
| |
| |
|
|
| | опенфис легко открывает/сохраняет файлы в формате Excel, так что можно никуда не носить.
А вот удастся вывести в формат excel (во всяком случае до 2007) там где его нет, не получится, но не проверял, т.к. просто все переписал на вывод в OOCalc
http://hiprog.com/index.php?option=com_content&task=view&id=251661586 | |
| |
| |
| |
|
|
| | Если вывести в OOCalc - то Excel этот формат не понимает .....???
А то , что ты , Олег этм вплотную занимаешься и эту статью выложил - это я в курсе..... - спасибо. | |
| |
| |
| |
|
|
| | уже не занимаюсь :-)
если вывести OOCalc и сохранить в формате Excel - то оба смогут открыть
а если в формате ооо, то Excel открыть не сможет | |
| |
| |
| |
|
|
| | А для сохранения в формате .xls
достаточно только расширение поменять или это не так фсё просто.....? | |
| |
| |
| |
|
|
| | нет. Нужно сохранять в формате Excel. OOCalc умеет сохранять в разных форматах (PDF и XLS в их числе) | |
| |
| |
|
|
| |
|
|
| | Блин, приятно когда не в пустоту, а кому-то пригодилось.  | |
| |
| |
| |
|
|
| | Тока вот возник вопрос,
Слепо следовал примеру
Получил однако в нос
И в промежность от Гемеры......
cUrl = ConvertToUrl("c:\" + Sheet_Name + ".xls")
Call oBook.storeToURL(cUrl, aNoArgs)
'закрываем созданную книгу
Call oBook.Close(False)
|
Открыв в excel обнаружил - не тот формат.......  | |
| |
| |
| |
|
|
| | естественно, по умолчанию т.е. с aNoArgs, сохраняется в формате OOO
для сохранения в формате Excel нужно делать так:
cUrl = ConvertToUrl("c:\" + Sheet_Name + ".xls")
Set prop(0) = MakePropertyValue("FilterName", "MS Excel 97")
Call oBook.storeToURL(cUrl, prop)
|
| |
| |
| |
| |
|
|
| | Хорошо так и сделаем......
Я так понял - из всего списка ( MakePropertyValue ) отфильтровываем нужное ("FilterName", "MS Excel 97") и сохраняем .(oBook.storeToURL)............................. | |
| |
| |
| |
|
|
| | нет.
создаем свойство с именем FilterName и значением "MS Excel 97"
и это свойство используем при сохранении storeToURL | |
| |
| |
|
|
| |
|
|
| | А как объединить несколько ячеек?
Я вот попробовал в ООО создал макрос, но никак его прикрутить к Access не получается.
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$6:$D$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, Array())
end sub
|
| |
| |
| |
| |
|
|
| | нашёл пример , но ................
Sub CalcGroupingExample()
Dim oDoc As Object, oRange As Object, oSheet As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Sheet1")
' Parms are (left, top, right, bottom)
oRange = oSheet.getCellRangeByPosition(2, 1, 3, 2)
'Could also use COLUMNS
Call oSheet.Group(oRange.getRangeAddress(), com.sun.star.Table.TableOrientation.ROWS)
Print "I just grouped the range"
Call oSheet.unGroup(oRange.getRangeAddress(), com.sun.star.Table.TableOrientation.ROWS)
Print "I just ungrouped the range"
End Sub
|
| |
| |
| |
| |
|
|
| | чёта наклёвывается
Set oRange = oSheet.getCellRangeByPosition(i, 1, i, j)
'Set oRange = oSheet.getCellRangeByName(strRange)
oRange.Merge (True)
oRange.ParaAdjust = intParaAdjust
|
| |
| |
| |
| |
|
|
| | ооооооооооо Клюнуло:
Call oSheet.getCellByPosition(1, j).setString("Итого по реестру:")
Set oRange = oSheet.getCellRangeByPosition(1, j, 5, j)
'Set oRange = oSheet.getCellRangeByName(strRange)
oRange.Merge (True)
oRange.ParaAdjust = intParaAdjust
|
| |
| |
| |
