Daten in externe Datei auslagern
Edwin
mit Hilfe dieses Forums habe ich ein sehr umfassendes Sheet erstellt, in dem ich meine Verkaufserfolge erfasse.
Über Dialoge werden die Verkaufserfolge in ein Tabellenblatt geschrieben.
Nun haben meine Kollegen spitz bekommen, dass das Programm genial ist und wollen es auch haben.
Da ich aber immer wieder Änderungen am VBA usw. vornehmen muss, muss ich zwangsläufig die Daten von der VBA-Datei trennen. Ansonsten würde ich bei einem Update, die Verkaufserfolge der Kollegen überschreiben.
Da ich befürchtet habe, dass meine Kollegen dies irgendwann spitz bekommen, habe ich diese Frage vor langer Zeit einmal in dieses Forum gestellt und habe dann folgenden VBA zur Antwort bekommen. Allerdings bekomme ich ihn nicht zum Laufen.
Kann mir VBA-Dummi jemand erklären, was ich hier noch ändern muss?
Oder hat jemand vielleicht auch einen anderen Lösungsansatz?
Gruß
Edwin
Sub IntTextDatei() 'beim Schließen der Datei
Dim rng As Range
Dim iRow As Integer, iCol As Integer, iFile As Integer
Dim sFile As String, sTxt As String
Set rng = Range("A1").CurrentRegion
sFile = Application.Path & "/testtext.txt" 'ändern in den Pfad der Datei
iFile = FreeFile
Open sFile For Output As iFile
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Value & ","
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
Close iFile
rng.ClearContents
End Sub
Sub AusTextDatei() 'beim Öffnen der Datei
Dim iRow As Integer, iFile As Integer
Dim sFile As String, sTxtA As String, sTxtB As String
sFile = Application.Path & "/testtext.txt"
If Dir(sFile) = "" Then
MsgBox "Die Daten wurden nicht eingelesen!"
Exit Sub
End If
iFile = FreeFile
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, sTxtA, sTxtB
iRow = iRow + 1
Cells(iRow, 1).Value = sTxtA
Cells(iRow, 2).Value = sTxtB
Loop
Close
Kill sFile
End Sub