Zellenbereich in Text Datei schreiben

[Gert Seler]

Hallo Chriss,
warum der große Aufwand???
Schau Dir mal die Ooo_Hilfe an :

Code: Alles auswählen

Öffnen und Speichern von Text CSV-Dateien

Unter dem Thema :

Code: Alles auswählen

Textdateien importieren und exportieren

für den Import einer CSV(Text-)Datei in "Calc" benötigst du kein "Basic-Modul".
Den "ExportBereich" solltest Du in ein leeres "Blatt" kopieren.
Weitere Hilfen : http://www.ooowiki.de/csvDatentabelle/I ... gorieCalc)
oder : http://www.ooowiki.de/csvDatentabelle/C ... gorieCalc)

ich hoffe das hilft Dir weiter.

mfg
Gert

[turtle47]

Hi Chriss,

Weiß jemand ob es auch eine Möglichkeit gibt das man einen Tabulator Abstand zwischen den einzelnen Strings bekommt ?

Jou, nämlich in dem man das Codezeichen für einen Tabulator verwendet.

Code: Alles auswählen

Print #datei, arg1 & chr(9) & arg2 & chr(9) & arg3 & chr(9) & arg4 & chr(9) & arg5 & chr(9) & arg6 & chr(9) & arg7

oder aber mit Leerzeichen dazwischen:

Code: Alles auswählen

Print #datei, arg1 & " " & arg2 & " " & arg3 & " "& arg4 & " " & arg5 & " " & arg6 & " " & arg7

Viel Erfolg!

Jürgen

[Karolus]

Hallo
Mit

Code: Alles auswählen

adaten() = split(ganzer_string,Trennzeichen)

überführst du einen Text in einen Array, Trennzeichen dürfte bei dir 'chr(9)' oder chr(13) sein.

Gruß Karo

[komma4]

Für so wenig Daten reicht die konzipierte Schleife....

...wenn es mehr Daten sind (immer gleichartig formatiert), dann empfehle ich mal das hier: http://www.re-solutions.de/ooo/makros/c ... V2Calc.odt

[turtle47]

Hi Chrisss,

in der Zelle sind die Hochkommas nicht sichtbar erst beim Anklicken in der Zeile "Oben"

Ausser in der ersten Zelle A1, da wird die Zahl ohne Hochkomma ausgegeben.

Wenn Du

Code: Alles auswählen

...getCellByPosition(j,i).String = daten(j)

durch

Code: Alles auswählen

...getCellByPosition(j,i).Value = daten(j)

ersetzt verschwinden die Hochkommas aber in der ersten Zelle wird "0" angezeigt

Das kann man prüfen, in dem man folgendes Testmakro laufen lässt:

Code: Alles auswählen

Sub text_imp_Test
Dim myValue as integer
Dim Daten as variant
	datei = Freefile
	open "C:\test5.txt" for InPut as datei
	For i = 0 to 1
	Input #datei, Currentele
	If Currentele <> "" then
	daten() = split(Currentele,chr(9),7)
	For j = 0 to 1
		          
	myValue = daten(j)	
	msgbox myValue 'Hier kommt bei ersten Durchlauf 0
	
	ThisComponent.Sheets.getbyname("Tabelle3").getCellByPosition(j,i).Value = myValue
	next j
	End If       
	next i
	close #datei       
end sub

Vielleicht kommst Du ja darauf warum das so ist.

Jürgen

[Karolus]

Hallo

schreibt es statt 7,5 ein mal 7 und einmal 5

Im csv-Import-Dialog gibts ein ein ganze Reihe von Trennzeichen-Optionen schalt einfach das []Komma ab

die Deutsche Buchstaben wie "ü, ä, ö" importieren. Bei mir zegt es so komische Zeichen.

Im bereits erwähnten Dialog gibt es weiter oben eine DropDown-Auwahl: Zeichensatz
Suche dir eine Zeichencodierung aus bei welcher die Umlaute in der Vorschau richtig angezeigt werden.

Karolus