Makroproblem !
02.07.2003 13:39:46
Dari
ich glaub ich kotz gleich ein Fahrrad. Mit Blut, Schweiß und Tränen hab ich ein Makro zusammengebastelt, dass den Inhalt einer Textdatei in Excel überführt und dabei in der Textdatei den Punkt durch ein Komma ersetzt, so das die Zahlen korrekt rüberkommen.
Beim mehrmaligen Anwenden des Makros habe ich nun festegestellt, dass durch irgendeinen, seltsamen Grund der Inhalt der Textdatei dupliziert (verdoppelt) wird. Beim mehrmaligen benutzen findet so eine gigantische Daten-Vervielfältigung statt.
Ich glaube dass muss mit dem Code "'Ersetzen des Punktes durch Komma" zu tun haben, weil vorher hatte ich dieses Problem nicht.
Ich habe keine Ahnung, was der Grund für dieses Vervielfältigen ist ...
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
Dim HFile As Integer, Text As String, feld() As String, zaehler As Long, index As Long
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
If TptFile = False Then Exit Sub
'Ersetzen des Punktes durch Komma
HFile = FreeFile
Open TptFile For Input As #HFile
Do Until EOF(HFile)
zaehler = zaehler + 1
ReDim Preserve feld(1 To zaehler)
Line Input #HFile, Text
feld(zaehler) = Application.Substitute(Text, ".", ",")
Loop
Close #HFile
HFile = FreeFile
Open TptFile For Output As #HFile
For index = 1 To UBound(feld)
Print #HFile, feld(index)
Next
Close #HFile
'Überführen der Textdateidaten
Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1))
End Sub
Gruß
Dari