FilterOptions не работает в insertAtPosition

Автор Hasim, 16 июля 2013, 15:49

0 Пользователи и 1 гость просматривают эту тему.

Hasim

FilterOptions не работает в insertAtPosition, т.е. при импорте CSV файла в заданную область листа:
Sub Main2
   Dim oCellAddress as new com.sun.star.table.CellAddress
     
   With oCellAddress
      .Sheet = 0
      .Row = 5
      .Column = 3
   End With
 
   oUrl = convertToUrl("C:/00o/tst.csv")
   
   oDoc = ThisComponent
       
   oSource = "A1:I10"
   oFilterName = "Text - txt - csv (StarCalc)"
   oFilterOptions =  "44,34,34,1"
         
   oLinks = oDoc.AreaLinks
   oLinks.insertAtPosition (oCellAddress, oUrl, oSource, oFilterName, oFilterOptions)
End Sub

В частности, не распознается кодировка русских символов, в результате - кракозябры.

Просто импорт (линковкой) в начало листа работает без ошибок:
Sub Main3()
    oURL = ConvertToUrl("C:\00o\tst.csv")

   oDoc = thisComponent
   oSheet = oDoc.getSheets().getByIndex(0)

   oOrigem = ""
   oFilterName = "Text - txt - csv (StarCalc)"
   oFilterOptions =  "44,34,34,1"
   
   oMode = com.sun.star.sheet.SheetLinkMode.NORMAL
   oSheet.link(oURL, oOrigem, oFilterName, oFilterOptions, oMode)
   oSheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)
End Sub


Приложен файл с макросами и файл CSV.

Вопрос:
1) когда-нибудь это работало?
2) когда-нибудь будет работать?

PS. А то разработчики всё дурью маются с разными новыми панельками.

[вложение удалено Администратором]