OpenOffice.info

Sub showFilterOptions
Dim args(),i%
   args() = thisComponent.getArgs
   for i = 0 to uBound(Args())
      if args(i).Name = "FilterOptions" then inputbox "","",args(i).value
   next
End Sub

Hallo
Öffne deine CSV einmal manuell mit [b]allen richtigen Einstellungen im Importdialog[/b] und lass hinterher folgendes Makro laufen:
[code]Sub showFilterOptions
Dim args(),i%
args() = thisComponent.getArgs
for i = 0 to uBound(Args())
if args(i).Name = "FilterOptions" then inputbox "","",args(i).value
next
End Sub[/code]

kopiere den Text aus der Inputbox und füg ihn in deinem Makro ein.
Quelle [url]https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=60198&p=266525&hilit=FilterOptions#p266525[/url]

Karolus

[quote="rallemaun"]Ich hab eine spalte in der ein wert wie z.b. "1.0000" hinterlegt ist.Beim öffnen via Makro ändert sich der wert in "01.01.00" .[/quote]
Wähle im Dialog [i]Textimport[/i], den du mit [i]Karolus'[/i] Menüwahl geöffnet hast, im Kontextmenü (→ Rechtsklick) des betroffenen Spaltenkopfes – je nachdem, was du erreichen möchtest – den Punkt [i]»Text«[/i] oder [i]»US-English«[/i]. Die Bedeutung von [i]»Text«[/i] dürfte klar sein; [i]»US-English«[/i] ersetzt den anglo-amerikanischen Dezimalpunkt durch das im jeweiligen Betriebssystem konfigurierte Dezimaltrennzeichen.

Gruß
lorbass

Hallo

oder aus Calc heraus: [color=#BF0000][i]→→Einfügen→Tabelle aus Datei[/i][/color] ....

Karolus

Wenns um .csv geht hilft vielleicht dieser Link: [url]http://www.oooforum.de/viewtopic.php?f=18&t=8321&start=0[/url]

LG
Rasakul

Er meint eine .txt-Datei die den Aufbau einer .csv.Datei hat.

Er könnte dies aber wesentlich einfacher haben, in dem er das Verzeichnis in dem die .txt-Datei liegt als Datenbank .odb anmeldet.

Hi

mir ist nicht ganz klar, was du machen willst

1. Verstehe ich das richtig, du willst eine .txt mit Calc öffnen?
2. Was meinst du mit "jeweiliges" Trennzeichen? Betriebssystemabhängig?

LG
Rasakul