Hallo,
ich habe einen VBA Code erhalten, in dem aus einer Datei Daten ausgelesen werden.
Die Datei ist mit einem Festen Pfad codiert.
Ich möchte, dass beim Starten der Routine eine Abfrage kommt, in der ich die entsprechende Quelle wählen kann. Anschließend möchte ich eine Abfrage in der ich den Begin der Datenausgabe als Spalte festlegen kann.
Wie muss die Codezeile dafür aussehen?
Schönen Gruß,
AL
Sub Spline()
Dim strDateiname As String, strPath As String
Dim i As Long, lngZeile As Long
strPath = "C:\Users\XXX\Desktop\"
strDateiname = "spline.scr"
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
Open strPath & strDateiname For Output As #1
Print #1, "SPLINE"
For i = 2 To lngZeile
Print #1, KommaErsetzen(Cells(i, 2).Value) & "," & KommaErsetzen(Cells(i, 3).Value) & "," & KommaErsetzen(Cells(i, 4).Value)
Next i
Close #1
End Sub
|