Datei-Export mit VBScript/VBA

[Wurzelgnom]

In Access funktionierts mit VBA so

Code:

Sub Datei_schreiben(stDatei As String, strInhalt As String) 'Übergabe-Parameter 'Dim stDatei As String, strInhalt As String Dim dateinummer As Integer If stDatei = "" Then Exit Sub If funcDateiTest(stDatei) = "nein" Then Exit Sub dateinummer = FreeFile ' neue Datei-Nr. Open stDatei For Output As #dateinummer ' Datei zur Ausgabe öffnen. Print #dateinummer, strInhalt Close #dateinummer ' Datei schließen. End Sub

Code:

Function funcDateiTest(stDatei) Dim Antwort If Dir$(stDatei) <> "" Then ' Meldung anzeigen. Antwort = MsgBox("Soll die Datei überschrieben werden?" & Chr(13) & Chr(13) & stDatei, 20, "Überschreib-Warnung " & Chr(187) & stDatei & Chr(171)) ' Meldung anzeigen. If Antwort = vbYes Then ' Benutzer hat auf "Ja" geklickt funcDateiTest = "ja" Else funcDateiTest = "nein" ' Benutzer hat auf "Nein" geklickt End If End If End Function

Dabei wird der Prozedur Datei_schreiben der Dateiname stDatei mit dem kompletten Pfad und der zu schreibende Dateiinhalt strInhalt übergeben.
Der Dateiname kann gleich auf .dat enden.

Die Function funcDateiTest prüft, ob die Datei bereits existiert und fragt ggf nach, ob sie Überschrieben werden soll.

Den Dateiinhalt kannst Du folgendermaßen zusammensetzen

Code:

Dim strDatInhalt As String strDatInhalt = "# " & rst.Fields("text_name") & Chr$(10) strDatInhalt = strDatInhalt & "obj=" & rst.Fields("obj") & Chr$(10)

rst.Fields("text_name") liest hier das Namensfeld aus einer Datenbanktabelle aus
rst.Fields("obj") liest das obj-Feld aus der Datenbanktabelle

Statt der Datenbanktabellenfelder musst Du die entsprechenden Felder der Exel-Tabellen angeben.
Für jeden weiteren Parametereintrag fügst Du die untere Zeile noch mal an.

Das Chr$(10) setzt den Zeilenumbruch.
Notedad zeigt zwar alles in einer Zeile an, aber WordPad und ander Editoren zeigens richtig an.
Wenn Dich das stört, kannst Du noch ein & CHR$(13) an die Zeilen anhängen.

Eine so exportierte Dat-Datei häng ich mal an.