Apache OpenOffice Community Forum

mauriciobaeza wrote:You can try with EasyDev: http://easydev.readthedocs.org/en/lates ... import-csv

Best regards

Villeroy wrote: Bullshit.

Villeroy wrote:Instead of providing any practicable solution you deliver spam for a questionable developers tool. This is the Calc forum. We have to assume that Kay67 is not interested in writing any program.

Villeroy wrote:Instead of providing any practicable solution you deliver spam for a questionable developers tool. This is the Calc forum. We have to assume that Kay67 is not interested in writing any program.

Kay67 wrote:I have a calc sheet that has specific headings and certain pre-populated cells. I have a csv file that needs to be imported into this sheet however it needs to be mapped to specific cells. Is there a simple way to do this?

1. Open the csv file in its own Calc.
2. Select the table you have obtained. Copy (Ctrl-C)
3. Open the final, formatted, document
4. Put the cursor at the upper-left corner of the position you want in the sheet.
5. Menu Edit > Paste Special...
   • check these : Text, Numbers, Date&Time.
   • OK.
6. Close the csv Calc. You don't need it anymore.

B Marcelly wrote:Much quicker to do than to explain.

Villeroy wrote: ↑Sun Feb 07, 2016 4:50 am Got "easydev" installed and created this Basic snippet:

Code: Select all

Sub Main
util = createUnoService("org.universolibre.EasyDev")
Dim Options(0) as new com.sun.star.beans.PropertyValue
options(0).Name = "delimiter"
options(0).Value = ";"

path = "/tmp/test/07022016.csv"
data = util.importCSV(path, options)
print fileexists(path), ubound(data)

' range = ThisComponent.Sheets(0).getCellRangeByPosition(0, uBound(data(0)), 0, uBound(data))
' range.setDataArray(data)
End Sub

The print statement reports that the given path exists but the data array is empty. The file has 8 lines of semicolon separated fields.
We have enough sloppy extensions.

Sub ImportCsv()
Dim doc As Object, address As Object, cell As Object
Dim util As Object, path As String, options, data As Object
util = createUnoService("org.universolibre.EasyDev")
address = createUnoStruct("org.universolibre.EasyDev.CellRangeAddress")
address.Doc = ThisComponent
address.Sheet = "CSV"
address.Name = "B2"
cell = util.getCell(address)
path = "d:/tmp/fruits.csv"
options = Array(Array("delimiter",","))
data = util.importCSV(path, options)
util.setData(cell,data)
End Sub

"1000","Apple","4","133"
"1001","Apricot","5","175"
"1002","Avocado","5","182"
"1003","Banana","5","187"
"1004","Bilberry","5","160"
"1005","Blackberry","4","178"
"1006","Blackcurrant","5","102"
"1007","Blueberry","6","156"
"1008","Currant","5","194"
"1009","Cherry","5","182"
"1010","Cherimoya","3","169"
"1011","Clementine","3","165"

Villeroy wrote: ↑Sun Dec 31, 2023 4:30 pm And all those values are text. Just try to sum them up.

"1000","Apple","4",133
"1001","Apricot","5",175
"1002","Avocado","5",182
"1003","Banana","5",187
"1004","Bilberry","5",160
"1005","Blackberry","4",178
"1006","Blackcurrant","5",102
"1007","Blueberry","6",156
"1008","Currant","5",194
"1009","Cherry","5",182
"1010","Cherimoya","3",169
"1011","Clementine","3",165

Sub CsvImport()
Dim doc As Object, address As Object, cell As Object
Dim util As Object, path As String, options, data As Variant, x As integer
util = createUnoService("org.universolibre.EasyDev")
address = createUnoStruct("org.universolibre.EasyDev.CellRangeAddress")
address.Doc = ThisComponent
address.Sheet = "CSV"
address.Name = "B2"
cell = util.getCell(address)
path = "d:/tmp/fruits.csv"
options = Array(Array("delimiter",","),Array("quoting",2))
data = util.importCSV(path, options)
for x = 0 to  Ubound(data)
   data(x)(0) =  Cint(data(x)(0)) ' convert data of column 0 string -> int
next x
util.setData(cell,data)
End Sub

Villeroy wrote: ↑Mon Jan 01, 2024 1:08 pm As a matter of fact, EasyDev imports wrong data. You need to add a post-processing routine.