OpenOffice.info

Danke Winfried,

ich schau mir das an, bin kein Coder, sondern tumber Anwender :lol: Aber vielleicht versteh ich's ja.

Gruß
Andrea

WIllkommen im Forum.

Vielleicht hilft Dir mein Makro weiter: [url=http://www.re-solutions.de/ooo/makros/calc_insertCSV2Calc.odt]insertCSV2Calc[/url]

[quote="insertCSV2Calc"]Einfügen der Daten einer CSV-Datei in eine Tabelle einer Calc-Datei.

Dokumentation im ODT-Format. Modul leistet als Beispiel den Import gleichartig strukturierter, durch ein Trennzeichen getrennter Daten in eine neue Tabelle einer Calc-Datei. Durch ein mitgeliefertes Hilfsmakro können die nötigen Filteroptionen einfach ermittelt werden.

[color=#FF0000]Code Anpassungen nötig![/color][/quote]


Viel Erfolg!

Hm,

danke, dass Du Dich dessen angenommen hast. Ich hab OO 3.2.1 auf Linux Debian.

Ich brauche beide Trenner zusammen, als Tab UND Doppelpunkt. Wenn ich diese Optionen im PopUp - egal ob per Makro oder direkt über das Feld "Paste special" - eingebe. werden die Spalten wie gewünscht erstellt.

Hi,
kann ich nicht nachvollziehen,
wenn ich Dein Makro verwende, und in der Zwischenablage habe ich TAB separierte Werte, werden sie sauber in die Spalten eingebaut.
Habe ich Doppelpunkte oder das Semikolon als Trenner, landet der gesamte Inhalt der Zwischenablage in einer Zelle.
Bei mir kommt kein Popup.
Dies habe ich Mit OOo 3.3.0 und AOo 3.4.1 getestet.

Gruß R

REM  *****  BASIC  *****

Sub Main

End Sub


sub GP
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 = "$F$4"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Format"
args2(0).Value = 1

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

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$F$24"

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


end sub


sub FK
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$4"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Format"
args2(0).Value = 1

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

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$F$26"

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


end sub

Hallo,

bin ganz neu in OO und bitte daher um Hilfe.

Ich muss Text aus der Zwischenablage in Calc einfügen, wobei die Separatoren (Spaltentrenner immer Tab und Andere = Doppelpunkt sind. Dafür hab ich ein Makro erstellt und die Tasten ALT + F zugewiesen. Jedes Mal öffnet mir das Makro aber nur das PopUp, wo ich dann manuell Tab und Doppelpunkt eingebe. Nach "OK" fährt das Makro fort. Was muss ich tun, damit die manuelle Eingabe nicht mehr nötig ist?

[code]REM ***** BASIC *****

Sub Main

End Sub


sub GP
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 = "$F$4"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Format"
args2(0).Value = 1

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

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$F$24"

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


end sub


sub FK
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$4"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Format"
args2(0).Value = 1

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

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$F$26"

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


end sub[/code]

Vielen Dank für Hilfe

Andrea



[color=#800000]Moderation,4[/color]: Betreff angepasst