AW: .fst Datei Bearbeiten
29.07.2015 16:46:06
Michael
Wenn ich's mir genau ansehe, verstehe ich Dein Problem nicht.
Allein das Öffnen Deiner .fst-Datei als Workbook schlägt bei mir fehl: wenn das bei Dir funktioniert, weiß ich auch nicht weiter.
Ist es richtig, daß es sich um reine Textdatei handeln soll?
Wenn ja, ist eine Textdatei nämlich *keine* Exceldatei bzw. Workbook. sondern schlichter Text, wie in Deiner ZIP, und eine TEXTdatei hat auch kein Range, in das Du Werte schreiben könntest.
Warum kannst Du eigentlich keine .fst-Datei erzeugen?
Die Idee ist die: Du schreibst Deine Daten entweder in ein Tabellenblatt Deiner Excel-Datei, die das Makro enthält, und exportierst es als Textdatei mit der Endung .fst, oder Du schreibst es direkt in eine Textdatei.
Beide Varianten siehst Du hier:
Option Explicit
Sub fstBearbeiten()
Dim Pfad As String
Const Maschinenname = "Automat3"
Dim NeuerName, Datei As String
Dim i As Long, DateiNr As Integer
Pfad = ActiveWorkbook.Path
NeuerName = "Vorlage.fst"
Datei = Pfad & "\" & NeuerName
' Variante1:
Range("A1") = """" & "Version" & """" & ",1"
Range("A2") = """" & "Maschine" & """" & "," & """" & Maschinenname & """"
Range("A3") = Chr(34) & "Version" & Chr(34) & ",1"
Range("A4") = Chr(34) & "Maschine" & Chr(34) & "," & Chr(34) & Maschinenname & Chr(34)
' sieht völlig identisch aus, ok.
DateiNr = FreeFile
Open Datei For Output As #DateiNr
For i = 1 To 4
Print #DateiNr, Range("A" & i).Value
Next
' Variante2: direktes Schreiben:
Print #DateiNr, "ab hier direkt geschrieben:"
Print #DateiNr, """" & "Version" & """" & ",1"
Print #DateiNr, """" & "Maschine" & """" & "," & """" & Maschinenname & """"
Print #DateiNr, Chr(34) & "Version" & Chr(34) & ",1"
Print #DateiNr, Chr(34) & "Maschine" & Chr(34) & "," & Chr(34) & Maschinenname & Chr(34)
Close #DateiNr
' siehe auch:
' http://vba1.de/vba/053dateiexport.php
End Sub
Wenn Du die .fst-Datei mit dem Editor öffnest, sieht sie folgendermaßen aus:
"Version",1
"Maschine","Automat3"
"Version",1
"Maschine","Automat3"
ab hier direkt geschrieben:
"Version",1
"Maschine","Automat3"
"Version",1
"Maschine","Automat3"