Text Datei per Makro nach Calc importieren

[abuayyoub]

Hallo, brauche was ähnliches, statt spalte ausblenden als text wiedergeben. Hoffe das mir jemand helfen kann.



Moderation:
Thema Nur bestimmte Spalten/Zeilen aus CSV öffnen geteilt und von OOo Calc nach OOo Basic und Java verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Moderator

[F3K Total]

Schau,
du hast bisher keine Antwort bekommen, weil ein funktionierendes Makro vom Aufbau der .csv Datei abhängt. Die Filterkriterien müssen angepasst werden. Entweder du zeichnest sie beim Exportieren mit dem Makro Recorder auf, oder du lädst hier ein Beispieldokument hoch.
Hier wäre z.B ein Makro, was mit der angehängten .csv bei mir unter W7 mit AOO 4.0.1. funktioniert und die Spalte A als Text einliest:

Code: Alles auswählen

    Sub S_load_CSV_keep_named_Columns
        aColumns = Array("A")
        Dim Args(1) as New com.sun.star.beans.PropertyValue
        sURL = F_get_Url  '<------ Dateipfad
        Args(0).Name = "FilterName"
        Args(0).Value ="Text - txt - csv (StarCalc)"
        Args(1).Name = "FilterOptions"
        Args(1).Value = "44,34,ANSI,1,,0,true,true,true" '<---- hängt von der Art der .csv-Datei ab
        odoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Args())
        osheet = odoc.sheets(0)
        ocursor = osheet.createCursor
        ocursor.gotoendofusedArea(false)
        nMaxcolumn = ocursor.rangeaddress.endcolumn
        for i = nMaxcolumn to 0 step -1
           bfound = false
           for k = 0 to ubound(aColumns)
              if osheet.columns.getbyIndex(i).name = aColumns(k) then bfound = true
           next k
           if bfound = false Then osheet.columns.removeByIndex( i, 1)
        next i
    End Sub

    function F_get_Url as string
        oDialog = createunoservice("com.sun.star.ui.dialogs.FilePicker")
        oDialog.appendFilter("Quelldatei","*.csv")
        oDialog.displaydirectory="c:\"
        if odialog.execute = 0 then
        exit function
        endif
        F_get_Url = oDialog.Files(0)
    end function

Gruß R

[abuayyoub]

Hallo und Danke für die Anwort,

hier mein Code bis jetzt

Code: Alles auswählen

REM  *****  BASIC  *****
sub mein makro
Dim Args(2) as New com.sun.star.beans.PropertyValue
sURL = converttourl("meine.csv") '    <------ Dateipfad der zu ladenden Datei
args(1).Name = "FilterName"
args(1).Value = "Text - txt - csv (StarCalc)"
args(2).Name = "FilterOptions"
args(2).Value = "59,34,76,1,,0,false,true,true"
odoc = StarDesktop.loadComponentFromURL(sURL,"_blank", 0, Args)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:TextToColumns", "", 0, Array())
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(17) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 0
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 65552
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = "Kleine Haushaltsgeräte"
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = "Haushaltsgeräte"
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1024
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(17) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SearchItem.StyleFamily"
args2(0).Value = 2
args2(1).Name = "SearchItem.CellType"
args2(1).Value = 0
args2(2).Name = "SearchItem.RowDirection"
args2(2).Value = true
args2(3).Name = "SearchItem.AllTables"
args2(3).Value = false
args2(4).Name = "SearchItem.Backward"
args2(4).Value = false
args2(5).Name = "SearchItem.Pattern"
args2(5).Value = false
args2(6).Name = "SearchItem.Content"
args2(6).Value = false
args2(7).Name = "SearchItem.AsianOptions"
args2(7).Value = false
args2(8).Name = "SearchItem.AlgorithmType"
args2(8).Value = 0
args2(9).Name = "SearchItem.SearchFlags"
args2(9).Value = 65552
args2(10).Name = "SearchItem.SearchString"
args2(10).Value = "FOTO"
args2(11).Name = "SearchItem.ReplaceString"
args2(11).Value = "Foto Camcorder"
args2(12).Name = "SearchItem.Locale"
args2(12).Value = 255
args2(13).Name = "SearchItem.ChangedChars"
args2(13).Value = 2
args2(14).Name = "SearchItem.DeletedChars"
args2(14).Value = 2
args2(15).Name = "SearchItem.InsertedChars"
args2(15).Value = 2
args2(16).Name = "SearchItem.TransliterateFlags"
args2(16).Value = 1024
args2(17).Name = "SearchItem.Command"
args2(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(17) as new com.sun.star.beans.PropertyValue
args3(0).Name = "SearchItem.StyleFamily"
args3(0).Value = 2
args3(1).Name = "SearchItem.CellType"
args3(1).Value = 0
args3(2).Name = "SearchItem.RowDirection"
args3(2).Value = true
args3(3).Name = "SearchItem.AllTables"
args3(3).Value = false
args3(4).Name = "SearchItem.Backward"
args3(4).Value = false
args3(5).Name = "SearchItem.Pattern"
args3(5).Value = false
args3(6).Name = "SearchItem.Content"
args3(6).Value = false
args3(7).Name = "SearchItem.AsianOptions"
args3(7).Value = false
args3(8).Name = "SearchItem.AlgorithmType"
args3(8).Value = 0
args3(9).Name = "SearchItem.SearchFlags"
args3(9).Value = 65552
args3(10).Name = "SearchItem.SearchString"
args3(10).Value = "CAMCORDER"
args3(11).Name = "SearchItem.ReplaceString"
args3(11).Value = "Foto Camcorder"
args3(12).Name = "SearchItem.Locale"
args3(12).Value = 255
args3(13).Name = "SearchItem.ChangedChars"
args3(13).Value = 2
args3(14).Name = "SearchItem.DeletedChars"
args3(14).Value = 2
args3(15).Name = "SearchItem.InsertedChars"
args3(15).Value = 2
args3(16).Name = "SearchItem.TransliterateFlags"
args3(16).Value = 1024
args3(17).Name = "SearchItem.Command"
args3(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(17) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.Backward"
args4(4).Value = false
args4(5).Name = "SearchItem.Pattern"
args4(5).Value = false
args4(6).Name = "SearchItem.Content"
args4(6).Value = false
args4(7).Name = "SearchItem.AsianOptions"
args4(7).Value = false
args4(8).Name = "SearchItem.AlgorithmType"
args4(8).Value = 0
args4(9).Name = "SearchItem.SearchFlags"
args4(9).Value = 65552
args4(10).Name = "SearchItem.SearchString"
args4(10).Value = "COMPUTER"
args4(11).Name = "SearchItem.ReplaceString"
args4(11).Value = "Computer & Büro"
args4(12).Name = "SearchItem.Locale"
args4(12).Value = 255
args4(13).Name = "SearchItem.ChangedChars"
args4(13).Value = 2
args4(14).Name = "SearchItem.DeletedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.InsertedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.TransliterateFlags"
args4(16).Value = 1024
args4(17).Name = "SearchItem.Command"
args4(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(17) as new com.sun.star.beans.PropertyValue
args5(0).Name = "SearchItem.StyleFamily"
args5(0).Value = 2
args5(1).Name = "SearchItem.CellType"
args5(1).Value = 0
args5(2).Name = "SearchItem.RowDirection"
args5(2).Value = true
args5(3).Name = "SearchItem.AllTables"
args5(3).Value = false
args5(4).Name = "SearchItem.Backward"
args5(4).Value = false
args5(5).Name = "SearchItem.Pattern"
args5(5).Value = false
args5(6).Name = "SearchItem.Content"
args5(6).Value = false
args5(7).Name = "SearchItem.AsianOptions"
args5(7).Value = false
args5(8).Name = "SearchItem.AlgorithmType"
args5(8).Value = 0
args5(9).Name = "SearchItem.SearchFlags"
args5(9).Value = 65552
args5(10).Name = "SearchItem.SearchString"
args5(10).Value = "VERBRAUCHSMATERIALIEN"
args5(11).Name = "SearchItem.ReplaceString"
args5(11).Value = "Computer & Büro"
args5(12).Name = "SearchItem.Locale"
args5(12).Value = 255
args5(13).Name = "SearchItem.ChangedChars"
args5(13).Value = 2
args5(14).Name = "SearchItem.DeletedChars"
args5(14).Value = 2
args5(15).Name = "SearchItem.InsertedChars"
args5(15).Value = 2
args5(16).Name = "SearchItem.TransliterateFlags"
args5(16).Value = 1024
args5(17).Name = "SearchItem.Command"
args5(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(17) as new com.sun.star.beans.PropertyValue
args6(0).Name = "SearchItem.StyleFamily"
args6(0).Value = 2
args6(1).Name = "SearchItem.CellType"
args6(1).Value = 0
args6(2).Name = "SearchItem.RowDirection"
args6(2).Value = true
args6(3).Name = "SearchItem.AllTables"
args6(3).Value = false
args6(4).Name = "SearchItem.Backward"
args6(4).Value = false
args6(5).Name = "SearchItem.Pattern"
args6(5).Value = false
args6(6).Name = "SearchItem.Content"
args6(6).Value = false
args6(7).Name = "SearchItem.AsianOptions"
args6(7).Value = false
args6(8).Name = "SearchItem.AlgorithmType"
args6(8).Value = 0
args6(9).Name = "SearchItem.SearchFlags"
args6(9).Value = 65552
args6(10).Name = "SearchItem.SearchString"
args6(10).Value = "NAVIGATIONSSYSTEME"
args6(11).Name = "SearchItem.ReplaceString"
args6(11).Value = "Navi & Telefon"
args6(12).Name = "SearchItem.Locale"
args6(12).Value = 255
args6(13).Name = "SearchItem.ChangedChars"
args6(13).Value = 2
args6(14).Name = "SearchItem.DeletedChars"
args6(14).Value = 2
args6(15).Name = "SearchItem.InsertedChars"
args6(15).Value = 2
args6(16).Name = "SearchItem.TransliterateFlags"
args6(16).Value = 1024
args6(17).Name = "SearchItem.Command"
args6(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(17) as new com.sun.star.beans.PropertyValue
args7(0).Name = "SearchItem.StyleFamily"
args7(0).Value = 2
args7(1).Name = "SearchItem.CellType"
args7(1).Value = 0
args7(2).Name = "SearchItem.RowDirection"
args7(2).Value = true
args7(3).Name = "SearchItem.AllTables"
args7(3).Value = false
args7(4).Name = "SearchItem.Backward"
args7(4).Value = false
args7(5).Name = "SearchItem.Pattern"
args7(5).Value = false
args7(6).Name = "SearchItem.Content"
args7(6).Value = false
args7(7).Name = "SearchItem.AsianOptions"
args7(7).Value = false
args7(8).Name = "SearchItem.AlgorithmType"
args7(8).Value = 0
args7(9).Name = "SearchItem.SearchFlags"
args7(9).Value = 65552
args7(10).Name = "SearchItem.SearchString"
args7(10).Value = "TELEKOMMUNIKATION"
args7(11).Name = "SearchItem.ReplaceString"
args7(11).Value = "Navi & Telefon"
args7(12).Name = "SearchItem.Locale"
args7(12).Value = 255
args7(13).Name = "SearchItem.ChangedChars"
args7(13).Value = 2
args7(14).Name = "SearchItem.DeletedChars"
args7(14).Value = 2
args7(15).Name = "SearchItem.InsertedChars"
args7(15).Value = 2
args7(16).Name = "SearchItem.TransliterateFlags"
args7(16).Value = 1024
args7(17).Name = "SearchItem.Command"
args7(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(17) as new com.sun.star.beans.PropertyValue
args8(0).Name = "SearchItem.StyleFamily"
args8(0).Value = 2
args8(1).Name = "SearchItem.CellType"
args8(1).Value = 0
args8(2).Name = "SearchItem.RowDirection"
args8(2).Value = true
args8(3).Name = "SearchItem.AllTables"
args8(3).Value = false
args8(4).Name = "SearchItem.Backward"
args8(4).Value = false
args8(5).Name = "SearchItem.Pattern"
args8(5).Value = false
args8(6).Name = "SearchItem.Content"
args8(6).Value = false
args8(7).Name = "SearchItem.AsianOptions"
args8(7).Value = false
args8(8).Name = "SearchItem.AlgorithmType"
args8(8).Value = 0
args8(9).Name = "SearchItem.SearchFlags"
args8(9).Value = 65552
args8(10).Name = "SearchItem.SearchString"
args8(10).Value = "TV VIDEO"
args8(11).Name = "SearchItem.ReplaceString"
args8(11).Value = "TV Video"
args8(12).Name = "SearchItem.Locale"
args8(12).Value = 255
args8(13).Name = "SearchItem.ChangedChars"
args8(13).Value = 2
args8(14).Name = "SearchItem.DeletedChars"
args8(14).Value = 2
args8(15).Name = "SearchItem.InsertedChars"
args8(15).Value = 2
args8(16).Name = "SearchItem.TransliterateFlags"
args8(16).Value = 1024
args8(17).Name = "SearchItem.Command"
args8(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(17) as new com.sun.star.beans.PropertyValue
args9(0).Name = "SearchItem.StyleFamily"
args9(0).Value = 2
args9(1).Name = "SearchItem.CellType"
args9(1).Value = 0
args9(2).Name = "SearchItem.RowDirection"
args9(2).Value = true
args9(3).Name = "SearchItem.AllTables"
args9(3).Value = false
args9(4).Name = "SearchItem.Backward"
args9(4).Value = false
args9(5).Name = "SearchItem.Pattern"
args9(5).Value = false
args9(6).Name = "SearchItem.Content"
args9(6).Value = false
args9(7).Name = "SearchItem.AsianOptions"
args9(7).Value = false
args9(8).Name = "SearchItem.AlgorithmType"
args9(8).Value = 0
args9(9).Name = "SearchItem.SearchFlags"
args9(9).Value = 65552
args9(10).Name = "SearchItem.SearchString"
args9(10).Value = "SOUND"
args9(11).Name = "SearchItem.ReplaceString"
args9(11).Value = "Sound"
args9(12).Name = "SearchItem.Locale"
args9(12).Value = 255
args9(13).Name = "SearchItem.ChangedChars"
args9(13).Value = 2
args9(14).Name = "SearchItem.DeletedChars"
args9(14).Value = 2
args9(15).Name = "SearchItem.InsertedChars"
args9(15).Value = 2
args9(16).Name = "SearchItem.TransliterateFlags"
args9(16).Value = 1024
args9(17).Name = "SearchItem.Command"
args9(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(17) as new com.sun.star.beans.PropertyValue
args10(0).Name = "SearchItem.StyleFamily"
args10(0).Value = 2
args10(1).Name = "SearchItem.CellType"
args10(1).Value = 0
args10(2).Name = "SearchItem.RowDirection"
args10(2).Value = true
args10(3).Name = "SearchItem.AllTables"
args10(3).Value = false
args10(4).Name = "SearchItem.Backward"
args10(4).Value = false
args10(5).Name = "SearchItem.Pattern"
args10(5).Value = false
args10(6).Name = "SearchItem.Content"
args10(6).Value = false
args10(7).Name = "SearchItem.AsianOptions"
args10(7).Value = false
args10(8).Name = "SearchItem.AlgorithmType"
args10(8).Value = 0
args10(9).Name = "SearchItem.SearchFlags"
args10(9).Value = 65552
args10(10).Name = "SearchItem.SearchString"
args10(10).Value = "Mädchenspielzeuge"
args10(11).Name = "SearchItem.ReplaceString"
args10(11).Value = "Spielwaren"
args10(12).Name = "SearchItem.Locale"
args10(12).Value = 255
args10(13).Name = "SearchItem.ChangedChars"
args10(13).Value = 2
args10(14).Name = "SearchItem.DeletedChars"
args10(14).Value = 2
args10(15).Name = "SearchItem.InsertedChars"
args10(15).Value = 2
args10(16).Name = "SearchItem.TransliterateFlags"
args10(16).Value = 1024
args10(17).Name = "SearchItem.Command"
args10(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(17) as new com.sun.star.beans.PropertyValue
args11(0).Name = "SearchItem.StyleFamily"
args11(0).Value = 2
args11(1).Name = "SearchItem.CellType"
args11(1).Value = 0
args11(2).Name = "SearchItem.RowDirection"
args11(2).Value = true
args11(3).Name = "SearchItem.AllTables"
args11(3).Value = false
args11(4).Name = "SearchItem.Backward"
args11(4).Value = false
args11(5).Name = "SearchItem.Pattern"
args11(5).Value = false
args11(6).Name = "SearchItem.Content"
args11(6).Value = false
args11(7).Name = "SearchItem.AsianOptions"
args11(7).Value = false
args11(8).Name = "SearchItem.AlgorithmType"
args11(8).Value = 0
args11(9).Name = "SearchItem.SearchFlags"
args11(9).Value = 65552
args11(10).Name = "SearchItem.SearchString"
args11(10).Value = "Für draußen"
args11(11).Name = "SearchItem.ReplaceString"
args11(11).Value = "Spielwaren"
args11(12).Name = "SearchItem.Locale"
args11(12).Value = 255
args11(13).Name = "SearchItem.ChangedChars"
args11(13).Value = 2
args11(14).Name = "SearchItem.DeletedChars"
args11(14).Value = 2
args11(15).Name = "SearchItem.InsertedChars"
args11(15).Value = 2
args11(16).Name = "SearchItem.TransliterateFlags"
args11(16).Value = 1024
args11(17).Name = "SearchItem.Command"
args11(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(17) as new com.sun.star.beans.PropertyValue
args12(0).Name = "SearchItem.StyleFamily"
args12(0).Value = 2
args12(1).Name = "SearchItem.CellType"
args12(1).Value = 0
args12(2).Name = "SearchItem.RowDirection"
args12(2).Value = true
args12(3).Name = "SearchItem.AllTables"
args12(3).Value = false
args12(4).Name = "SearchItem.Backward"
args12(4).Value = false
args12(5).Name = "SearchItem.Pattern"
args12(5).Value = false
args12(6).Name = "SearchItem.Content"
args12(6).Value = false
args12(7).Name = "SearchItem.AsianOptions"
args12(7).Value = false
args12(8).Name = "SearchItem.AlgorithmType"
args12(8).Value = 0
args12(9).Name = "SearchItem.SearchFlags"
args12(9).Value = 65552
args12(10).Name = "SearchItem.SearchString"
args12(10).Value = "Jungsspielzeuge"
args12(11).Name = "SearchItem.ReplaceString"
args12(11).Value = "Spielwaren"
args12(12).Name = "SearchItem.Locale"
args12(12).Value = 255
args12(13).Name = "SearchItem.ChangedChars"
args12(13).Value = 2
args12(14).Name = "SearchItem.DeletedChars"
args12(14).Value = 2
args12(15).Name = "SearchItem.InsertedChars"
args12(15).Value = 2
args12(16).Name = "SearchItem.TransliterateFlags"
args12(16).Value = 1024
args12(17).Name = "SearchItem.Command"
args12(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(17) as new com.sun.star.beans.PropertyValue
args13(0).Name = "SearchItem.StyleFamily"
args13(0).Value = 2
args13(1).Name = "SearchItem.CellType"
args13(1).Value = 0
args13(2).Name = "SearchItem.RowDirection"
args13(2).Value = true
args13(3).Name = "SearchItem.AllTables"
args13(3).Value = false
args13(4).Name = "SearchItem.Backward"
args13(4).Value = false
args13(5).Name = "SearchItem.Pattern"
args13(5).Value = false
args13(6).Name = "SearchItem.Content"
args13(6).Value = false
args13(7).Name = "SearchItem.AsianOptions"
args13(7).Value = false
args13(8).Name = "SearchItem.AlgorithmType"
args13(8).Value = 0
args13(9).Name = "SearchItem.SearchFlags"
args13(9).Value = 65552
args13(10).Name = "SearchItem.SearchString"
args13(10).Value = "Babyspielzeuge"
args13(11).Name = "SearchItem.ReplaceString"
args13(11).Value = "Spielwaren"
args13(12).Name = "SearchItem.Locale"
args13(12).Value = 255
args13(13).Name = "SearchItem.ChangedChars"
args13(13).Value = 2
args13(14).Name = "SearchItem.DeletedChars"
args13(14).Value = 2
args13(15).Name = "SearchItem.InsertedChars"
args13(15).Value = 2
args13(16).Name = "SearchItem.TransliterateFlags"
args13(16).Value = 1024
args13(17).Name = "SearchItem.Command"
args13(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(17) as new com.sun.star.beans.PropertyValue
args14(0).Name = "SearchItem.StyleFamily"
args14(0).Value = 2
args14(1).Name = "SearchItem.CellType"
args14(1).Value = 0
args14(2).Name = "SearchItem.RowDirection"
args14(2).Value = true
args14(3).Name = "SearchItem.AllTables"
args14(3).Value = false
args14(4).Name = "SearchItem.Backward"
args14(4).Value = false
args14(5).Name = "SearchItem.Pattern"
args14(5).Value = false
args14(6).Name = "SearchItem.Content"
args14(6).Value = false
args14(7).Name = "SearchItem.AsianOptions"
args14(7).Value = false
args14(8).Name = "SearchItem.AlgorithmType"
args14(8).Value = 0
args14(9).Name = "SearchItem.SearchFlags"
args14(9).Value = 65552
args14(10).Name = "SearchItem.SearchString"
args14(10).Value = "Kreativspiele"
args14(11).Name = "SearchItem.ReplaceString"
args14(11).Value = "Spielwaren"
args14(12).Name = "SearchItem.Locale"
args14(12).Value = 255
args14(13).Name = "SearchItem.ChangedChars"
args14(13).Value = 2
args14(14).Name = "SearchItem.DeletedChars"
args14(14).Value = 2
args14(15).Name = "SearchItem.InsertedChars"
args14(15).Value = 2
args14(16).Name = "SearchItem.TransliterateFlags"
args14(16).Value = 1024
args14(17).Name = "SearchItem.Command"
args14(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(17) as new com.sun.star.beans.PropertyValue
args15(0).Name = "SearchItem.StyleFamily"
args15(0).Value = 2
args15(1).Name = "SearchItem.CellType"
args15(1).Value = 0
args15(2).Name = "SearchItem.RowDirection"
args15(2).Value = true
args15(3).Name = "SearchItem.AllTables"
args15(3).Value = false
args15(4).Name = "SearchItem.Backward"
args15(4).Value = false
args15(5).Name = "SearchItem.Pattern"
args15(5).Value = false
args15(6).Name = "SearchItem.Content"
args15(6).Value = false
args15(7).Name = "SearchItem.AsianOptions"
args15(7).Value = false
args15(8).Name = "SearchItem.AlgorithmType"
args15(8).Value = 0
args15(9).Name = "SearchItem.SearchFlags"
args15(9).Value = 65552
args15(10).Name = "SearchItem.SearchString"
args15(10).Value = "Gadgets, Figuren"
args15(11).Name = "SearchItem.ReplaceString"
args15(11).Value = "Spielwaren"
args15(12).Name = "SearchItem.Locale"
args15(12).Value = 255
args15(13).Name = "SearchItem.ChangedChars"
args15(13).Value = 2
args15(14).Name = "SearchItem.DeletedChars"
args15(14).Value = 2
args15(15).Name = "SearchItem.InsertedChars"
args15(15).Value = 2
args15(16).Name = "SearchItem.TransliterateFlags"
args15(16).Value = 1024
args15(17).Name = "SearchItem.Command"
args15(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args15())

rem ----------------------------------------------------------------------
dim args17(17) as new com.sun.star.beans.PropertyValue
args17(0).Name = "SearchItem.StyleFamily"
args17(0).Value = 2
args17(1).Name = "SearchItem.CellType"
args17(1).Value = 0
args17(2).Name = "SearchItem.RowDirection"
args17(2).Value = true
args17(3).Name = "SearchItem.AllTables"
args17(3).Value = false
args17(4).Name = "SearchItem.Backward"
args17(4).Value = false
args17(5).Name = "SearchItem.Pattern"
args17(5).Value = false
args17(6).Name = "SearchItem.Content"
args17(6).Value = false
args17(7).Name = "SearchItem.AsianOptions"
args17(7).Value = false
args17(8).Name = "SearchItem.AlgorithmType"
args17(8).Value = 0
args17(9).Name = "SearchItem.SearchFlags"
args17(9).Value = 65552
args17(10).Name = "SearchItem.SearchString"
args17(10).Value = "Gesellschaftsspiele"
args17(11).Name = "SearchItem.ReplaceString"
args17(11).Value = "Spielwaren"
args17(12).Name = "SearchItem.Locale"
args17(12).Value = 255
args17(13).Name = "SearchItem.ChangedChars"
args17(13).Value = 2
args17(14).Name = "SearchItem.DeletedChars"
args17(14).Value = 2
args17(15).Name = "SearchItem.InsertedChars"
args17(15).Value = 2
args17(16).Name = "SearchItem.TransliterateFlags"
args17(16).Value = 1024
args17(17).Name = "SearchItem.Command"
args17(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args17())

rem ----------------------------------------------------------------------
dim args18(17) as new com.sun.star.beans.PropertyValue
args18(0).Name = "SearchItem.StyleFamily"
args18(0).Value = 2
args18(1).Name = "SearchItem.CellType"
args18(1).Value = 0
args18(2).Name = "SearchItem.RowDirection"
args18(2).Value = true
args18(3).Name = "SearchItem.AllTables"
args18(3).Value = false
args18(4).Name = "SearchItem.Backward"
args18(4).Value = false
args18(5).Name = "SearchItem.Pattern"
args18(5).Value = false
args18(6).Name = "SearchItem.Content"
args18(6).Value = false
args18(7).Name = "SearchItem.AsianOptions"
args18(7).Value = false
args18(8).Name = "SearchItem.AlgorithmType"
args18(8).Value = 0
args18(9).Name = "SearchItem.SearchFlags"
args18(9).Value = 65552
args18(10).Name = "SearchItem.SearchString"
args18(10).Value = "Feiern und Verkleiden"
args18(11).Name = "SearchItem.ReplaceString"
args18(11).Value = "Spielwaren"
args18(12).Name = "SearchItem.Locale"
args18(12).Value = 255
args18(13).Name = "SearchItem.ChangedChars"
args18(13).Value = 2
args18(14).Name = "SearchItem.DeletedChars"
args18(14).Value = 2
args18(15).Name = "SearchItem.InsertedChars"
args18(15).Value = 2
args18(16).Name = "SearchItem.TransliterateFlags"
args18(16).Value = 1024
args18(17).Name = "SearchItem.Command"
args18(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(17) as new com.sun.star.beans.PropertyValue
args19(0).Name = "SearchItem.StyleFamily"
args19(0).Value = 2
args19(1).Name = "SearchItem.CellType"
args19(1).Value = 0
args19(2).Name = "SearchItem.RowDirection"
args19(2).Value = true
args19(3).Name = "SearchItem.AllTables"
args19(3).Value = false
args19(4).Name = "SearchItem.Backward"
args19(4).Value = false
args19(5).Name = "SearchItem.Pattern"
args19(5).Value = false
args19(6).Name = "SearchItem.Content"
args19(6).Value = false
args19(7).Name = "SearchItem.AsianOptions"
args19(7).Value = false
args19(8).Name = "SearchItem.AlgorithmType"
args19(8).Value = 0
args19(9).Name = "SearchItem.SearchFlags"
args19(9).Value = 65552
args19(10).Name = "SearchItem.SearchString"
args19(10).Value = "Alarm und Überwachung"
args19(11).Name = "SearchItem.ReplaceString"
args19(11).Value = "Baby & Kind"
args19(12).Name = "SearchItem.Locale"
args19(12).Value = 255
args19(13).Name = "SearchItem.ChangedChars"
args19(13).Value = 2
args19(14).Name = "SearchItem.DeletedChars"
args19(14).Value = 2
args19(15).Name = "SearchItem.InsertedChars"
args19(15).Value = 2
args19(16).Name = "SearchItem.TransliterateFlags"
args19(16).Value = 1024
args19(17).Name = "SearchItem.Command"
args19(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args19())

rem ----------------------------------------------------------------------
dim args20(17) as new com.sun.star.beans.PropertyValue
args20(0).Name = "SearchItem.StyleFamily"
args20(0).Value = 2
args20(1).Name = "SearchItem.CellType"
args20(1).Value = 0
args20(2).Name = "SearchItem.RowDirection"
args20(2).Value = true
args20(3).Name = "SearchItem.AllTables"
args20(3).Value = false
args20(4).Name = "SearchItem.Backward"
args20(4).Value = false
args20(5).Name = "SearchItem.Pattern"
args20(5).Value = false
args20(6).Name = "SearchItem.Content"
args20(6).Value = false
args20(7).Name = "SearchItem.AsianOptions"
args20(7).Value = false
args20(8).Name = "SearchItem.AlgorithmType"
args20(8).Value = 0
args20(9).Name = "SearchItem.SearchFlags"
args20(9).Value = 65552
args20(10).Name = "SearchItem.SearchString"
args20(10).Value = "Babynahrung und Zubehör"
args20(11).Name = "SearchItem.ReplaceString"
args20(11).Value = "Baby & Kind"
args20(12).Name = "SearchItem.Locale"
args20(12).Value = 255
args20(13).Name = "SearchItem.ChangedChars"
args20(13).Value = 2
args20(14).Name = "SearchItem.DeletedChars"
args20(14).Value = 2
args20(15).Name = "SearchItem.InsertedChars"
args20(15).Value = 2
args20(16).Name = "SearchItem.TransliterateFlags"
args20(16).Value = 1024
args20(17).Name = "SearchItem.Command"
args20(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(17) as new com.sun.star.beans.PropertyValue
args21(0).Name = "SearchItem.StyleFamily"
args21(0).Value = 2
args21(1).Name = "SearchItem.CellType"
args21(1).Value = 0
args21(2).Name = "SearchItem.RowDirection"
args21(2).Value = true
args21(3).Name = "SearchItem.AllTables"
args21(3).Value = false
args21(4).Name = "SearchItem.Backward"
args21(4).Value = false
args21(5).Name = "SearchItem.Pattern"
args21(5).Value = false
args21(6).Name = "SearchItem.Content"
args21(6).Value = false
args21(7).Name = "SearchItem.AsianOptions"
args21(7).Value = false
args21(8).Name = "SearchItem.AlgorithmType"
args21(8).Value = 0
args21(9).Name = "SearchItem.SearchFlags"
args21(9).Value = 65552
args21(10).Name = "SearchItem.SearchString"
args21(10).Value = "Kinderzimmerausstattung"
args21(11).Name = "SearchItem.ReplaceString"
args21(11).Value = "Baby & Kind"
args21(12).Name = "SearchItem.Locale"
args21(12).Value = 255
args21(13).Name = "SearchItem.ChangedChars"
args21(13).Value = 2
args21(14).Name = "SearchItem.DeletedChars"
args21(14).Value = 2
args21(15).Name = "SearchItem.InsertedChars"
args21(15).Value = 2
args21(16).Name = "SearchItem.TransliterateFlags"
args21(16).Value = 1024
args21(17).Name = "SearchItem.Command"
args21(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args21())

rem ----------------------------------------------------------------------
dim args22(17) as new com.sun.star.beans.PropertyValue
args22(0).Name = "SearchItem.StyleFamily"
args22(0).Value = 2
args22(1).Name = "SearchItem.CellType"
args22(1).Value = 0
args22(2).Name = "SearchItem.RowDirection"
args22(2).Value = true
args22(3).Name = "SearchItem.AllTables"
args22(3).Value = false
args22(4).Name = "SearchItem.Backward"
args22(4).Value = false
args22(5).Name = "SearchItem.Pattern"
args22(5).Value = false
args22(6).Name = "SearchItem.Content"
args22(6).Value = false
args22(7).Name = "SearchItem.AsianOptions"
args22(7).Value = false
args22(8).Name = "SearchItem.AlgorithmType"
args22(8).Value = 0
args22(9).Name = "SearchItem.SearchFlags"
args22(9).Value = 65552
args22(10).Name = "SearchItem.SearchString"
args22(10).Value = "Unterwegs und Outdoor"
args22(11).Name = "SearchItem.ReplaceString"
args22(11).Value = "Baby & Kind"
args22(12).Name = "SearchItem.Locale"
args22(12).Value = 255
args22(13).Name = "SearchItem.ChangedChars"
args22(13).Value = 2
args22(14).Name = "SearchItem.DeletedChars"
args22(14).Value = 2
args22(15).Name = "SearchItem.InsertedChars"
args22(15).Value = 2
args22(16).Name = "SearchItem.TransliterateFlags"
args22(16).Value = 1024
args22(17).Name = "SearchItem.Command"
args22(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(17) as new com.sun.star.beans.PropertyValue
args23(0).Name = "SearchItem.StyleFamily"
args23(0).Value = 2
args23(1).Name = "SearchItem.CellType"
args23(1).Value = 0
args23(2).Name = "SearchItem.RowDirection"
args23(2).Value = true
args23(3).Name = "SearchItem.AllTables"
args23(3).Value = false
args23(4).Name = "SearchItem.Backward"
args23(4).Value = false
args23(5).Name = "SearchItem.Pattern"
args23(5).Value = false
args23(6).Name = "SearchItem.Content"
args23(6).Value = false
args23(7).Name = "SearchItem.AsianOptions"
args23(7).Value = false
args23(8).Name = "SearchItem.AlgorithmType"
args23(8).Value = 0
args23(9).Name = "SearchItem.SearchFlags"
args23(9).Value = 65552
args23(10).Name = "SearchItem.SearchString"
args23(10).Value = "Musik und Multimedia"
args23(11).Name = "SearchItem.ReplaceString"
args23(11).Value = "Baby & Kind"
args23(12).Name = "SearchItem.Locale"
args23(12).Value = 255
args23(13).Name = "SearchItem.ChangedChars"
args23(13).Value = 2
args23(14).Name = "SearchItem.DeletedChars"
args23(14).Value = 2
args23(15).Name = "SearchItem.InsertedChars"
args23(15).Value = 2
args23(16).Name = "SearchItem.TransliterateFlags"
args23(16).Value = 1024
args23(17).Name = "SearchItem.Command"
args23(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args23())

rem ----------------------------------------------------------------------
dim args24(17) as new com.sun.star.beans.PropertyValue
args24(0).Name = "SearchItem.StyleFamily"
args24(0).Value = 2
args24(1).Name = "SearchItem.CellType"
args24(1).Value = 0
args24(2).Name = "SearchItem.RowDirection"
args24(2).Value = true
args24(3).Name = "SearchItem.AllTables"
args24(3).Value = false
args24(4).Name = "SearchItem.Backward"
args24(4).Value = false
args24(5).Name = "SearchItem.Pattern"
args24(5).Value = false
args24(6).Name = "SearchItem.Content"
args24(6).Value = false
args24(7).Name = "SearchItem.AsianOptions"
args24(7).Value = false
args24(8).Name = "SearchItem.AlgorithmType"
args24(8).Value = 0
args24(9).Name = "SearchItem.SearchFlags"
args24(9).Value = 65552
args24(10).Name = "SearchItem.SearchString"
args24(10).Value = "Multimedia und Musik"
args24(11).Name = "SearchItem.ReplaceString"
args24(11).Value = "Baby & Kind"
args24(12).Name = "SearchItem.Locale"
args24(12).Value = 255
args24(13).Name = "SearchItem.ChangedChars"
args24(13).Value = 2
args24(14).Name = "SearchItem.DeletedChars"
args24(14).Value = 2
args24(15).Name = "SearchItem.InsertedChars"
args24(15).Value = 2
args24(16).Name = "SearchItem.TransliterateFlags"
args24(16).Value = 1024
args24(17).Name = "SearchItem.Command"
args24(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(0) as new com.sun.star.beans.PropertyValue
args25(0).Name = "ToPoint"
args25(0).Value = "A2:A12000"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args25())

rem ----------------------------------------------------------------------
dim args26(17) as new com.sun.star.beans.PropertyValue
args26(0).Name = "SearchItem.StyleFamily"
args26(0).Value = 2
args26(1).Name = "SearchItem.CellType"
args26(1).Value = 0
args26(2).Name = "SearchItem.RowDirection"
args26(2).Value = true
args26(3).Name = "SearchItem.AllTables"
args26(3).Value = false
args26(4).Name = "SearchItem.Backward"
args26(4).Value = false
args26(5).Name = "SearchItem.Pattern"
args26(5).Value = false
args26(6).Name = "SearchItem.Content"
args26(6).Value = false
args26(7).Name = "SearchItem.AsianOptions"
args26(7).Value = false
args26(8).Name = "SearchItem.AlgorithmType"
args26(8).Value = 0
args26(9).Name = "SearchItem.SearchFlags"
args26(9).Value = 71696
args26(10).Name = "SearchItem.SearchString"
args26(10).Value = "Körperpflege"
args26(11).Name = "SearchItem.ReplaceString"
args26(11).Value = "Baby & Kind"
args26(12).Name = "SearchItem.Locale"
args26(12).Value = 255
args26(13).Name = "SearchItem.ChangedChars"
args26(13).Value = 2
args26(14).Name = "SearchItem.DeletedChars"
args26(14).Value = 2
args26(15).Name = "SearchItem.InsertedChars"
args26(15).Value = 2
args26(16).Name = "SearchItem.TransliterateFlags"
args26(16).Value = 1024
args26(17).Name = "SearchItem.Command"
args26(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(0) as new com.sun.star.beans.PropertyValue
args27(0).Name = "ToPoint"
args27(0).Value = "A2:A12000"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args27())

rem ----------------------------------------------------------------------
dim args28(17) as new com.sun.star.beans.PropertyValue
args28(0).Name = "SearchItem.StyleFamily"
args28(0).Value = 2
args28(1).Name = "SearchItem.CellType"
args28(1).Value = 0
args28(2).Name = "SearchItem.RowDirection"
args28(2).Value = true
args28(3).Name = "SearchItem.AllTables"
args28(3).Value = false
args28(4).Name = "SearchItem.Backward"
args28(4).Value = false
args28(5).Name = "SearchItem.Pattern"
args28(5).Value = false
args28(6).Name = "SearchItem.Content"
args28(6).Value = false
args28(7).Name = "SearchItem.AsianOptions"
args28(7).Value = false
args28(8).Name = "SearchItem.AlgorithmType"
args28(8).Value = 0
args28(9).Name = "SearchItem.SearchFlags"
args28(9).Value = 71696
args28(10).Name = "SearchItem.SearchString"
args28(10).Value = "Windeln und Feuchttücher"
args28(11).Name = "SearchItem.ReplaceString"
args28(11).Value = "Baby & Kind"
args28(12).Name = "SearchItem.Locale"
args28(12).Value = 255
args28(13).Name = "SearchItem.ChangedChars"
args28(13).Value = 2
args28(14).Name = "SearchItem.DeletedChars"
args28(14).Value = 2
args28(15).Name = "SearchItem.InsertedChars"
args28(15).Value = 2
args28(16).Name = "SearchItem.TransliterateFlags"
args28(16).Value = 1024
args28(17).Name = "SearchItem.Command"
args28(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args28())

rem ----------------------------------------------------------------------
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "ToPoint"
args30(0).Value = "B2:B12000"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(17) as new com.sun.star.beans.PropertyValue
args31(0).Name = "SearchItem.StyleFamily"
args31(0).Value = 2
args31(1).Name = "SearchItem.CellType"
args31(1).Value = 0
args31(2).Name = "SearchItem.RowDirection"
args31(2).Value = true
args31(3).Name = "SearchItem.AllTables"
args31(3).Value = false
args31(4).Name = "SearchItem.Backward"
args31(4).Value = false
args31(5).Name = "SearchItem.Pattern"
args31(5).Value = false
args31(6).Name = "SearchItem.Content"
args31(6).Value = false
args31(7).Name = "SearchItem.AsianOptions"
args31(7).Value = false
args31(8).Name = "SearchItem.AlgorithmType"
args31(8).Value = 0
args31(9).Name = "SearchItem.SearchFlags"
args31(9).Value = 71696
args31(10).Name = "SearchItem.SearchString"
args31(10).Value = "Multimedia"
args31(11).Name = "SearchItem.ReplaceString"
args31(11).Value = "Multimédia"
args31(12).Name = "SearchItem.Locale"
args31(12).Value = 255
args31(13).Name = "SearchItem.ChangedChars"
args31(13).Value = 2
args31(14).Name = "SearchItem.DeletedChars"
args31(14).Value = 2
args31(15).Name = "SearchItem.InsertedChars"
args31(15).Value = 2
args31(16).Name = "SearchItem.TransliterateFlags"
args31(16).Value = 1024
args31(17).Name = "SearchItem.Command"
args31(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args31())

rem ----------------------------------------------------------------------
dim args32(0) as new com.sun.star.beans.PropertyValue
args32(0).Name = "ToPoint"
args32(0).Value = "$U$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "StringName"
args33(0).Value = "EK"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args33())

rem ----------------------------------------------------------------------
dim args34(0) as new com.sun.star.beans.PropertyValue
args34(0).Name = "ToPoint"
args34(0).Value = "$U$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args34())

rem ----------------------------------------------------------------------
dim args35(0) as new com.sun.star.beans.PropertyValue
args35(0).Name = "StringName"
args35(0).Value = "=h2+i2"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args35())

rem ----------------------------------------------------------------------
dim args36(0) as new com.sun.star.beans.PropertyValue
args36(0).Name = "ToPoint"
args36(0).Value = "$U$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args36())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args38(0) as new com.sun.star.beans.PropertyValue
args38(0).Name = "ToPoint"
args38(0).Value = "U2:U12000"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args38())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args40(0) as new com.sun.star.beans.PropertyValue
args40(0).Name = "ToPoint"
args40(0).Value = "$V$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args40())

rem ----------------------------------------------------------------------
dim args41(0) as new com.sun.star.beans.PropertyValue
args41(0).Name = "StringName"
args41(0).Value = "aktiv"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args41())

rem ----------------------------------------------------------------------
dim args42(0) as new com.sun.star.beans.PropertyValue
args42(0).Name = "ToPoint"
args42(0).Value = "$V$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args42())

rem ----------------------------------------------------------------------
dim args43(0) as new com.sun.star.beans.PropertyValue
args43(0).Name = "StringName"
args43(0).Value = "Y"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args43())

rem ----------------------------------------------------------------------
dim args44(0) as new com.sun.star.beans.PropertyValue
args44(0).Name = "ToPoint"
args44(0).Value = "$V$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args44())

rem ----------------------------------------------------------------------
dim args45(0) as new com.sun.star.beans.PropertyValue
args45(0).Name = "ToPoint"
args45(0).Value = "$V$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args45())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args47(0) as new com.sun.star.beans.PropertyValue
args47(0).Name = "ToPoint"
args47(0).Value = "V2:V12000"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args47())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args49(0) as new com.sun.star.beans.PropertyValue
args49(0).Name = "ToPoint"
args49(0).Value = "$W$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args49())

rem ----------------------------------------------------------------------
dim args50(2) as new com.sun.star.beans.PropertyValue
args50(0).Name = "URL"
args50(0).Value = "meine.csv"
args50(1).Name = "FilterName"
args50(1).Value = "Text - txt - csv (StarCalc)"
args50(2).Name = "FilterOptions"
args50(2).Value = "59,34,ANSI,1,,0,false,true,true"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args50())


rem ----------------------------------------------------------------------
odoc.close -1

end sub

die Datei besteht aus 20 spalten und die Spalte P soll als Text wiedergegeben werden und als diese wieder abgespeichert werden.

Vielen Dank für eure Hilfe

[F3K Total]

Hallo,
mit Beispieldokument war kein aufgezeichnetes Makro, sondern wenigstens ein Stück der .csv Datei gemeint.
R

[abuayyoub]

Hallo,
hier ein beispieldatei:

[F3K Total]

Soedele,
eigentlich müsste dieses Thema abgetrennt werden und eine neue Überschrift bekommen.
Text Datei per Makro nach Calc importieren
Die folgende Lösung ist sicherlich langsamer als der .csv Import.
Da deine Beispieldatei keine Information darüber in sich trägt, ob es sich bei einer Spalte um Text handelt, habe ich keine Lösung per Filter gefunden und lese die csv Datei deshalb zeilenweise ein.

Code: Alles auswählen

sub Import_csv
    odocument = StarDesktop.loadComponentFromURL("private:factory/scalc","_blank", 0, Array())
    oSheet = odocument.sheets(0)
    sPath = F_get_Url
    oFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
    oInputStream = oFileAccess.openFileRead(sPath)
    oFileRead = createUnoService("com.sun.star.io.TextInputStream")
    oFileRead.InputStream = oInputStream
    oFileRead.Encoding = "UTF-8"
    r = 0
    Do While NOT oFileRead.IsEOF
        sCurrentLine = oFileRead.readLine
        csv_data = split(sCurrentLine, ";")
        for c = 0 to ubound(csv_data)
            if isNumeric(csv_data(c)) then
                if c = 15 then goto 100' 15 entspricht der Spalte P: EAN-Nummer
                oSheet.getCellByPosition(c,r).value =  csv_data(c)
            else
                100:
                oSheet.getCellByPosition(c,r).String =  csv_data(c)
            end if
        next c
        r =  r + 1
    Loop
    oInputStream.closeInput
    msgbox ("Es wurden "+r+" Zeilen erfolgreich importiert ;-)",64,"Import abgeschlossen")
end sub

function F_get_Url as string
        oDialog = createunoservice("com.sun.star.ui.dialogs.FilePicker")
        oDialog.appendFilter("Quelldatei","*.csv")
        oDialog.displaydirectory="c:\"
        if odialog.execute = 0 then
           exit function
        endif
        F_get_Url = oDialog.Files(0)
end function

Viel Erfolg damit
Gruß R

[abuayyoub]

Hallo und vielen Danke für die Hilfe,

wie kann ich jetzt das Makro von dir mit meiner obigen Makro verbinden, ich hatte es mir leichter vorgestellt, weil ich lediglich nur eine spalte (in dem beispiel die splate P) als Text Format laden will. Man kann doch sonst manuell im Dialog fenster die spalte markieren und text auswählen, vielen Dank

[F3K Total]

Du brauchst nichts zu verbinden, das Makro berücksichtigt Spalte P (Index 15), lass es einfach mal laufen.
R

[abuayyoub]

Hallo,
gibt es keinen schnelleren weg, wie bei manuellen Dialog fenster? auf wunsch kann ich die komplette csv zur verfügung stellen. Danke

[F3K Total]

Wenn du immer die gleiche Datei einlesen willst,
ersetze

Code: Alles auswählen

sPath = F_get_Url

durch

Code: Alles auswählen

sPath = converttourl("Pfad zu deiner Datei")

Hallo,
gibt es keinen schnelleren weg, wie bei manuellen Dialog fenster? auf wunsch kann ich die komplette csv zur verfügung stellen. Danke

Ja, ich glaube das würde helfen.
R

[abuayyoub]

Hallo F3K Total,

habe dir per PN die csv geschickt. Danke

[F3K Total]

Das Ergebnis der PN ist dieses Makro, ich habe noch einen Statusindikator eingebaut, damit man den Importstatus verfolgen kann, dauert bei einer 8Mb großen .csv etwa 70 Sekunden.

Code: Alles auswählen

sub Import_csv
    odocument = StarDesktop.loadComponentFromURL("private:factory/scalc","_blank", 0, Array())
    t1 = getsystemticks()
    oStatusIndicator = odocument.CurrentController.Frame.CreateStatusIndicator
    oStatusIndicator.Start("Los", 100)
    odocument.lockcontrollers
    oSheet = odocument.sheets(0)
    'sPath = converttourl("C:\Users\<USER>\Desktop\pixpro_feed_v2_de_de_full_hdr_20140222012002.csv")
    sPath = F_get_Url
    oFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
    oInputStream = oFileAccess.openFileRead(sPath)
    nlenght = oInputStream.Length
    oFileRead = createUnoService("com.sun.star.io.TextInputStream")
    oFileRead.InputStream = oInputStream
    oFileRead.Encoding = "UTF-8"
    r = 0
    Do While NOT oFileRead.IsEOF
        sCurrentLine = oFileRead.readLine
        csv_data = split(sCurrentLine, ";")
        for c = 0 to ubound(csv_data)
            if isNumeric(csv_data(c)) then
                if c = 15 then goto 100' 15 entspricht der Spalte P: EAN-Nummer
                oSheet.getCellByPosition(c,r).value =  csv_data(c)
            else
                100:
                oSheet.getCellByPosition(c,r).String =  csv_data(c)
            end if
        next c
        r =  r + 1
        if r mod 100 = 0 then
           nPosition = oInputStream.Position
           nNewvalue = int(nPosition*100/nlenght)
           oStatusIndicator.Value = nNewvalue
           oStatusIndicator.text = "~"+nNewvalue+" %"
        endif
    Loop
    oStatusIndicator.End
    oInputStream.closeInput
    odocument.unlockcontrollers
    t2 = getsystemticks()
    msgbox ("Fertig, es wurden "+r+" Zeilen in "+((t2-t1)/1000)+ " Sekunden importiert.",64,"CSV Import")
end sub

function F_get_Url as string
        oDialog = createunoservice("com.sun.star.ui.dialogs.FilePicker")
        oDialog.appendFilter("Quelldatei","*.csv")
        oDialog.displaydirectory="c:\"
        if odialog.execute = 0 then
           exit function
        endif
        F_get_Url = oDialog.Files(0)
end function

R

[abuayyoub]

Hallo,
Entschuldigt, dass ich nochmal nachfragen muss, aber geht es wirklich nicht einfacher? Nur wegen einer spalte so ein riesen aufwand. Danke

[F3K Total]

Hallo,
klar geht das viel kürzer, ich hatte mich schon damit beschäftigt.
Leider ist die Datei zu groß, um sie hier zu posten, schick mir eine E-Mail, dann schicke ich dir deine Datei zurück.
Gruß R

[F3K Total]

Wie jetzt,
mein o.a. Makro hat 52 Zeilen, du schickst mir per privater Nachricht ein aufgenommenes Makro von Dir mit 1232 Zeilen und fragst hier ob das nicht kürzer geht?
Mach erstmal deine Hausaufgaben;-)
R