OpenOffice.info

Verfasst: **Do, 18.10.2012 20:10**

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: Alles auswählen

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

Vielen Dank für Hilfe

Andrea

Moderation,4: Betreff angepasst

Verfasst: **Do, 18.10.2012 22:18**

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

Verfasst: **Do, 18.10.2012 22:27**

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.

Verfasst: **Fr, 19.10.2012 04:45**

WIllkommen im Forum.

Vielleicht hilft Dir mein Makro weiter: insertCSV2Calc

insertCSV2Calc hat geschrieben: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.

Code Anpassungen nötig!

Viel Erfolg!

Verfasst: **Sa, 20.10.2012 15:39**

Danke Winfried,

ich schau mir das an, bin kein Coder, sondern tumber Anwender

Aber vielleicht versteh ich's ja.

Gruß
Andrea

OpenOffice.info

CSV Import, Optionseinstellung übernehmen

CSV Import, Optionseinstellung übernehmen

Re: Makro übernimmt Optionen nicht

Re: Makro übernimmt Optionen nicht

Re: Makro übernimmt Optionen nicht

Re: CSV Import, Optionseinstellung übernehmen