|
ein "Blindflug" ist immer kritisch:
Public Sub import()
Dim Datei, iFile
Dim FSO
Dim Str_String As String
Dim Spalte As Long
Spalte = 2
Do While Cells(Spalte, 1).Value <> ""
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("E:\Eigene Dateien\muster.GEO")
Str_String = Datei.readall
Datei.Close
'Suchen und ersetzen
Str_String = Replace(Str_String, "laenge", Range("A" & Spalte))
Str_String = Replace(Str_String, "breite", Range("B" & Spalte))
Str_String = Replace(Str_String, "anzahll", Range("E" & Spalte))
Str_String = Replace(Str_String, "lochx", Range("F" & Spalte))
Str_String = Replace(Str_String, "lochy", Range("G" & Spalte))
Str_String = Replace(Str_String, "mmquad", Range("C" & Spalte))
'Speichern
Spalte = Spalte + 1
Debug.Print Left(Str_String, 100)
Loop
iFile = "c:\temp\FSO_Test.txt"
Set iOut = FSO.CreateTextFile(iFile, True, True) 'FSO ist bereits definiert
iOut.WriteLine Str_String 'falls allen in "", dann Write durch Print ersetzen
iOut.close
End Sub
(für heute reicht es mir)
|