LibreOffice-Forum

• o Ich habe hier eine Tabelle (als Übersicht), auf der Adressdaten, Bemerkungen, Tel.Nrn. etc. erfasst sind.
  o Derzeit stehen hier ~17 Adressdaten (==Zeilen) drauf, es können aber auch 40--50 werden.
  o Ich möchte die Daten gerne auf einer Webseite anzeigen, halte eine SQL-Datenbank hier aber für übertrieben.
  o Ich könnte die Daten (getestet!) per [COPY]+[PASTE] nach 'Kate' (unter Linux) importieren und die [TABs]
  dann durch ';' ersetzen lassen.
  o Da sich die Anzahl der Adressen auch verändern kann (mehr/weniger), oder Änderungen einzupflegen sind,
  könnte das an manchen Tagen etwas 'mühsam' werden
  o ...

craig hat geschrieben:Hallo Dieter,

hier ein Makro mit dem Du eine reine Textdatei erstellen kannst.

Markiere dazu einen Datenbereich in einer Tabelle und starte das Makro.
Zuvor musst noch die Pfadangabe im Makro anpassen.
Ist im Makro kommentiert.

Code: Alles auswählen

Sub Textdatei
Dim oDoc as Object
Dim oSheet as Object
Dim mArr as Variant
	oDoc =thiscomponent
		' Tabelle mit dem Index 0
		oSheet =oDoc.Sheets().getByindex(0)
		' ODER per Name
'		oSheet =oDoc.Sheets().getByName("Tabelle1")		
		
			' aktuelle Selektion einlesen
			oSel=oDoc.CurrentSelection

		' Daten aus Selektion in Array schreiben
		mArr=osel.getDataArray()

	i = FreeFile()
	
REM >>>> Hier die Pfadangabe anpassen <<<<
	Open "c:\Temp\_text01.txt" For Output As i
	
	' Array-Untergrenze bis -Obergrenze durchzählen
	for k=lbound(mar()) to ubound(mar())
					' Array Spalte 0 - 2 schreiben
		   print #i, mArr(k)(0) & "," &  mArr(k)(1) & "," & mArr(k)(2)
	next

   Close #1
End Sub

Es ließe sich auch ein fester Datenbereich zuweisen,
oder es öffnet sich eine Inputbox, in der dann der zu
schreibende Adressbereich eingetragen wird.

Bei einer CSV-Datei müssen jedoch noch ein paar Eingeschaften übergeben werden.
Hier für einen Windows-Rechner:

Code: Alles auswählen

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/temp/Unbenannt%202.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "44,34,ANSI,1,,0,false,true,true,false"

Wie ich dies jetzt mit dem oberen Code verketten könnte weiß ich im Augenblick nicht.
Muss ich selbst erst herausfinden.

Ich hoffe mein Beitrag hilft Dir ein Stück weiter.

Dieter hat geschrieben:Immerhin habe ich es schon geschafft einen Button auf dem Blatt anzulegen!!
Den Rest schaffe ich dann auch noch ... hoffe ich.

Dieter hat geschrieben:IMHO reicht es den markierten Bereich zu übertragen.
Ist für User wie meinereiner am einfachsten.
Falls da Konfigurations-Optionen im Makro möglich sein sollten,
finden die Power-User bestimmt heraus, was sie damit anfangen können!

' aktuelle Selektion einlesen
oSel=oDoc.CurrentSelection 

' Daten aus Selektion in Array schreiben
mArr=osel.getDataArray() 

      ' Daten aus Selektion in Array schreiben
      mArr=osel.getDataArray()

' Print "Hallo Stop mich"

• Markieren eine Tabellenbereich.
• Füge nachfolgende Zeile, unterhalb von "mArr=osel.getDataArray()" in den Code ein.
  Print "Hallo Stop mich"
• Direkt neben dem Fenster des Modulblattes in der IDE, siehst
  Du eine graue Spalte.
• Dort klickst Du mit der Maus vor die gerade eingefügte Zeile.
  Es wird Dir nun ein roter Punkt angezeigt.
  Dieses ist eine Stoppmarke. Der Code wird genau hier unterbochen.
• Stelle nun den Cursor in das Wort/ den Arraynamen (mArr).
• Drücke die Taste F7.
• Jetzt siehst Du unten links im Beobachterfenster den Arraynamen.
• Starte das Makro. Im Beobachterfenster kannst Du nun auf die +
  klicken, um die einzelnen Array-Felder auf ihren Inhalt zu püfen.

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/temp/Unbenannt%202.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "44,34,ANSI,1,,0,false,true,true,false"

oSheet.getCellRangeByPosition(StartSpalte,StartZeile,EndSpalte,EndZeile).setDataArray(meinArrayName)

1. Pfadangabe und Dateiname.
2. Welcher Dateifilter wird verwendet.
3. Spezielle Parameter für die CSV-Datei.

1. Zellen markieren und kopieren
2. Ein neues Blatt anlegen
3. Daten einfügen
4. Das neue Blatt als CSV-File speichern
5. Das neue Blatt(nicht die Datei) löschen.

Dieter13 hat geschrieben: Meine Frage(n) an Euch:
»» kann 'man' (nur) einen Bereich eines Tabellenblattes als CSV exportieren?
...
Ich bin für jede Lösung/Anregung dankbar .