Makro auf alle Dateien im Ordner anwenden

[hildebfl]

Hallo zusammen und schonmal vielen Dank, für die ganzen Tipps die ich als Mitleser abgreifen konnte.
Jetzt habe ich aber ein Problem, dass ich so bisher nicht lösen konnte.

Ich habe ein Makro geschrieben, dass eine .rpt-Datei über den OO-Writer nach meinen Wünschen formatiert und als .txt-Datei abspeichert. Dieses Makro muss ich jedoch auf ungefähr 800 Dateien anwenden und der Durchlauf pro Datei dauert ungefähr sieben Minuten. Das würde ich gerne automatisieren. dabei habe ich mir folgenden ablauf vorgestellt:

- 1.Datei öffnen (alle Dateien sind in einem Ordner, alle haben die Endung rpt)
- Makro RPT_zu_Text ausführen
- Datei Schließen
- nächste Datei öffnen
usw.
Ist so ein Makro für einen Anfänger realisierbar oder hat wer Tipps? In der Suche hat mir leider nichts wirklich weitergeholfen.

Schonmal vielen Dank für alle konstruktive Antworten!

[balu]

Hallo hildebfl,

Ist so ein Makro für einen Anfänger realisierbar

Weiss ich nicht, da ich nicht weiß wie Du dein Makro erstellt hast; Makrorecorder oder direkt programmiert.

hat wer Tipps?

Ändere und ergänze dein bisheriges Makro, und zwar nach folgendem Prinzip:
- Makro öffnet die zu bearbeitende Datei aber mit dem Status "hidden"
- Die Datei wird vom Makro bearbeitet, und anschließend gespeichert und geschlossen
- Die nächste Datei wird geöffnet
- ....

Da Du ja keine Beispieldatei mit deinem bisherigen Makro, oder zumindest den Makro-Code, hier nicht zeigst, kann ich erstmal nicht mehr sagen. Wenn Du mehr wissen willst, dann mußt Du auch mehr infos geben.



Gruß
balu

[Karolus]

Hallo
Zeig doch mal den Code der eine .rpt "konvertiert".
Wie groß ist so eine .rpt im Schnitt, kanst du die in ein zip-Archiv packen zusammen mit der daraus resultierenden .txt ??

Karolus

[hildebfl]

Vielleicht sehe ich den Wald vor lauter Bäumen nicht. Deswegen gehe ich mal genauer auf mein Problem ein. Denn meine Lösung kommt mir relativ umständlich vor.
Die .rpt Dateien kann man normal mit dem Writer oder Editor öffnen. Die Dateien sind ungefähr 1 MB groß und ist so aufgebaut mit 20000 Zeilen
A1 B1 C1 D1 E1 F1 G1 H1 I1
J1 K1
A2 B2 C2 D2 E2 F2 G2 H2 I2
J2 K2
usw.

In dieser Form kann ich die Daten aber nicht in eine Calc-Tabelle umwandeln. Also habe ich die Zeilenumbrüche durch den Buchstaben Q ersetzt und danach das eine Q plus 7 Leerzeichen in ein Leerzeichen und die restlichen Q´s wieder zurück in Umbrüche. =)

Dann sieht die Tabelle so aus und kann in Calc übernommen werden:

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1
A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2

Eine andere Lösung ist mir irgendwie nicht eingefallen und die konnte ich sogar mit den recorder aufnehmen.

[Karolus]

Hallo

Ich kann mit deiner Beschreibung in der Form überhaupt nichts anfangen, kannst du wenigstens mal die Beispielsdaten innerhalb von

Code: Alles auswählen

[code]

tags[/code] einfügen.


Karolus

[clag]

Hallo hildebfl,

habe versucht deine ersten Wunsch umzusetzen

erstelle dir eine Datei "liste.txt" mit allen Dateinamen die du bearbeiten möchtest
edit: benenne die die Datein *.rpt zuvor in *.txt um, damit Writer beim öffnen nicht stolpert

auf der comandozeile im entsprechenden Pfad z.B. so

Code: Alles auswählen

ren *.rpt *.txt
dir *. txt /o /b > liste.txt  

ersetze mein g:\Test\ durch deinen Pfad
ersetze mein print " done " durch deinen Makronamen im selben Module

Code: Alles auswählen

Sub LoadFileListe
dim myFileProp() as new com.sun.star.beans.PropertyValue
	sFilename = "g:\Test\liste.txt"
	iNumber = Freefile
	Open sFileName For Input As iNumber
	While Not EOF(iNumber)
	 	Line Input #iNumber, sLine
		sFile = "g:\Test\" & sLine 
		Url=converttourl( sFile )
		oDoc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, myFileProp() )

		print  " done "  ' oder Makroname 

		oDoc.store()
		odoc.close(false)
		wait 500
	Wend
	Close #iNumber
	msgbox "Ende Alle Dateien durch"
End Sub

dann sollte es laufen wie du es dir gewünscht hast

edit:
du solltest die Datein *.rpt zuvor in *.txt umbenennen damit Writer nicht stolpert

[hildebfl]

Schonmal vielen Dank für eure Hilfe.

Bei deiner Lösung clag kommt in der Zeile:

Code: Alles auswählen

oDoc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, myFileProp() )

der BASIC-Laufzeitfehler:

Code: Alles auswählen

Es ist eine Exception aufgetreten
Type: com.sun.star.lang.IllegalArgumentException
Message: URL seems to be an unsopported one.

Hier ist das komplette Makro

Code: Alles auswählen

Sub LoaodFileListe
dim myFileProp() as new com.sun.star.beans.PropertyValue
   sFilename = "C:\Users\B\Desktop\Tensor\Liste.txt"
   iNumber = Freefile
   Open sFileName For Input As iNumber
   While Not EOF(iNumber)
       Line Input #iNumber, sLine
      sFile = "C:\Users\B\Desktop\Tensor\Liste.txt" & sLine ' & ""
      Url=converttourl( sFile )
      oDoc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, myFileProp() )

      RPT_zu_Text

      oDoc.store()
      odoc.close(false)
      wait 500
   Wend
   Close #iNumber
   msgbox "Ende Alle Dateien durch"
End Sub


sub RPT_zu_Text
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(18) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SearchItem.StyleFamily"
args2(0).Value = 2
args2(1).Name = "SearchItem.CellType"
args2(1).Value = 0
args2(2).Name = "SearchItem.RowDirection"
args2(2).Value = true
args2(3).Name = "SearchItem.AllTables"
args2(3).Value = false
args2(4).Name = "SearchItem.Backward"
args2(4).Value = false
args2(5).Name = "SearchItem.Pattern"
args2(5).Value = false
args2(6).Name = "SearchItem.Content"
args2(6).Value = false
args2(7).Name = "SearchItem.AsianOptions"
args2(7).Value = false
args2(8).Name = "SearchItem.AlgorithmType"
args2(8).Value = 1
args2(9).Name = "SearchItem.SearchFlags"
args2(9).Value = 65536
args2(10).Name = "SearchItem.SearchString"
args2(10).Value = "$"
args2(11).Name = "SearchItem.ReplaceString"
args2(11).Value = "Q"
args2(12).Name = "SearchItem.Locale"
args2(12).Value = 255
args2(13).Name = "SearchItem.ChangedChars"
args2(13).Value = 2
args2(14).Name = "SearchItem.DeletedChars"
args2(14).Value = 2
args2(15).Name = "SearchItem.InsertedChars"
args2(15).Value = 2
args2(16).Name = "SearchItem.TransliterateFlags"
args2(16).Value = 1280
args2(17).Name = "SearchItem.Command"
args2(17).Value = 3
args2(18).Name = "Quiet"
args2(18).Value = true

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

rem ----------------------------------------------------------------------
dim args3(18) as new com.sun.star.beans.PropertyValue
args3(0).Name = "SearchItem.StyleFamily"
args3(0).Value = 2
args3(1).Name = "SearchItem.CellType"
args3(1).Value = 0
args3(2).Name = "SearchItem.RowDirection"
args3(2).Value = true
args3(3).Name = "SearchItem.AllTables"
args3(3).Value = false
args3(4).Name = "SearchItem.Backward"
args3(4).Value = false
args3(5).Name = "SearchItem.Pattern"
args3(5).Value = false
args3(6).Name = "SearchItem.Content"
args3(6).Value = false
args3(7).Name = "SearchItem.AsianOptions"
args3(7).Value = false
args3(8).Name = "SearchItem.AlgorithmType"
args3(8).Value = 1
args3(9).Name = "SearchItem.SearchFlags"
args3(9).Value = 65536
args3(10).Name = "SearchItem.SearchString"
args3(10).Value = "Q   "
args3(11).Name = "SearchItem.ReplaceString"
args3(11).Value = " "
args3(12).Name = "SearchItem.Locale"
args3(12).Value = 255
args3(13).Name = "SearchItem.ChangedChars"
args3(13).Value = 2
args3(14).Name = "SearchItem.DeletedChars"
args3(14).Value = 2
args3(15).Name = "SearchItem.InsertedChars"
args3(15).Value = 2
args3(16).Name = "SearchItem.TransliterateFlags"
args3(16).Value = 1280
args3(17).Name = "SearchItem.Command"
args3(17).Value = 3
args3(18).Name = "Quiet"
args3(18).Value = true

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

rem ----------------------------------------------------------------------
dim args4(18) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.Backward"
args4(4).Value = false
args4(5).Name = "SearchItem.Pattern"
args4(5).Value = false
args4(6).Name = "SearchItem.Content"
args4(6).Value = false
args4(7).Name = "SearchItem.AsianOptions"
args4(7).Value = false
args4(8).Name = "SearchItem.AlgorithmType"
args4(8).Value = 1
args4(9).Name = "SearchItem.SearchFlags"
args4(9).Value = 65536
args4(10).Name = "SearchItem.SearchString"
args4(10).Value = "Q"
args4(11).Name = "SearchItem.ReplaceString"
args4(11).Value = "\n"
args4(12).Name = "SearchItem.Locale"
args4(12).Value = 255
args4(13).Name = "SearchItem.ChangedChars"
args4(13).Value = 2
args4(14).Name = "SearchItem.DeletedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.InsertedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.TransliterateFlags"
args4(16).Value = 1280
args4(17).Name = "SearchItem.Command"
args4(17).Value = 3
args4(18).Name = "Quiet"
args4(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(18) as new com.sun.star.beans.PropertyValue
args5(0).Name = "SearchItem.StyleFamily"
args5(0).Value = 2
args5(1).Name = "SearchItem.CellType"
args5(1).Value = 0
args5(2).Name = "SearchItem.RowDirection"
args5(2).Value = true
args5(3).Name = "SearchItem.AllTables"
args5(3).Value = false
args5(4).Name = "SearchItem.Backward"
args5(4).Value = false
args5(5).Name = "SearchItem.Pattern"
args5(5).Value = false
args5(6).Name = "SearchItem.Content"
args5(6).Value = false
args5(7).Name = "SearchItem.AsianOptions"
args5(7).Value = false
args5(8).Name = "SearchItem.AlgorithmType"
args5(8).Value = 1
args5(9).Name = "SearchItem.SearchFlags"
args5(9).Value = 65536
args5(10).Name = "SearchItem.SearchString"
args5(10).Value = "   "
args5(11).Name = "SearchItem.ReplaceString"
args5(11).Value = " "
args5(12).Name = "SearchItem.Locale"
args5(12).Value = 255
args5(13).Name = "SearchItem.ChangedChars"
args5(13).Value = 2
args5(14).Name = "SearchItem.DeletedChars"
args5(14).Value = 2
args5(15).Name = "SearchItem.InsertedChars"
args5(15).Value = 2
args5(16).Name = "SearchItem.TransliterateFlags"
args5(16).Value = 1280
args5(17).Name = "SearchItem.Command"
args5(17).Value = 3
args5(18).Name = "Quiet"
args5(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(18) as new com.sun.star.beans.PropertyValue
args6(0).Name = "SearchItem.StyleFamily"
args6(0).Value = 2
args6(1).Name = "SearchItem.CellType"
args6(1).Value = 0
args6(2).Name = "SearchItem.RowDirection"
args6(2).Value = true
args6(3).Name = "SearchItem.AllTables"
args6(3).Value = false
args6(4).Name = "SearchItem.Backward"
args6(4).Value = false
args6(5).Name = "SearchItem.Pattern"
args6(5).Value = false
args6(6).Name = "SearchItem.Content"
args6(6).Value = false
args6(7).Name = "SearchItem.AsianOptions"
args6(7).Value = false
args6(8).Name = "SearchItem.AlgorithmType"
args6(8).Value = 1
args6(9).Name = "SearchItem.SearchFlags"
args6(9).Value = 65536
args6(10).Name = "SearchItem.SearchString"
args6(10).Value = "   "
args6(11).Name = "SearchItem.ReplaceString"
args6(11).Value = " "
args6(12).Name = "SearchItem.Locale"
args6(12).Value = 255
args6(13).Name = "SearchItem.ChangedChars"
args6(13).Value = 2
args6(14).Name = "SearchItem.DeletedChars"
args6(14).Value = 2
args6(15).Name = "SearchItem.InsertedChars"
args6(15).Value = 2
args6(16).Name = "SearchItem.TransliterateFlags"
args6(16).Value = 1280
args6(17).Name = "SearchItem.Command"
args6(17).Value = 3
args6(18).Name = "Quiet"
args6(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(18) as new com.sun.star.beans.PropertyValue
args7(0).Name = "SearchItem.StyleFamily"
args7(0).Value = 2
args7(1).Name = "SearchItem.CellType"
args7(1).Value = 0
args7(2).Name = "SearchItem.RowDirection"
args7(2).Value = true
args7(3).Name = "SearchItem.AllTables"
args7(3).Value = false
args7(4).Name = "SearchItem.Backward"
args7(4).Value = false
args7(5).Name = "SearchItem.Pattern"
args7(5).Value = false
args7(6).Name = "SearchItem.Content"
args7(6).Value = false
args7(7).Name = "SearchItem.AsianOptions"
args7(7).Value = false
args7(8).Name = "SearchItem.AlgorithmType"
args7(8).Value = 1
args7(9).Name = "SearchItem.SearchFlags"
args7(9).Value = 65536
args7(10).Name = "SearchItem.SearchString"
args7(10).Value = "  "
args7(11).Name = "SearchItem.ReplaceString"
args7(11).Value = " "
args7(12).Name = "SearchItem.Locale"
args7(12).Value = 255
args7(13).Name = "SearchItem.ChangedChars"
args7(13).Value = 2
args7(14).Name = "SearchItem.DeletedChars"
args7(14).Value = 2
args7(15).Name = "SearchItem.InsertedChars"
args7(15).Value = 2
args7(16).Name = "SearchItem.TransliterateFlags"
args7(16).Value = 1280
args7(17).Name = "SearchItem.Command"
args7(17).Value = 3
args7(18).Name = "Quiet"
args7(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(18) as new com.sun.star.beans.PropertyValue
args8(0).Name = "SearchItem.StyleFamily"
args8(0).Value = 2
args8(1).Name = "SearchItem.CellType"
args8(1).Value = 0
args8(2).Name = "SearchItem.RowDirection"
args8(2).Value = true
args8(3).Name = "SearchItem.AllTables"
args8(3).Value = false
args8(4).Name = "SearchItem.Backward"
args8(4).Value = false
args8(5).Name = "SearchItem.Pattern"
args8(5).Value = false
args8(6).Name = "SearchItem.Content"
args8(6).Value = false
args8(7).Name = "SearchItem.AsianOptions"
args8(7).Value = false
args8(8).Name = "SearchItem.AlgorithmType"
args8(8).Value = 0
args8(9).Name = "SearchItem.SearchFlags"
args8(9).Value = 65536
args8(10).Name = "SearchItem.SearchString"
args8(10).Value = "."
args8(11).Name = "SearchItem.ReplaceString"
args8(11).Value = ","
args8(12).Name = "SearchItem.Locale"
args8(12).Value = 255
args8(13).Name = "SearchItem.ChangedChars"
args8(13).Value = 2
args8(14).Name = "SearchItem.DeletedChars"
args8(14).Value = 2
args8(15).Name = "SearchItem.InsertedChars"
args8(15).Value = 2
args8(16).Name = "SearchItem.TransliterateFlags"
args8(16).Value = 1280
args8(17).Name = "SearchItem.Command"
args8(17).Value = 3
args8(18).Name = "Quiet"
args8(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "URL"
args9(0).Value = "file:///C:/Users/B/Desktop/Tensor/Word/N01_PEEK_Tensor_RadLi2.txt"
args9(1).Name = "FilterName"
args9(1).Value = "Text"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args9())


end sub

Und hier die Liste.txt:

Code: Alles auswählen

 N01_PEEK_Tensor_RadLi.txt
N01_PEEK_Tensor_RadLi2.txt
N01_PEEK_Tensor_RadRe.txt
N01_PEEK_Tensor_RadRe2.txt
N03_PEEK_TEnsor_Rad.txt
N03_PEEK_TEnsor_RadLi.txt
N03_PEEK_TEnsor_RadLi2.txt
N03_PEEK_TEnsor_RadRe.txt
N03_PEEK_TEnsor_RadRe2.txt
N04_PEEK_Tensor_Rad.txt
N04_PEEK_Tensor_RadLi.txt
N04_PEEK_Tensor_RadLi2.txt
N04_PEEK_Tensor_RadRe.txt
N04_PEEK_Tensor_RadRe2.txt
N05_PEEK_Tensor_Rad.txt
N05_PEEK_Tensor_RadLi.txt
N05_PEEK_Tensor_RadLi2.txt
N05_PEEK_Tensor_RadRe.txt
N05_PEEK_Tensor_RadRe2.txt
N06_PEEK_Tensor_Rad.txt
N06_PEEK_Tensor_RadLi.txt
N06_PEEK_Tensor_RadLi2.txt
N06_PEEK_Tensor_RadRe.txt
N06_PEEK_Tensor_RadRe2.txt
N07_PEEK_Tensor_Rad.txt
N07_PEEK_Tensor_RadLi.txt
N07_PEEK_Tensor_RadLi2.txt
N07_PEEK_Tensor_RadRe.txt
N07_PEEK_Tensor_RadRe2.txt
N08_PEEK_Tensor_Rad.txt
N08_PEEK_Tensor_RadLi.txt
N08_PEEK_Tensor_RadLi2.txt
N08_PEEK_Tensor_RadRe.txt
N08_PEEK_Tensor_RadRe2.txt
N09_PEEK_Tensor_Rad.txt
N09_PEEK_Tensor_RadLi.txt
N09_PEEK_Tensor_RadLi2.txt
N09_PEEK_Tensor_RadRe.txt
N09_PEEK_Tensor_RadRe2.txt
N10_PEEK_Tensor_Rad.txt
N10_PEEK_Tensor_RadLi.txt
N10_PEEK_Tensor_RadLi2.txt
N10_PEEK_Tensor_RadRe.txt
N10_PEEK_Tensor_RadRe2.txt
N11_PEEK_Tensor_Rad.txt
N11_PEEK_Tensor_RadLi.txt
N11_PEEK_Tensor_RadLi2.txt
N11_PEEK_Tensor_RadRe.txt
N11_PEEK_Tensor_RadRe2.txt
N12_PEEK_Tensor_Rad.txt
N12_PEEK_Tensor_RadLi.txt
N12_PEEK_Tensor_RadLi2.txt
N12_PEEK_Tensor_RadRe.txt
N12_PEEK_Tensor_RadRe2.txt
N13_PEEK_Tensor_Rad.txt
N13_PEEK_Tensor_RadLi.txt
N13_PEEK_Tensor_RadLi2.txt
N13_PEEK_Tensor_RadRe.txt
N13_PEEK_Tensor_RadRe2.txt
N14_PEEK_Tensor_Rad.txt
N14_PEEK_Tensor_RadLi.txt
N14_PEEK_Tensor_RadLi2.txt
N14_PEEK_Tensor_RadRe.txt
N14_PEEK_Tensor_RadRe2.txt 

[clag]

Hallo hildebfl,

ist das erste Leerzeichen in der Liste Teil des Namen
und sieht die Liste exakt so aus?

[hildebfl]

Hallo clag,
das Leerzeichen ist in der Liste.txt nicht enthalten. Ja die Liste sieht genauso aus.
Gruß

[clag]

hallo hildebfl,
du hast einen Fehler eingebaut
Zeile 8

du hast dies
sFile = "C:\Users\B\Desktop\Tensor\Liste.txt " & sLine

so sollte es aussehen
sFile = "C:\Users\B\Desktop\Tensor\" & sLine

[hildebfl]

Oh man, manchmal ist man bzw. ich echt blind.
Aber vielen vielen Dank jetzt läuft alles genau so wie ich es mir vorgestellt habe.
Das hätte ich nie hinbekommen.

Viele Grüße
hildebfl

[clag]

hi

jetzt läuft alles genau so wie ich es mir vorgestellt habe.

das ist gut